某VB程序段如下：PrivateSubCommand1_Click()DimaAsIntegerDimbAsBooleana=(a+1)*2b=a-1print_刷题宝

题干

某VB程序段如下：
Private Sub Command1_Click()
Dim a As Integer
Dim b As Boolean
a = (a + 1) * 2
b = a - 1
print a:print b
End Sub
程序运行时，单击命令按钮Command1后，变量a和b的值分别是（）

A．2 1

B．2 true

C．4 -1

D．4 False

上一题下一题 0.99难度选择题更新时间:2019-03-02 02:54:45

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

同类题1

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If prime(i) Then ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If a(i) =" a(i" +1)+2 Then ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i)):学#科#网Z#X#X#K
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If x Mod i =" 0" Then
prime = True
Exit For
End If
Next i
End Function

同类题2

以下属于输入函数的是（）。

同类题3

在VB中，设整型变量x、y的值分别是3、6，则下列语句中，能实现在标签Label1中显示“s = 18”的语句是（）

A．Label1.Caption = "s = x * y"

B．Label1.Caption = "s = " + Str(x * y)

C．Label1 = "s = " (x + y)＾ 2

D．Label1.Caption = "s = " + Val(x * y)

同类题4

某Visual Basic工程的相关视图如下图所示：

从图中信息可知，下列说法不正确的是( )

A．窗体中有一个按钮对象，名称为Command1

B．该程序中用到了Timer控件

C．当前代码窗口中显示的事件处理过程名为“Command1_Click”

D．该工程的窗体文件名“snow.vbp”

同类题5

（加试题）有如下VB程序段：
Dim a(1 To 6) As String
Text1.Text = ""
For i = 1 To 3
For j = 1 To 6 - i
If a(j) < a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.Text = Text1.Text + a(j)
Next i
数组元素a(1)到a(6)的值依次是“231”，“123”，“12”，“59”，“41”，“33”。若该程序段执行后，文本框Text1显示的内容是（）

相关知识点