试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙教版信息技术基础第三章 信息的加工
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( )
x= Val (Text1.text)
If x>0 Then
{#blank#}1{#/blank#}
ElseIf {#blank#}2{#/blank#} Then
y = 0
ElseIf x < 0 Then
y = Abs(x)
{#blank#}3{#/blank#}
End Sub
a = 3
b = 9
c = a + b
If c = 12 Then py = "正确" Else py = "不正确"
分析该程序段，下列说法正确的是（ ）
m = Val(Text1.Text)
Do While m <> 0
x = m Mod 8
m = m \ 8
a(x) = a(x) + 1
If a(x) = 1 Then n = n + 1
Loop
数组a各元素的初始值都为0，在文本框Text1中输入“529”，执行程序后，变量n的值为（ ）
Option Base 1
Private Sub Command1Click
Dim a(4, 4)
For i = 1 To 3
For j = 1 To 3
a(i, j)=(i-1)*3+j
Next j
Next i
PRINT A(3, 1)
程序运行后，单击命令按钮，其输出结果为（ ）
试题篮
