单项选择题

在窗体上画一个文本框(Textl)，然后编写如下事件过程：
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
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim n As Integer For n = 0 To 9 Step 3 Print rel(n)； Next n End Sub Private Function rel(ByVal i As Integer)As Integer Dim x As Integer x = 0 For j = 1 To i If i ＜ 5 Then rel = i： EXit Function x = x + i Next i rel = x End Function 程序运行后，单击命令按钮，则窗体上显示的内容是
A．1 3 5 7
B．2 8 14 53
C．0 3 21 45
D．0 5 11 34
单项选择题
在窗体上画一个命令按钮，然后编写如下程序： Function funl(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
相关试题