编写如下事件过程：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”，应按下的鼠标键为()。

  查看最佳答案

• 编写如下两个事件过程：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”键则输出( )。

  查看最佳答案

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

  查看最佳答案

• 在窗体上添加一个文本框，名称为 text1 ，然后编写如下的 load 事件过程，则程序的运行结果是 __________ 。 Private Sub Form_Load Text1.Text= Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End 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运行程序，单击窗体，标签中显示的是________。

  查看最佳答案

• 在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private SUb Form_CnCk（) Open"d:essmtext1.txt"For Input AS 1 Do While Not EOF（1)Line Iput 1,aspect$whole$=whole$+aspect$+Chf$（

  查看最佳答案

• 在窗体上设计如下两个事件过程： 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 键和鼠标左键

  查看最佳答案

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

  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是()。 A．4 B．5 C．6 D．7

  查看最佳答案

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

  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c = 1234 c1 = Trim(Str(C)) For i = 1 To 4 Print_____ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为 A．Right(c1,i) B．Left(c1,i) C．Mid(c1,i,1) D．Mid(c1,i,i)

  查看最佳答案

• 在窗体上画一个文本框，然后编写如下事件过程： 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（)a=1For i=1 To 3 Select Case i Case 1a=a+1

  设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是()。 A．3 B．4 C．5 D．6

  查看最佳答案

• 编写如下事件过程；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键和鼠标右键

  查看最佳答案

• 对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress （KeyAScii AS Integer) arr=Array（12，15，18，20，24) m1=arr（1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr（i)＞m1 Then m1=arr（i) m2=i End If Next i End

  A． N=0 Do N=N+1 Loop Until N＞=100 B． N=0 Do N=N+1 Loop While n＜100 C． N=0 N=N+1 Do Loop Until N＜100 D． N=0 Do While n＜100 N=N+1 Loop

  查看最佳答案

• 在窗体上画一个文本框，名称为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)=____

  查看最佳答案

• 在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown（KeyCode As Integer, Shift As Integer) Text1. Text=T

  查看最佳答案

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

  A．Right B．Left C．Val D．Mid

  查看最佳答案

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

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

  查看最佳答案

• 在窗体上有一个列表，然后编写如下两个事件过程： Private Sub Form_Click（) List1.RemoveItem 1:List1.RemoveItem 2 List1RemoveItem 3 End Sub Private Sub Form_Load（) List1.AddItem"ItemA":List1.AddItem"ItemB’P List1.AddItem"ItemC

  查看最佳答案

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

  查看最佳答案

• 在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的Muhiline属性设置为True，然后编写如下的事件过程： Private Sub Form_Click（) Open“d：estsmText1.txt"For lnput As1 Do While Not 【14】 Line lnput1，aspect＄whole＄=wholes+aspect＄+Chr＄（1

  查看最佳答案

• 在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form Load（) Open "C:dat.txt" For Output As1 Text1.Text="" End Sub Private Sub Text1_KeyPress（KeyAscii As integer) If______=13 Then If UCase（Text1.Text=______)

  A．KeyAscii "END" B．Text1.Text "END" C．Text1.Text 13 D．KeyAscii 13

  查看最佳答案