题目内容
（请给出正确答案）
运行下列程序：
Private Sub Command1_Click()
Dim s1 As String * 1
Dim s2 As String
s1 = "a"
For i = Asc(s1) To Asc(s1) + 4
s2 = s2 & Chr(i)
Next i
Print s2
End Sub
单击Command1命令按钮后，则在窗体上显示的结果是()。
A.a
B.abcde
C.aaaa
D.s2
如果结果不匹配，请 联系老师 获取答案
更多“运行下列程序：Private Sub Command1_Cl…”相关的问题
运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
运行下列程序，显示的结果是
Private Sub Command34_Click()
i=0
Do
i=i+1
Loop While i＜10
MsgBox i
End Sub
A．0
B．1
C．10
D．11
A.234
B.1234
C.23
D.123
阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【 】按钮。
设窗体上有一个名为Text1的文本框，并编写如下程序：
Private Sub Form_Load（）
Show
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp（Button As Integer, _
Shift As Integer, X As Single, Y As Single）
Print "程序设计"
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
Print "Visual Basic";
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是（）。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计
设学生成绩表的结构为(学号、课程号、成绩).程序运行界面如下图1所示。
进入界面时学号、课程号列表由程序从数据库中自动读人到Combol 和 Combo2中;然后，用户选择相应的学号和课程号后，点击"确认"按钮，程序将从学生成绩表中删除对应的记录。
请补充完成下列程序代码。
Private Sub Commandl_ClickO
‘数据库联接对象已经创建，名称为ADOcn，可以全局使用
If MsgBox ("是否要删除？"，vbQuestion十vbYesNo) vbYes Then
‘拼写Delete语句
StrSQL=()
‘执行Delete语句
()
‘提示删除成功
()
End If
End Sub
Label2的标签，然后编写如下程序代码：
Private x As Integer
Private Sub Command1_Click()
a = 6: b = 4
Call sub1(a, b)
Label1.Caption = a
Label2.Caption = b
End Sub
Private Sub sub1(ByVal x As Integer, ByVal y As Integer)
a = x * x
b = y * y
End Sub
程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。
A.36和4
B.6和4
C.36和8
D.6和8
A.32
B.33
C.34
D.35
