题目内容
（请给出正确答案）
执行下面的程序，单击窗体后在窗体上显示的第一行结果是（），第三行结果是（）。
Private Sub Command1_Click()
s1="B"
For i = 1 To 3
s2=LCase(s1)
s1=s1 & s2
s=s & s1
Print s
s1=Chr(Asc(s1)+i)
Next i
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“执行下面的程序，单击窗体后在窗体上显示的第一行结果是（），第…”相关的问题
假定建立了一个工程，该工程包括两个窗体，其名称(Name属性)分别为Form1和Form2，启动窗体为Form1。在Form1上画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请将下面的程序补充完整。 Private Sub Command1_Click() 【 】Form1 Form2.【 】 End Sub
A.-5
B.25
C.-1
D.1
在窗体上面有一个列表，然后编写如下两个事件过程： Private Sub Form_Click() List1.RemoveItem 1：List1.RemoveItem2 List1.RemoveItem 3 End Sub Private Sub Form_Loab() List1.AddItem "ItemA ":List1.AddItem "Item B" List1.AddItem"Item C"：List1.AddItem "ItemD" List1.AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是【 】。
A.0
B.5
C.6
D.7
在窗体上画一个列表框，然后编写如下两个事件过程： Private Sub Form_Click() List1．RemoveItem 1 List1．Removeltem 3 List1．RemoveItem 1 End Sub Private Sub Form. Load() List1．AddItem "ItemA" List1．AddItem "ItemB" List1．AddItem "ItemC" List1．AddItem "ItemD" List1．AddItem "ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中所显示的项目为【 】。
在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x = Val(InputBox("请输入一个整数"))
Print x + Text1.Text
End Sub
程序运行时，在文本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。
A.46
B.123
C.3412
D.1234
在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【 】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。
窗体中有两个命令按钮：“显示”(控件名为CmdDisplay)和“测试”(控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click() Answer=【 】 ("隐藏按钮") IF Answer=vbOK then CmdDisplay. visible=【 】 Else End End IF End Sub
在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x； End Sub 程序执行后，单击Command1命令按钮，输出的结果是【 】。
