下列程序: Private Sub Form_Click （）

下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub

有如下VB程序段： Private Sub Command1_Click（） Dim a As Long a=Val（Text1.Text） Print a End Sub 其中"Private Sub Command1_Click（）"的作用是（）。

下列程序输出结果为（ ）。 Private Sub Command1_Click() a%=10 b%=5 Change a,b Print a,b End Sub Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub

下列程序的执行结果为________Option Base 0Private Sub Command1_Click()Dim aa = Array(a, b, c, d, e, f, g)Print a(1); a(3); a(5)End sub

设有以下程序片段 ： Public x% Private y$ Private Sub Command1_Click() Dim a …… End Sub Private Sub Command2_Click() Static b …… End Sub 在 Command1_Click 过程中无法访问的变量是 ________ 。

设有如下程序代码 ： 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 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。

下列程序输出结果为（ ）。Private Sub Command1_Click()a%=10b%=5Change a,bPrint a,bEnd SubPrivate Sub Change(ByVal a As Integer,b As Integer)Tmp=aa=bb=tmpEnd Sub

下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub

下列程序代码的运行结果为（ ）。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub

阅读下列程序： Sub Med(x%,ByVal y%) x=3*x y=x+y End Sub Private Sub Form_Click() Dim a%,b% a=3 b=8 Med a,b Print a,b End Sub

单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜

单击窗体时，下列程序段的执行结果为（)。Private Sub Form_Crick（)Line（200,200)-（400,400)Print"+

单击一次命令结束后，下列程序的执行结果是 Private Sub Commandl_Click（) s=Sat（1)+Sat（2)+

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

在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress（Key

单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click（) BT 4 End Sub Private Sub BT（x As Integer) x=x*2+1 If x＜6 Then Call BT（x) End If x=x*2 Print x； End Sub Ａ) 15 Ｂ) 16 Ｃ) 17 Ｄ) 18

下列程序段的执行结果为Private Sub Command1_Click（） Text1.Text=c End Sub程序运行后，如果从键盘上输入’16’，则在文本框显示的内容是______

20、下列程序代码的运行结果为（）。 Private Sub Command1_Click（) For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub

在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A和B、C、D或a、b、c、d，则在第二个文本框中显示EFDH。请完善下列程序。 Private Sub Form_Load（) Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_KeyDown（KeyCode As Integ

在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form_Load（) Check1.Caption="显示粗体" Check2.Caption="显示斜体" Text1.Text="May you a happy day!" End Sub Private Sub Check1_Click（)

下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As IntegerOpen 【9】 As 1For i=1 To 10 Print 1 ,i Next Close 1End Sub

下列程序的功能是：将数据1,2…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As Integer Open "Base. txt" For Output As 1 For i=1 To 10 【15】 Next Close 1 End Sub

下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub

下列程序的执行结果为（）。 Private Sub Commandl_Click（) Dim X As Integer，y As Integer x=12：y=20 Call Value（x，y) Print X；y End Sub Private Sub Value（ByVal m As Integer，ByVal n As Integer) m=m * 2：n=n-5 Print m；n