(1)考生文件夹下的工程文件sjl3．vbp中有一个菜单、两个标签和两个文本框。程序运行时，用鼠标右键单击窗体会弹出一个弹出式菜单(如图1-213所示)。当选中“计算100以内自然数之和”菜单项时，将计算100以内自然数之和并放入Textl中；当选中“计算7!”菜单项时，将计算7!并放入Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。(2)考生文件夹下的工程文件sjt4．vbp中有如图1-214所示的控件。程序功能如下：程序运行时，在Textl中输入一个商品名称，在Text7．中输入一个数量，单击“计算”按钮，则会在列表框中找到该商品的单价，乘以数量后显示在Text3中(如图1-214所示)；若输入的商品名称是错误的，则在Text3中显示“无此商品”(为方便编程，列表框中的每个单价均为4位(含小数点))。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
当计时器控件的______属性为True时，计时器控件的______事件经过一定的时间间隔就发生一次，时间间隔由______属性决定。
在表达式2+3*4^5-Sin(x+1)／2中，首先进行的运算是( )。
下面程序运行后，语句“Print i”执行的次数是( )。 Private Sub Form_Click() Dim i As Integer,j As Integer i=0 Do i=i+1 Forj=10 To 1 Step-3 i=i+j Print i Next j Loop While i<50 End Sub
以下程序用于求S=1+3+32+33+…+310的值。Private Sub Commandl_Click() S=1 T=1 ForI=1 To 10 T=______ S=S+T NextI Print"S="；S End Sub
在考生文件夹下有文件in15.txt，文件中有几行汉字。请在Form1的窗体上绘制一个文本框，名称为Text1；能显示多行；再绘制一个命令按钮，名称为Cmd1，标题为Save。编写适当的事件过程，使得在加载窗体时，把in15.txt文件的内容显示在文本框中，然后在文本的最后面手工插入一行字：“计算机等级考试VisualBasic。”如下图所示。最后单击．Save按钮，可以把文本框中修改过的内容存到文件out15.txt中。注意：只能在最后面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以execise15.vbp为文件名存储工程文件，以execise15.frm为文件名存储窗体文件。
在窗体上画一个文体框(其Name属性为Text1)，然后编写如下事件姓程； Private Sub Fom_Load() Text1.Text="" Text1.SetFocus For i=1 To 10 Stun=Stun +i Next i Text1.Text=Sum End Sub 上述程序的运行结果是______。
在考生文件夹中有一个工程文件execise35.vbp，相应的窗体文件名为execise35.frm。请在名为Form1的窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“大小写转换”的命令按钮，如下图所示。在程序运行时，单击“大小写转换”按钮，可以把Text1中的大写字母转换为小写，把小写字母转换为大写。窗体文件中已经给出了“大小写转换”按钮的Click事件过程，但不完整，请去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容。注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件o
在考生文件夹下有一个工程文件sjt5．vbp，相应的窗体文件为sjt5．frm，此外还有一个名为datain．txt的文本文件，其内容如下：32437658281298573142536475869713243546576879805937程序运行后单击窗体，将把文件datain．txt中的数据输入到二维数数组Mat中，在窗体上按5行、5列的矩阵形式显示出来，然后交换矩阵第二列和第四列的数据，并在窗体上输出交换后的矩阵，如图1-15所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的?改为正确的内容(可以是多行)，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
单击命令按钮时，下列程序段的执行结果是（ ）。 Private Sub Commandl Click() Dim a As Integer'b As Integer，c As Integer a=2：b=4：c=6 Call Sl(a，b)Print“a=”；a；“b=”．b；“c=”；cCall S2(a，b) Print“a=”；a；“b=”；b；“c=”：C： End Sub Private Sub S1(X As Integer，Y As Integer) Dim C As Integer x=2*x：y=Y+2：c=X+y End Sub Sub S2(x As Integer，ByVal Y As Integer) Dim e As Integer x=2*x：y=Y+2：e=x+y End Sub
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，如图16-11所示，然后编写如下几个事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=________EndSubPrivateSubForm_Cliek()Timer1.Enabled=________EndSubPrivateSubTimer1_Timer()Label1.Caption=________EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟改变一次。请填空。
在名为Form1的窗体上绘制一个名为Cmd1的命令按钮，标题为“打开文件”，再绘制一个名为CD1的通用对话框。程序运行后，若单击命令按钮，则弹出“打开文件”对话框。请按下列要求设置属性和编写代码：(1)设置适当属性，使对话框的标题为“打开文件”。(2)设置适当属性，使对话框的“文件类型”下拉式组合框中有两行：“文本文件”、“所有文件”(如下图所示)，默认的类型是“所有文件”。(3)编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。注意：程序中不得使用变量，事件过程中只能写一条语句；文件必须存放在考。生文件夹中，工程文件名为execise25.vbp，窗体文件名为execise25.frm。
在考生文件夹中有一个工程文件execise47.vbp及窗体文件execise47.frm。如下图所示，窗体中有一个名为Text1的文本框，初始内容为0；有一个标签；有一个计时器：有一个有两个元素的单选按钮数组，名称为Opt1，标题依次为“1秒”和“3秒”；有两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Start和Stop，同时给出了两个事件过程，但并不完整。在运行时要完成下面的功能：单击一个单选按钮，可以设置计时间隔为1秒或5秒；单击Start按钮，则Text1中的数按设定的计时间隔每次加1；单击Stop按钮，则Text1中的数不再变化。请按下面的要求设置属性和编写程序，以便实现上述功能：(1)设置计时器的属性，使其在初始状态下不计时。(2)去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容。(3)为两个命令按钮编写适当的事件过程，每个事件过程中只能有一条语句，不能使用变量。注意：不能修改已有程序的其他部分和控件的其他属性。最后把修改后的文件按原文件名存盘。
(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的，在窗体上有两个名称分别为Textl和Text2的文本框，一个名称为Commandl，标题为“登录”的命令按钮。其中Textl文本框用来输入用户名，Text2文本框用来输入口令，要求在Text2文本框中输人的内容都必须以“*”显示(请考生通过属性窗口设置)，初始运行时两个文本框均为空。要求程序运行后，输入用户名口令，单击命令按钮后，对口令进行校验。如果输入的内容都是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”，如图18—3所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)。但不能修改其他部分。存盘时不得-改变文件名和文件夹。(2)在考生文件夹中有工程文件sj4.vbp及其窗体文件sj4．frm，该程序是不完整的。在窗体上有3个名称分别为Checkl、claeck2和check3的复选框，标题依次为“c++”、“Basic”和“JAVA”；有一个名称为Labell，标题为“编程语言”的标签，还有一个名称为Commandl，标题为“显示”的命令按钮。要求程序运行后，如果选择某个复选框，当单击命令按钮时在窗体上输出相应的信息。例如：如果选择“C++”和“JAVA”复选框，单击显示按钮后，将在窗体上显示“我会的编程语言是C++JAVA”，如图18—4所示。注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem"AAAAA" List1.AddItem"BBBBB" List1.AddItem"CCCCC" List1.AddItem"DDDDD" End Sub Private Sub Commandl Click() Dim L As Integer L＝【 】 If L＞=0 Then List1.RemoveItem【 】 Label1.Caption＝【 】 Else MsgBox"请选择要删除的项目" End If End Sub
在名为Form1的窗体上建立一个二级下拉菜单(菜单项见下表)。注意：文件必须存放在考生文件夹中，工程文件名为CXeCise95.vbp，窗体文件名为execiSe95.frm。
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=________EndSubPrivateSubForm_Click()Timer1.Enabled=________EndSubPrivateSubTimer1_Timer()Label1.Caption=________EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。
在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl一Click() a—InputBox(”请输入一个整数”) b—InputBox(”请输入一个整数”) Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 ________ 。
假定建立了一个名为Comrnandl的命令按钮数组，则下列说法中错误的是（ ）。
设计一个计时程序。该程序用户界面如图所示，由一个文本框(Text1)、两个按钮：命令按钮1(Command1)、命令按钮2(Command2)组成。程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。单击窗口则退出。请在________、________和________处填入适当的内容，将程序补充完整。OptionExplicitDimiPrivateSubCommand1_Click()i＝0Timer1.Interval=1000TimerEnabled=TrueEndSubPrivateSubCommand2_Click()TimerEnabled=FalseEndSubPrivateSubForm_Click()________MeEndSubPrivateSubForm_Load()TimerEnabled=FalseTextText=0EndSubPrivateSubTimer1_________()i=i+1TextText=________EndSub