设有如下窗体单击事件过程：Private Sub Form_Click（)a=1For i=1 To 3 Select Case i Case 1a=a+1

设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）

窗体上有一个名称为Commad1的命令按钮，其事件过程如下：Private Sub Command1_Click()x = VisualBasicProgramminga = Right(x, 11)b = Mid(x, 7, 5)c = MsgBox(a, , b)End Sub运行程序后单击命令按钮。以下叙述中错误的是（2008年4月）

设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

假定有如下的Sub过程：Sub fun(x As Single, y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As SingleDim b As Singlea = 6b = 4fun a, bPrint a, bEnd Sub程序运行后，单击命令按钮，输出结果为（ ）。

在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是_____。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：Private Sub Command1

在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click（） Next i Print Dec End Sub 程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个二进制数,并单击“确定”按钮,则把该二进制数转换为等值的十进制数。这个程序不完整,应在横线处填入的内容是

窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1窗体中有一个命令按钮Command1和一个文本框Text1。其中Command1的Click事件过程如下。 Private Sub Command1_Click（）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Comma

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click（)

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下： Private Sub Command1 Click（） Static x A S Integer x=f(x+5) Cls Print X End Sub Private Function f(x As Integer)As Integer f=x+x End Function 连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（）。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（)

◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。

在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 （8) 和 （9) 。

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) Fori=1 To 4 K=4 For j=1 To 3 K=3 For k=1 To 2 K=X+6 Next k Next j Next i Print X End Sub 程序运行后，单击命令按钮，输出结果是 【14】 。

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click（）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（)n=5f=1s=0For i=1 To n f= 【12】 s=s+fNextPrint s End Sub 该事件过程的功能是计算的值。请填空。

窗体中有两个命令按钮：“显示”（控件名为CmdDisplay)和“测试”（控件名为CmdTest)。单击“测试”按钮时，执行如下事件过程。此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮。否则退出。根据题意，请完善下列程序。 Private Sub CmdTest_Click（) Answer= 【6】 （"隐藏按钮") IF Answer=vbOK thenC

在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click（) Text1.Text=“VB程序设计” End Sub PrivmeSubText1_Change（) Picture1.Print"VB Programming" End Sub 程序运行后，单击窗体，则在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Commandl_Click （)n = 6f = 1s = 0For i = 1 To n f = 【4】 s = s + fNextPrint sEnd Sub 该事件过程的功能是计算s=1+1/2+1/3+…+1/n的值。请填空。