阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【 】按钮。

相似题目

• 设有如下程序： 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 程序运行后，单击窗体，则在窗体上显示的是（）

  A . 4；3；2；1 B . 5；4；3；2 C . 6；5；4；3 D . 7；6；5；4

  查看最佳答案

• 编写如下事件过程： Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer) If (Button And 3) = 3 Then Print AAAA End If End Sub 程序运行后，为了在窗体上输出 “AAAA”，应按下的鼠标键为()。

  查看最佳答案

• 编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出( )。

  查看最佳答案

• 设有如下程序代码 ： 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 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 Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd Sub运行程序，单击窗体，输出结果是________。

  查看最佳答案

• 编写如下事件过程：Private Sub Form_KeyDown（KeyCode As Integer，Shift As Integer) If（Button A

  编写如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) If(Button And 3)=3 Then Print "AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为 ______。 A．左 B．右 C．同时按下左、右 D．按什么键都不显示

  查看最佳答案

• 在窗体上画一个名称为CD1的通用对话框，并有如下程序： Private Sub Form_Load（） CD1．DefaultExt="doc" CD1．FileName="C：＼filel．txt" CD1．Filter"应用程序(*．exe)|*．exe" End Sub 程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是（）。

  A.应用程序(*．exe) B.*．doc C.*．txt D.不确定

  查看最佳答案

• 在窗体上设计如下两个事件过程： Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer)Print Chr（KeyCode) End Sub Private Sub Form_KeyPress（KeyAscii As Integer)Print Chr（KeyAscii) End Sub 在程序运行后，按“a”键（不按住Shift

  查看最佳答案

• 编写如下事件过程；Private Sub Form_ MouseDown （Button As Integer, Shift As Integer, X As Si

  编写如下事件过程； Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As SinglE)If Shift = 6 And Button = 1 Then Print "BBBB" End If End Sub程序运行后，为了在窗体上输出 “BBBB”，应执行的操作为______。 A．同时按下Shift 键和鼠标左键 B．同时Ctrl、Alt 键和鼠标左键 C．同时按下Shift 键和鼠标右键 D．同时按下Ctrl、Alt 键和鼠标左键

  查看最佳答案

• 下列程序: Private Sub Form_Click （）

  A．1 B．12345678910 C．10 D．显示出错信息

  查看最佳答案

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

  单击窗体时，下列程序段的执行结果为()。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub A．在窗体上画一斜线，从斜线终点处开始打印两行符号 B．在窗体上画一斜线，从斜线起点处开始打印两行符号 C．在窗体上画一斜线，从窗体左上角开始打印两行符号 D．从窗体左上角开始打印两行符号，从符号结束处开始画一斜线

  查看最佳答案

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

  A．123 B．456 C．579 D．123456

  查看最佳答案

• 编写如下事件过程：Private Sub Form-MouseDown（Button As Integer,Shift As Integer,X As Single

  编写如下事件过程： Private Sub Form-MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Shift=6 And Button=2 Then Print"Hello" End If End Sub 程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下()操作。 A．同时按下Shift键和鼠标左键 B．同时按下Shift键和鼠标右键 C．同时按下Ctrl、Alt键和鼠标左键 D．同时按下Ctrl、Alt键和鼠标右键

  查看最佳答案

• 有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I

  有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。 A．12 B．30 C．24 D．18

  查看最佳答案

• 编写如下事件过程；Private Sub Form_MouseDown（Button As Integer,Shift As Integer,X AS Single

  编写如下事件过程； Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X AS Single， Y As Single) If Shif=6 And Button=2 Then Print"BBBB" End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。 A．同时按下Shift键和鼠标左键 B．同时按下Shift键和鼠标右键 C．同时按下Ctrl、Alt键和鼠标左键 D．同时按下Ctrl、Alt键和鼠标右键

  查看最佳答案

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

  查看最佳答案

• 在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load（) Open"d:empdat.txt"For Output As 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress（KeyAscii As Integer) If______=13 ThenIf UCase（Text1.Text)=____

  查看最佳答案

• 有如下程序：Option Base 1Private Sub Form Click（）Dim arr,SumSum=0 arr=Array（1,3,5,7,9,11,13,15,17,19）For i=1 To 10If arr（i）/3=arr（i）//3 ThenSum=Sum+arr（i） En

  A．A.25 B．B.26 C．C.27 D．D.28

  查看最佳答案

• 在窗体上画1个文本框，名称为Text1，然后编写如下程序：Private Sub Form_Load（)Open &quot;d:empdat.txt&quot; For Output As 1Text1.Text=&quot; &quot;End SubPrivate Sub Text1 KeyPress（KeyAscii As Integer)If （）=13 ThenIf UCase（Tex

  查看最佳答案

• 在窗体中有一个文本框Test1，编写事件代码如下：Private Sub Form_Click（）

  A．1 B．2 C．3 D．4

  查看最佳答案

• 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,

  A．Forml的Caption属性值为100 B．Form2的Caption属性值为-100 C．Form1的Caption属性值为-100 D．Form2的Caption属性值为100

  查看最佳答案

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

  查看最佳答案

• 程序如下： Private Sub Form_Click（)Const PI=3.14159Dim r As Single，S As SingleR=InputBox（"请输入圆的半径"，"输入数据"，"50")S = PI*r*rPrint "S="；Format（S，"，.") End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入数据35，单击“确定”按钮后，输出结果为 【9】 。

  查看最佳答案