A.在文本框中显示120
B.文本框中仍为空
C.在文本框中显示480
D.出错
[单选题]在窗体上一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSubText2_KeyPress(KeyAsciiAsInteger)D.imstrAsString,nAsIntegerstr=Ucase(Chr(KeyAscii))n=Len(str)Text1=String(n,str)E.ndSub程序运行后,如果在TEXT2中通过键盘上输入单字母"k",则在文本框Text1中显示的内容为( )A.kB.KC.KKD.Kk
[单选题]在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是( )。 Private Sub Form_Load Text1.Text=" " Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End SubA.在文本框中显示120B.文本框中仍为空C.在文本框中显示1D.出错
[单选题]在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是______ 。 private sub form_ load text1.text=“” text1.setfocus for k=1 to 5 t=t*k next k text1.text=t end subA. 在文本框中显示120B.文本框中仍为空C.在文本框中显示1D.出错
[单选题]在窗体上添加一个文本框Text1,然后编写如下的Load事件过程,则程序运行结果为( )。 Private sub Form_Load() Text1.Text="" Text1.SetFocus For k=1 To 5 t=t*k Next k Text1.Text=t End SubA.在文本框中显示120B.文本框中仍为空C.在文本框中显示1D.出错
[单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)D.im str As StringStr=Chr(KeyAscii)KeyAscii=Asc(UCase (str))Textl.Text=String(2, KeyAscii)E.nd Sub程序运行后,如果在键盘上输入字母"b",则在文本框Text1中显示的内容是A.bbbB.BBBC.BBD.bb
[单选题]在窗体上面有一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) TextText=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则在文本框Text1中显示的内容为( )。A.aaaB.AAAC.AAD.aa
[单选题]在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim sb As String Str=Chr(KcyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框Text1中显示的内容是A.bbbB.BBBC.BBD.bb
[单选题]在窗体上添加一个文本框Text 1,然后编写如下的Load事件过程,则程序运行结果为( )。 Private Sub Form_Load0 Text1. Text="" Text1. SetFocus For k = 1 To 5 t=t*k Next k Text1.Text = tEnd SubA.在文本框中显示120B.文本框中仍为空C.在文本框中显示1D.出错
[单选题]在窗体上画1个文本框,其名称为Text1,然后编写如下过程:Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode)E.nd SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+2)E.nd Sub程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为。A.AA.B.AB.
[单选题]在窗体上面有一个文本框,其名称为Text1,编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则在文本框Text3中显示的内容为( )。A.aaaB.AAAC.AAD.aa