单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:　　Private Sub Command1_Click()　　　c = 1234　　　c1 = Trim(Str(c))　　　For i = 1 To 4　　　　Print_____　　　Next　　End Sub　　程序运行后，单击命令按钮，要求在窗体上显示如下内容　　1　　12　　123　　1234　　则在下划线处应填入的内容为

A．Right(c1,
B．Left(c1,
C．Mid(c1,i,1)
D．Mid(c1,i,
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
A．Private Sub Text1_KeyPress(KeyAscii As Intege　　　　If KeyAscii < 65 Or KeyAscii > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyAscii = 0　　　　　End If　　　　End Sub
B．Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intege　　　　If KeyCode < 65 Or KeyCode > 90 Then　　　　　　MsgBox "请输入大写字母"　　　　　　KeyCode = 0　　　　　End If　　　　End Sub
C．Private Sub Text1_MouseDown(Button As Integer,_　　　　　　　Shift As Integer, X As Single, Y As Singl　　　　If Asc(Text1.Tex < 65 Or Asc(Text1.Tex > 90 Then　　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub
D．Private Sub Text1_Change()　　　　If Asc(Text1.Tex ＞ 64 And Asc(Text1.Tex ＜ 91 Then　　　　　　MsgBox "请输入大写字母"　　　　　End If　　　　End Sub
单项选择题
在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(1,2,3,4)；j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是
A．4321
B．1234
C．34
D．12
相关试题