注册

题型：单选题题类：常考题难易度：普通

浙江省高中信息技术算法及VB语言基础单元检测

某流程图如图所示：

若输入k的值为9，最终i、s的值分别为（）

A、11 0 B、11 -11 C、9 0 D、9 -9

举一反三

某算法的部分流程图如图所示，执行这部分流程后，变量a和b的值分别为（）

【加试题】设窗体上已经添加了command1、text1、label1对象，当文本框中输入8时下列代码段运行后的结果会是（）

Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

如面这段程序执行完后，s和i的值分别为（）

【加试题】有如下程序段：

Dim a(1 to 20) As Integer

For i=2 to 10

For j=2 to 20\i

a(i*j)=a(i*j) +1

Next j

Next i

该程序段运行后，数组a中元素值为0的个数是（）

下列程序段的执行结果为（）

Dim A(10)，B(5)

For i = 1 To 10

A(i) = i

Next i

For j = 1 To 5

B(j) = j * 20

Next j

A(5) = B(2)

Print "A(5)=";A(5)

如图所示，分别是计算三角形面积的算法和计算机程序，它们的描述方式是（）

①输入三角形三条边的边长a,b,c

②计算 $\text{[math]}$

③计算 $\text{[math]}$

④输出s

Option Explict

Private Sub Cormmand1_Chick( )

Dim a As Double

Dim b As Double

Dim c As Double

Dim p As Double

Dim S As Double

a= Val(InputBox(输入三角形的边长a", "输入"))

b= Val(InputBox(输入三角形的边长b", "输入"))

c= Val(InputBox(输入三角形的边长c", "输入"))

p=(a+b+c)/2

S=Sqr(p*(p-a)*(p- b)*(p-c))

Print S

End Sub

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服