单项选择题

在窗体上画一个文本框(Text1),然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim char As String
  char = Chr(KeyAscii)
  KeyAscii = Asc(UCase(char))
  Print String(4, KeyAscii)
End Sub
程序运行后,在输入文本框Text1中输入"A",则程序在窗体上的输出结果为________。

A.a
B.A
C.aaaa
D.AAAA
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个命令按钮,然后编写如下程序: Function fun1(ByVal Bum As Long)As Long Dim k As Long k = 0 Bum = Abs(Bum) Do While Bum k = k + (Bum Mod 10) Bum = Bum 10 Loop fun1= k End Function Private Sub Command1_Click( ) Dim n As Long n = InputBox( 请输入一个数 ) Print fun1(n) End Sub 程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为________。
A.3
B.4
C.9
D.10
单项选择题
在窗体上画一个名称为Command1的命令按钮。有下列程序: Option Base 1 Private Sub Command1_Click( ) Dim a a = Array(45, 27, 34, 24, 91, 37, 11, 67, 82, 63) For i = 1 To 9 For j = i + 1 To 10 If a(i)> a(j)Then a1 = a(i) a(i)= a(j) a(j)= a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 程序运行后,单击命令按钮,则窗体上第二行和第三行显示的内容是________。
A.27和34
B.34和24
C.45和63
D.24和27
相关试题
  • 在运行时,按Tab键跳过了一个可以获得焦点...
  • 在 VisualBasic中,要遍历一个对象集合中...
  • 以下叙述中错误的是________。
  • 软件开发的结构化生命周期方法将软件生命周...
  • 下列程序 Private Sub Command1_Click...