单项选择题
在窗体上画一个文本框(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
点击查看答案
相关试题
fum1=b
a<b
有时候需要暂时关闭计时器,这可以通过__...
假定有以下当循环: While Not条件 循环...
fumA(x, y)