单项选择题

在窗体上画一个文本框(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
相关试题
  • 在窗体上画一个文本框,然后编写如下代码:...