某VB程序段如下：PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)x=x\2+1Text1.Te_刷题宝

题干

某 VB 程序段如下：
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.Text)
x = x \ 2 + 1
Text1.Text = Str(x)
End Sub
程序运行时，在文本框 Text1 输入 13 时，连续两次单击命令按钮 Command1 后，文本框 Text1中显示的内容是（）

A．6

B．7

C．4

D．5

上一题下一题 0.99难度选择题更新时间:2019-05-11 05:38:50

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

同类题1

下列为部分VB程序语句代码：( )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后，s的值为2，则循环语句的步长（划横线处）应填( )

同类题2

如果x=4，那么以下运算结果为True的表达式是（）

A．(x<=4)and(x>=6)

B．(x>4)Or(x>=6)

C．(x>="4)and" not(x>=6)

同类题3

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将
____________属性的属性值修改为“转换”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If_________Then '(选填字母,从下列A、B、C、D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While__________'(选填字母,从下列A、B、C、D四个选项中选取一项）
f =" i" * 9 / 5 + 32 '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
_________'（填程序代码）
Loop
End Sub
划线①、②处的选项:

同类题4

ABS（INT（-3.6））的值是_____。

同类题5

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good" '①
b = "bye" '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

相关知识点