在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。请填空。 Private Sub Option1_Click（Index As Integer)Select Case 【10】 Case 0 a=“宋体” Case 1 a=“黑体” Case 2 a=

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim c As Integer，n As Integer For c=0 To 50 c=c+3 n=n+1 Ifc＞10Then Exit For Next c Text1.Text=Str（n） End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（）

在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： https://assets.asklib.com/images/image2/2017110811221976005.jpg 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）

在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（） Dim x As Integer，n As Integer x=1 n=0 DoWhilex＜20 x=x*3 n=n+1 Loop Text1.Text=Str（x） Text2.Text=Str（n） End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是（）

在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:Private Sub Command1_Click( )n %= Text1.TextSelect Case nCase 1 to 20x=10Case 2,4,6x=20Case Is<10x=30Case 10x=40End SelectText2.Text=xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：  Private Sub Command1_Click() A =Inputbox(\Enter An Integer\)  B =Inputbox(\Enter An Integer\)  Text1.Text = B +A  End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是_______。

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+5n=n+1Ifi>30ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是______。（5.0分）

在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Commandl_click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是()。

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("Enter an integer") b=InputBox("Enter an integer") Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名数为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示。请填空。

在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在（）处填入适当的内容，将程序补充完整。

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) Dim array1（10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Priva

在窗体上画二个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click（)Dim x,y,z As Integerx=5y=7z=0Texttext=“”Call P1（x,y,z)TextText=Str（z)End SubSub P1（ByVal a As Integer,By

在窗体上画一个名称为Text1的文本框，然后编写如下事件过程：PrivatSuForm_Load（）。程序运行后，如果按Shift+F2键，则文本框中的内容是（）

在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load（) Open"d:empdat.txt"For Output As 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress（KeyAscii As Integer) If______=13 ThenIf UCase（Text1.Text)=____

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在 【6】 处填入适当的内容，将程序补充完整。 Private Sub Form_Load（)Command1.Enabled=False End Sub Private Sub Text1 【6】 （)Com

在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click（) Text1.Text = InputBox（"请输入数据1") Text2.Text = InputBox（"请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click（) Open"c:est.dat"For ______ As 1 For i=1 to Len（Text1.text)

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click（) Open"c：est.dat"For Output As 1 For I=1 to Len（Text1.text

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click（) Open "C:est.dat" For______As 1 For i=1 to Len（Text1.text)

在窗体上画一个名称为Text1的文本框和名称为HScrolll的水平滚动条（Max属性为 10，Min属性为0)，然后画两个标题分别为“慢”和“快”的标签。程序运行后，移动滚动块，如果滚动块位于滚动条的正中间位置，则在文本框中显示“适中”；如果滚动块位于滚动条的正中间位置的左侧，则在文本框中显示“慢”；如果滚动块位于滚动条的正中间位置的右侧，则在文本框中显示“快”，如下图所示。请填空。 Priva