下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：____________________ 。PrivateSubComman_刷题宝

题干

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：____________________ 。
Private Sub Command1 Click
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-24 11:38:25

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

同类题1

有如下VB程序段：
Dim i As Integer, sum As Integer
Dim a(1 To 8) As Integer
sum = 1
a(8) = 49: a(7) = 28
For i = 6 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
If a(i) Mod 3 = 0 Then sum = sum + a(i)
Next i
text1.Text = Str(sum)
该段程序运行后，文本框Text1中显示的内容是（）

同类题2

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT

同类题3

在Visual Basic中，下列循环程序段输出“*”的个数最小的是（）

A．	B．
C．	D．

同类题4

编写VB程序，实现把数据key插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)，a(2)，a(3)，……，a(10)中，VB程序段如下：
i=1: j=10
Do While i<=j
m=(i+j)\2
If key <= a(m)Then
①
Else
②
End If
Loop
For k=10 To i Step-1
③
Next k
a(i)=key
要使程序实现上述功能，则划线处①②③中的语句分别是（   ）

A．j=m-1 i=m+1 a(k+1)=a(k)

B．j=m-1 i=m+1 a(k)=a(k-1)

C．i=m+1 j=m-1 a(k+1)=a(k)

D．i=m+1 j=m-1 a(k)=a(k-1)

同类题5

某算法流程图如图所示，执行该算法，循环结束时i的值是

相关知识点