试题 试卷
题型:单选题 题类:常考题 难易度:普通
内蒙古巴彦淖尔市临河三中计算机班2018-2019高二下学期信息技术期中考试试卷VB
PRIVATE SUB FORM__CLICK( )
S=0
FOR A = 1 TO 5
FOR B= 1 TO 3
S=S+1
NEXT B
NEXT A
PRINT S
END SUB
s = 0
For a = To 8 Step 2
s = s + a
Next a
若要使语句s = s + a执行3次,则循环变量a初值为( )
⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值),b(1)为数组a第1个元素。
⑵加入方法:将a(i)与数组b中的每个元素依次逐个比较:
若a(i)比b(j)小就用a(i)替换b(j)中的值,将a(i)添加到第j个下降数列中,并存储在c数组的c(j)中。
若a(i)比b(j)都大,则在数组b最后添加a(i)新的元素,将a(i)添加到第j个下降数列中,并存储在c数组的c(j)中。
⑶若数组a各元素的值为34,54,3,76,2,3时,则3个下降数列分别为“34,3,2”“54,3”“76”
程序运行界面如图所示。
小明依据上述描述设计了如下VB程序。请回答下列问题:
Dim x As Integer,y As Integer
x=Val(Text1.Text)
If x>200 Then
y=5*x
ElseIf x>=50 Then
y=10*x
Else
y=4*x
End If
Text2.Text=Str(y)
若要测试所有分支程序代码是否正确,以下测试数据中,最恰当的一组是( )
Private Sub Command1_Click()
Dim a(0 To 4) As Integer
Dim i As Integer
a(4) = Val(Text1.Text)
For i = 3 To 1 Step -1
a(i) = a(i + 1) / 2
Next i
Text2.Text = Str(a(i+2))
End Sub
试题篮