在窗体上有一个命令按钮和一个文本框,其名称分别为Command1和text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivatesubCommand1_click()A=inputbox(“Enteraninteger”)B=inputbox(“Enteraninteger”)Text1.text=b+aEndsub程序运行后,单击命令按钮,如果在输入对话框里输入8和10,则文本框中显示的内容是()。
A.108
B.18
C.810
D.出错
A.108
B.18
C.810
D.出错
窗体上有4个文本框控件数组text1()和一个命令按钮,程序运行前如左图所示,程序运行后如右图所示。给定的程序不完整,将程序补充完整。
Dim x(3)As Integer Private Sub Command1_Click () For i = 0 To 3 x(i)=【 】 Next i For i = 0 To UBound(x)- 1 For j = i To UBound(x) If【 】Then t = x(i) x(i)= x(j) x(j)= t End If Next j Next i For i = 0 To 3 Text1(i) .Text = Str(x(i)) Next i End Sub
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer, y As Integer) M=IIf(x>y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后,单击命令按钮,输出结果为【 】。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮Command1变为可用。请在【 】处填入适当的内容,将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1), 然后编写如下事件过程: Private Sub Command1 Click() Text1.Text=InputBox("请输入数据1") TextText=InputBox("请输入数据2) End Sub 程序运行后,如果单击命令按钮,将先后显示两个输入对话框,在两个输入对话框中分别输入123和abc,则两个文本框中显示的内容分别为【 】和【 】。
在窗体上画一个文本框和一个命令按钮,如下图所示。
编写如下程序: Private Sub Form_Load() Show Text1.Text=" " Form1.KeyPreview=False Text1.SetFocus End Sub Private Sub Command1_Click() KeyPreview=Not KeyPreview Print End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii+1)); End Sub Private sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii+2) KeyAscii=0 End Sub 阅读以上程序,理解每个事件过程的操作,然后填空。 ①程序运行后,直接从键盘上输入abc,程序输出的结果是【 】。 ②程序运行后,单击一次“命令按钮1”,然后从键盘上输入abc,程序输出的结果是【 】。
在窗体上有5个控件:一个名称为Text1的文本框控件,用来显示文本;两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框;两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时,文本框中显示的字体加下划线,当Option2被选中时,文字框中显示的字体大小为16磅,程序运行时的界面如图20-5所示。请填空。
Private Sub Check1_Click() If Check1.Value=【 】Then Text1.FontUnderline=True Else Text1.FontUnderline=False End If End Sub Private Sub Option2_Click() Text1.【 】 End Sub