1、过程定义如下，单击按钮后标签上的文字为________。 Sub ProcString（ByVal m$) m = Mid（m, 7, 2) End Sub Private Sub Command1_Click（) Dim s$ s = "VB.NET程序设计" Call ProcString（s) Label1.Caption = s End Sub

在Word中，利用__（1）__功能按钮，可以在画好的图形内填充颜色；单击"绘图"工具栏上的"椭圆"按钮后，再按住__（2）__键进行绘制可确保绘出一个圆形。  

在Word中，利用__（1）__功能按钮，可以在画好的图形内填充颜色；单击"绘图"工具栏上的"椭圆"按钮后，再按住__（2）__键进行绘制可确保绘出一个圆形。  空白（2）处应选择（）

设窗体上有一个名称为 Option1 的单选按钮数组（其下标从 0 开始），共有 4 个单选按钮，并有下面事件过程： Private Sub Option1_Click(Index As Integer) n = Index If Index < 3 Then n = n + 1 Print Option1(n).Caption End Sub 程序运行时，单击其中一个单选按钮，则在窗体上显示的是 ________ 。

在Word中，要将选定的文字的字形倾斜，可单击“开始”选项卡中“字体”组中的________按钮。

在“文字编辑器”选项卡的_______________面板中单击“符号”按钮，在弹出的菜单中选择相应的选项，即可插入特殊符号。

在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：Private Sub Command1_Click（）Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是_____。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。

编写如下程序：PrivateSubCommand1_Click()DimscoreAsIntegerscore=90Ifscore>80Thenr=5ElseIfscore>60Thenr=3Elser=1EndIfPrintrEndSub程序运行后，单击命令按钮Command1，输出结果为（______）。（5.0分）

在窗体上画一个命令按钮和一个文本框，其名称分别为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分）

设有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=30y=8f=x*yEndFunction在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程PrivateSubCommand1_Click()StaticxAsIntegerx=15y=6y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_____。

窗体上有名称为Command1的命令按钮，名称分别为Label1、Label2、Label3的标签。编写如下程序：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=8z=z+ny=y+nx=x+yLabel1=xLabel2=yLabel3=zEndSub运行程序时，连续3次单击命令按钮后，3个标签中分别显示的是________、_________、____________。

窗体上有一个名称为 Command1 的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open \c:\\f1.txt\ For Input As #1 Open \c:\\f2.txt\ For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 ________ 。

编写如下程序：Private Sub Command1_Click()Dim score As Integerscore = 90If score > 80 Thenr = 5ElseIf score > 60 Thenr = 3Elser = 1End IfPrint rEnd Sub程序运行后，单击命令按钮Command1，输出结果为（______）。

43．在Word和，要在文档中画出一个1/4圆弧，可以通过单击“弧”按钮后拖动鼠标的同时按住______键来实现。

以下是宏m的操作序列设计： 条件 操作序列 操作参数 MsgBox 消息为“AA” [tt]＞1 MsgBox 消息为“BB” … MsgBox 消息为“CC” 现设置宏m为窗体“fTest”上名为“bTest”命令按钮的单击事件属性，打开窗体“fTest”运行后，在窗体上名为“tt”的文本框内输入数字1，然后单击命令按钮bTest，则______。

在窗体上画一个命令按钮和一个文本框，其名称分别为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的命令按钮，编写如下程序： Private Sub Command1_Click（) Dim M（10)As Integer For k=1 To 10 M（k)=12-k Next k x=6 Print M（2+M（x)) End Sub 程序运行后，单击命令按钮，输出的结果是______。

有如下一个函数过程：<img src='https://img2.soutiyun.com/shangxueba/ask/1284001-1287000/1286932/ct_cstvbm_ctvbbchoose_00027(200912).jpg' />运行该程序，单击命令按钮，输出结果是______。

在金山文字中插入了表格后，右击表格→______→______设置表格的外边框线；右击表格→______→______设置表格的外边框线；在“表格”工具栏中单击______按钮并某个单元格对线之间拖动，可以画出一条斜线。

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

在窗体上添加1个名称为Command1的命令按钮，编写以下程序，其功能是，单击命令按钮，在窗体上输出n!（用递归实现的）。请填空。n!的递归定义如下： 1 n=1 n!= n*（n-1)! n＞1 Private Function f1（ByVal n As Long) As Long If n = 1 Then ______（1)______ Else f1 =______（2)______ End If End Function Private Sub Command1_Click（) Dim n As Long, result As Long n =Val（InputBox（"请输入n：")) result = f1（______（3)______) Print n; "!= "; result End Sub 完善程序，在答题时，务必在答题框中写好题号和答案，如下： （1)： _________ （2)： _________ （3)： _________

在窗体上画一个名称为Commandl的命令按钮，然后编写如下： Private Sub Commandl_Click（）Static X As Integer Static Y As Integer Cis Y=1 Y=Y+5 X=5+X Print X，Y End Sub 运行时，3次单击命令按钮Commandl后，窗体上显示的结果为____