更多"在窗体上画一个文本框,然后编写如下程序: Option Base 1"的相关试题:
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click( ) Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序,单击命令按钮,其输出结果是______ 。
A. 4321
B. 12
C. 34
D. 1234
[单项选择]执行以下语句过程,在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click( )
Dim d
d=Array("a","b","c","d")
Print d(1);d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]执行以下语句过程,在窗体上显示的内容是 Option Base 0 Private Sub Command3_Click( ) Dim d d=Array("a","b","c","d") Print d(1);d(3) End Sub
A. ab
B. bd
C. ac
D. 出错
[单项选择]在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(Key Ascii) KeyAscii=Asc(UCase(char)) Text1.Text=Sting(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为______。
A. a
B. A
C. aaaaaaa
D. AAAAAAA
[单项选择]在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Form_Click( )
x = InputBox("请输入一个整数")
Print x + Text1.Text
End Sub 程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确 定”按钮后,在窗体上显示的内容为______。
A. 123
B. 456
C. 479
D. 123456
[单项选择]在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程: Private Sub TxtA_KeyPress(keyaseii as integer) …… End Sub 若焦点位于文本框中,则能够触发KeyPress事件的操作是
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文稿本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:
Private Sub TxtA_KeyPress(KeyAscii As Integer)
End Sub
假定焦点已经位于文本框中,则能够触发KeyPress事件的操作是【 】
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键
[单项选择]在窗体上画一个文本框(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