单项选择题
在窗体上画一个文本框,其名称为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.bbb
B.BBB
C.BB
D.bb
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
把窗体的KeyPreview属性设置为True,然后编写如下事件过程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Asc(UCase(ch)) PrintChr(KeyAscii+2) End Sub 程序运行后,按键盘上的“A”键,则在窗体上显示的内容是
A.A
B.B
C.C
D.D
点击查看答案&解析
单项选择题
阅读下列程序。 Private Sub Command1_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 Print Fun(k); Next End Sub Function Fun(j As Integer) Static b a=0 a=a + 1 b=b + 1 Fun=a*b+j End Function 程序运行后,单击命令按钮输出结果是
A.234
B.345
C.567
D.356
点击查看答案&解析
相关试题
在窗体上画一个名称为Commandl的命令按钮,...
在窗体上有一个命令按钮,然后编写如下事件...