未分类题

在窗体上面有一个文本框，其名称为Text1，编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A.aaa
B.AAA
C.AA
D.aa

A.Text=String(2，KeyAscii)
B.aaa
B.AAA
C.AA

【参考答案】

B
解析：UCase(SB)将sb转成大写的字符串：String(n,character)返回n个重复的字符，如......

(↓↓↓ 点击下方‘点击查看答案’看完整答案 ↓↓↓)

<上一题目录下一题>

热门试题

未分类题

某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，应做的修改是( )。A.通过属性窗口把计时器的Interval属性设置为2000B.通过属性窗口把计时器的Enabled属性设置为FalseC.把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$D.把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

A.Caption=Time$
B.通过属性窗口把计时器的Interval属性设置为2000
B.通过属性窗口把计时器的Enabled属性设置为False
C.把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$

未分类题

在窗体上添加一个命令按钮，名为Command1，其单击事件中有如下程序段，则事件过程执行后，文本框中输出( )。 For i=1 To 4 For j=1 To 3 x=3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Text=Str(x)A.3B.6C.9D.12

A.Text=Str(x)
A.3
B.6
C.9

相关试题