下列VB程序段DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx>10Theny="x"*xElseIfx>0Theny="1_刷题宝

题干

下列VB程序段
Dim x As Single, y As Single
x = Val(Text1.Text)
If x > 10 Then
y =" x" * x
ElseIf x > 0 Then
y =" 10" * x
Else
y = 0
End If
Text2.Text = Str(y)
要测试所有分支程序代码是否正确，以下测试数据中，最恰当的一组是( )

A．11，2，-1	B．0，10
C．-2，2，5	D．12，100，-1

上一题下一题 0.99难度选择题更新时间:2015-11-25 12:08:12

答案(点此获取答案解析）

同类题1

问题：在“1390773”号段的 11 位手机号码中，统计出最后两位数字相同的号码个数。如 13907735200、13907738366 是符合条件的两个号码。
算法描述如下图所示。请将程序补充完整。

Private Sub Form_Click()
Dim a As Integer, b As Integer
Dim i As Integer, s As Integer

s=0

For i=10000 To 19999

a=①_____

b=(i Mod 100)\10

If a=b Then
s=②____
End If
Next i

Print "最后两位数字相同的号码个数有：" ;③_____

同类题2

某排序算法，VB代码如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（）

同类题3

一个两位数x，将它的个位数与十位数字对调后得到一个新数y，此时y恰好比x大36，求出所有这样的两位数。为其中的空白处选择合适的选项（）。

同类题4

以下只能用解析算法求解的是（）。

A．已知边长a、b、c，求三角形面积。

B．求用10元、20元和50元三种纸币组合支付360元的不同方案。

C．求2000以内的素数。

D．求所有的水仙花数的总和。

同类题5

某VB事件过程如下：
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text) ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = Str(a)
End Sub
程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（）

相关知识点