VB上机程序调试题_题目及参考答案

国家二级VB机试（上机操作）模拟试卷532(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。

（2）在窗体上画两个文本框，名称分别为Text1、Text2。

请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个“*”，同时在Text2中显示输入的内容（如图1－155所示）。

程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，利用菜单设计器如表2－63在窗体上建立一个二级菜单。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程。

步骤2：在窗体Form1中加入两个文本框，并分别设置它们的相关属性，属性及值如表2－64所示。

步骤3：双击Text1文本框，打开代码编辑窗口，在Text1的Change事件过程中输入如下代码：参考代码：Private Sub Text1_Change( ) Text2.Text = Text1.Text End Sub 步骤4：按要求将文件保存至考生文件夹中。

简单应用题2．（1）在名称为Form1的窗体上画两个图片框，名称分别为P1、P2，高度均为1900，宽度均为1700，通过属性窗口把图片文件pic1.bmp 放入P1中，把图片文件pic2.jpg 放入P2 中；再画一个命令按钮，名称为C1，标题为“交换图片”（如图1－156所示）。

编写适当的事件过程，使得在运行时，如果单击“交换图片”按钮，则在P1中显示pic2.jpg，在P2中显示pic1.bmp。

程序中不得使用任何变量，也不能使用第三个图片框。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

（2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画两个复选框，名称分别为Ch1、Ch2，标题分别为“程序设计”、“数据库原理”；然后画一个文本框，名称为Text1；再画一个命令按钮，名称为C1，标题为“确定”（如图1－157所示）。

VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。

Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。

Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。

Private Sub Form_Load()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。

Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。

国家二级VB机试（上机操作）模拟试卷340(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1、标题为“欢迎”的窗体上画1个名称为Label1的标签，其标题内容为“欢迎使用本系统”，标题文字字体和字号分别为“宋体”、“三号”，标签大小能根据标题内容自动调整，效果如图3-40所示。

程序执行时，窗体的最大化按钮不可用，请设置相应属性。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sj1．frm。

(2)在名称为Form1的窗体上，画1个名称为Label1的标签，其标题为“横坐标X”，且能根据标题内容自动调整标签的大小；再画1个名称为Text1的文本框，其中的文字显示为空白：再画1个名称为Picture1的图片框，大小适中即可。

要求：编写适当的事件过程，使得程序运行时，如果鼠标在图片框中移动，则能在文本框Text1中显示鼠标在图片框中的当前位置的横坐标，运行情况如图3-41所示。

注意：要求程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：(1)步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个标签控件。

按表4．27设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

(2)步骤1：新建一个“标准EXE”工程，在窗体Form1中加入一个文本框、标签和图片框。

按表4-28设置其相关属性。

步骤2：在打开的代码编辑窗口中，编写图片框的的MouseMove事件代码。

参考代码：Private Sub Picture1 MouseMove(ButtonAs Integer，Shift As Integer，X AsSingle，Y As Single)Text1．Text=XEnd Sub 步骤3：按要求将文件保存至考生文件夹中。

第四部分：上机程序调试题(改错或填空)（一）说明等级考试上机测试的程序调试题常常是在考生目录中给出一个标准模块程序Modify.BAS，要求根据题意修改该模块中的函数或过程，为检测所作修改是否正确，可以按照以下操作步骤进行调试：1．要求学生建立一工程，将这一模块添加到工程中。

如果你是通过双击标准模块程序Modify.BAS进入Visual Basic程序设计系统的，则首先需要添加一个窗体模块。

2．将该标准模块程序Modify.BAS代码中用---n---（n为1，2，3，4，5）部分删除后改为合适的内容或将用****错误n****标示的下一语句中的错误改正，并在窗体模块中编写代码（常常写在窗体的Click()事件中）调用标准模块中的sub过程或自定义函数（如果在标准模块程序中有多个过程或函数，要注意调用的先后顺序，否则得不到正确结果），调试运行程序，使其能输出正确结果。

3．按试题要求保存工程。

（二）程序调试题[题1] Modify.bas模块中的Transfer过程用于将一个十六进制整数转换为十进制整数；number函数过程用于将一个十六进制符号转换为数值。

Public Sub Transfer()Dim Hex As String '十六进制数Dim Dec As Double '十进制数Dim temp As StringDim i As IntegerDim n As IntegerHex = InputBox("输入一个十六进制整数")'****** 错误1 *******n = Val(Hex)‘n=len(Hex)i = 0Do'****** 错误2 *******temp = Mid(Hex, i, 1)‘temp=Mid(Hex,n-i,1)'****** 错误3 *******Dec = Dec + number * 16 ^ iDec=Dec+number(temp)*16^ii = i + 1Loop While i < n'****** 错误4 ******Form1.Print str(Hex) & "转换为十进制数为" & str(Dec)‘Form1.print Hex & “转换为十进制数为” & str(Dec)End SubPublic Function number(str As String) As IntegerSelect Case strCase "a", "A"number = 10Case "b", "B"number = 11Case "c", "C"number = 12Case "d", "D"number = 13Case "e", "E"number = 14Case "f", "F"number = 15Case Elsenumber = Val(str)End SelectEnd Function[题2] Modify.bas模块中的BubbleSort过程是冒泡排序法；GenerateData过程产生个[1，20]之间互不相同的随机整数；Swap过程交换两个变量的数值。

国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。

(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。

再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。

请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。

注意：程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。

正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。

步骤2：按要求将文件保存至考生文件夹中。

第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。

参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。

解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。

国家二级VB机试（上机操作）模拟试卷517(题后含答案及解析)题型有：1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单，含有三个菜单项，它们的标题分别为“打开”、“关闭”、“保存”，名称分别为“m1”、“m2”、“m3”。

再画一个命令按钮，名称为“Command1”、标题为“弹出菜单”。

要求：编写命令按钮的Click事件过程，使程序运行时，单击“弹出菜单”按钮即可弹出“文件”菜单（如图1－89所示）。

注意：程序中不得使用变量，事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表2－25在窗体中画出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工第2小题具】→【菜单编辑器】命令，打开菜单设计器，如表2－26中的设置建立菜单项。

步骤2：在窗体上画一个名为Command1，标题为“弹出菜单”的命令按钮，打开代码编辑窗口，编写“弹出菜单”按钮的单击事件过程。

参考代码：Private Sub Command1_Click( ) Form1.PopupMenu menu1 End Sub 步骤3：按要求将文件保存至考生文件夹中。

简单应用题2．（1）在考生目录下有一个工程文件sjt3.vbp，包含了所有控件和部分程序。

程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则把它的大写形式显示在标签Label1中；若是大写字母，则把它的小写形式显示在Label1中；若是其他字符，则把该字符直接显示在Label1中。

输入的字母总数则显示在标签Label2 中，如图1－90所示。

要求：去掉程序中的注释符，把程序中的?改为正确的内容。

国家二级VB机试（上机操作）模拟试卷222(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应刚程序(包括界面和代码)。

(1)在名称为Forml、标题为“图片”的窗体上画一个名称为Imagel的图像框，其高为2500、宽为2000。

请通过属性窗口设置适当属性，装入考生只录下的图片文件picl．jpg，并使图片适应图像框的大小(如图2．135所示)。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。

(2)在名称为Forml的窗体上画一个名称为Label1、标题为“口令”的标签；画一个名称为Textl的文本框；再画三个命令按钮，名称分别为Commandl、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。

程序运行时，在‘Text1中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图2．136(b)所示；单击“显示口令”按钮，则显示输入的字符，如图2．136(a)所示，单出“重新输入”按钮，则清除Textl中的内容，并把光标定位到Textl中。

要求：请画出所有控件，编写命令按钮的Click事件过程，程序中不得使用变量，在“显示口令”按钮、“隐藏口令”按钮的事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sit2．fhn。

正确答案：第l小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．71在窗体中必出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．72在窗体中画出控件并设置其相关属性。

步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。

参考代码：Private Sub Commandl C1 ick( ) Textl．PasswordChar=””End Sub Prirate Sub Command2 C1ick( ) Textl．PasswordChar=“*”End Slab Private Sub Command3一Click( ) Textl=“”Text1．SetFocuS End Sub 步骤3：按要求将文件保存至考生文件夹中。

全国计算机等级考试二级VB上机考试新版题库及解析【2013年3月考试专用】考前复习必看资料：PiaoMo整理—1—第一套上机题题干166一、基本操作题请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。

(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组，含三个命令按钮，它们的Index 属性分别为0、1、2，标题依次为"是"、"否"、"取消"，每个按钮的高、宽均为300、800。

窗体的标题为"按钮窗口"。

运行后的窗体如图1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp ，窗体文件名为sjt1.frm 。

图1【操作步骤】步骤1：新建一个"标准EXE"工程，如表1在窗体中用"复制"和"粘贴"画出控件数组并设置属性。

表1(2)在名称为Form1的窗体上画一个名称为Sha1的形状控件，然后建立一个菜单，标题为"形状"，名称为shape0，该菜单有两个子菜单，其标题分别为"正方形"和"圆形"，其名称分别为shape1和shape2，如图2所示，然后编写适当的程序。

程序运行后，如果选择"正方形"菜单项，则形状控件显示为正方形；如果选择"圆形"菜单项，则窗体上的形状控件显示为圆形。

注意：程序中不能使用变量，每个事件过程中只能写一条语句。

保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp ，窗体文件名为sjt2.frm 。

图2【操作步骤】步骤1：新建一个"标准EXE"工程，在窗体Form1中画一个名为Sha1的形状控件。

步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。

国家二级VB机试（上机操作）模拟试卷92(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Forml的窗体上画一个名称为Text1的文本框，其高、宽分别为400、2000。

运行后的窗体如图3．78所示。

请在属性框中设置适当的属性满足以下要求：①Textl的字体为“黑体”，字号为“四号”；②窗体的标题为“输入”，不显示最大化按钮和最小化按钮。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。

(2)在名称为Forml的窗体上画一个名称为Imagel的图像框,利用属性窗口装入考生目录下的图像文件picl．bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“向右移动”、“向下移动”。

请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动100；每单击“向下移动”按钮一次，图像框向下移动100。

运行时的窗体如图3—79所示。

要求程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：【操作步骤】步骤1：新建一个“标准EXE”工程。

步骤2：按要求画出控件，并在属性窗口中设置其相关属性，属性及值如表4-45所示。

步骤4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开“字体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。

步骤5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。

步骤6：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体．Forml 中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表4-46所示。

V B 语言程序设计课后编程及上机调试参考答案ex0101Private Sub Label1_Click()Caption = " 练习 "Command1.Caption = " 确定 "Label1.FontBold = TrueLabel1.AutoSize = TrueLabel1.Caption = "Visual BasicEnd Sub ex0102Private Sub Command1_Click()Txt.Text = " 我有电脑 "End SubPrivate Sub Command2_Click()Txt.Text = " 我没有电脑 " EndSub程序设计教程Private Sub Command3_Click()Txt.Text = "" ' 一对双撇号，中间不留空 End Subex0104Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub ex0202Private Sub Form_Click()Dim r As Single, s As Singler = 4.6s = 3.14159 * r A 2Text1.Text = " 圆的面积为 " & sEnd Subex0204Private Sub Command1_Click() '"Form1.WindowState = 2 ' End Sub最大化 " 按钮最大化Private Sub Command2_Click() '"Form1.WindowState = 0 '还原 "按钮还原End SubPrivate Sub Command3_Click() '"Form1.WindowState = 1 '最小化 " 按钮最小化End Sub ex0205Private Sub command1_click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * y End Sub ex0206Private Sub command1_click()Dim x As Stringx = Text1.TextText2.Text = Left(x, 1) + Right(x, 1)End Sub ex0301 Private Sub Form_Load()Dim x As Integer, y As IntegerDim a As Integer, b As Integer, c As Integer x = Val(InputBox(" 请输入一个三位数 "))a = Int(x / 100) ' 求百位数b = Int(x / 10) - a * 10 ' 求十位数c = x Mod 10 ' 求个位数Showy = c * 100 + b * 10 + a ' 生成倒序数Print x; " 倒序数为： "; y ' 显示倒序数End Sub ex0302Private Sub Command1_Click()n = Val(Text1.Text)Randomizex = Int(1 + n *Rnd) Label1.Caption 第一个随机数" + Str(x)x = Int(1 + n *Rnd)Label2.Caption = " 第二个随机数" +Str(x)x = Int(1 + n *Rnd)Label3.Caption = " 第三个随机数" +Str(x)End Sub ex0303Private Sub Cmd1_Click()Lab1.Visible = TrueLab1.Caption = " 您已下达显示命令 "End SubPrivate Sub Form_Click()Cmd1.Visible = TrueEnd Subex0304Private Sub Form_KeyPress(KeyAscii As Integer)ShowPrint " 输入字符： "; Chr(KeyAscii), "ASCII 码为 ;"; KeyAscii End SubPrivate Sub Form_DblClick()ClsEnd Sub ex0305 Private Sub Form_Load()x = MsgBox(" 在这里显示提示信息 ", 4 + 0, " 请确认 ")x = MsgBox(" 在这里显示 " + Chr(13) + " 提示信息 ", 3 + 0, " x = MsgBox(" 在这里显示 " + Chr(13) + " 提示信息 ", 2 + 16 + 0,End Sub ex0401Private Sub Form_Load()Dim x As Long, s As Stringx = In putBox(" 输入一个整数(1 〜35000)")s = " 奇数"If x Mod 2 = 0 Then s = " 偶数"MsgBox s End Sub ex0402Private Sub Command1_Click()Dim a As Single, b As SingleDim c As Single, d As SingleDim m As Single, n As Single, x As SingleShowa = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = Val(Text4.Text)If a > b Then ' 求 a、b 中的较大数m = aElsem = bEnd IfIf c > d Then ' 求 c、d 中的较大数n = cElsen = dEnd IfIf m > n Then ' 求 m、n 中的较大数x = mElsex = nEnd IfText5.Text = x 请确认")请确认")End Subex0403Private Sub Command1_Click()Dim t As String, p As String t = Mid(Text1.Text, 5, 1) Select Case tCase "2"p = " 博士生 "Case "3"p = " 硕士生 "Case "4"p = " 本科生 "Case "5"p = " 专科生 "Case Elsep = " 无效学号 "End SelectText2.Text = Left(Text1.Text, 2) + "Text3.Text = pEnd Subex0404Private Sub Command1_Click()r = 0: g = 0: b = 0If Check1.Value = 1 Thenr = 255End IfIf Check2.Value = 1 Theng = 255End IfIf Check3.Value = 1 Thenb = 255End IfLabel1.BackColor = RGB(r, g, b)End SubPrivate Sub Command2_Click()EndEnd Subex0405Private Sub Form_Load()LabClk.Caption = "0"LabClk.Alignment = 1LabClk.BorderStyle = 1LabClk.FontSize = 22LabClk.FontName = " 黑体 "TimClk.Interval = 1000End SubPrivate Sub TimClk_Timer()LabClk.Caption = Val(LabClk.Caption) + 1End Sub ex0406 Private Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelLength > 0 ThenCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command1_Click()Command1.Enabled = TrueCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextCommand1.Enabled = FalseCommand2.Enabled = FalseEnd Sub ex0501 Private Sub Form_Load()Dim k As Integer, s As Integer, t As Integers = 0For k = 1 To 100 Step 2s = s + kNext kShowPrint "1 〜100范围内的奇数和：";sEnd Sub ex0502 Private Sub Form_Load()Dim s As SingleShows = 0For k = 1 To 200s = s + k / (1 + k * k)Next kPrint Int(s * 10 + 0.5) / 10End Sub ex0503 Private Sub Form_Load()Showk = 2Do While k < 101s = s + k * (k - 1)k = k + 2LoopPrint sEnd Subex0504Private Sub Form_Load()Dim k As Integer, a As Integer, b As IntegerDim c As Integer, n As IntegerShown = 0Print " 三位数的水仙花数是： "For k = 100 To 999a = Int(k / 100)b = Int((k - 100 * a) / 10)c = k Mod 10If a * a * a + b * b * b + c * c * c = k Then Print kn = n + 1End IfNext kPrint " 一共有 " & n & " 个水仙花数 "End Sub ex0505Private Sub Form_Load()ShowFor k = 1000 To 9999If k Mod 78 = 0 Thena = Int(k / 1000)b = Int(k / 100) - 10 * ac = Int(k / 10) - 100 * a - 10 * bd = k Mod 10If a = b And c = d ThenPrint kEnd IfEnd IfNext kEnd Subex0506Private Sub Command1_Click()Dim s As String, y As StringDim x As String, t As Strings = Text1.Text: y = ""For k = 1 To Len(s)x = Mid(s, k, 1)t = UCase(x)If t >= "A" And t <= "Z" Theny = y + xEnd IfNext kText2.Text = yEnd Subex0507Private Sub Command1_click()FontSize = 12ClsFor i = 0 To List1.ListCount -1If List1.Selected(i) Then 'Print List1.List(i)End IfNext iEnd Subex0508Private Sub Form_Load()ShowFor a = 1 To 9For b = 1 To 9For c = 1 To 9For d = 1 To 9x = a * 1000 + b * 100 + c y = b * 1000 + a * 100 + a z = d * 100 + d * 10 + a If x - y = z ThenPrint "A=" & a & ",B=" & b & ",C=" & c & ",D=" & d End IfNext dNext cNext bNext aEnd Sub ex0601Private Sub Command1_Click()Dim a(10) As Integer, min As Integer, pos As Integer RandomizeFor i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Print a(i);Next iPrintmin = a(1)pos = 1For k = 2 To 10 If a(k) < min Then min = a(k) pos = k 10 + d 10 + c 显示 "按钮单击事件逐项判断 真时为选定Next kPrint " 最小数： "; min, " 位置： "; posEnd Sub ex0602Private Sub Form_Load()Dim a As Variant, b As VariantDim c(8) As Integera = Array(3, 4, 2, 1, 5, 7, 8, 11, 13)b = Array(10, 6, 12, 9, 13, 8, 8, 1, 16)For k = 0 To 8 c(k) = a(k) + b(k)Next kShowFor k = 0 To 8Print c(k)Next kEnd Sub ex0603 Private Sub Form_Load()Dim d() As IntegerDim k As Integer, t As Integer, m As IntegerDim h As Integer, n As Integern = Val(InputBox(" 请输入数组个数 n： "))ReDim d(n)ShowPrint " 处理前数据 :"RandomizeFor k = 1 To nd(k) = Int((101 * Rnd - 50))Print d(k);Next kPrintm = Int(n / 2)For k = 1 To m h = n - k + 1 t = d(h): d(h) = d(k): d(k) = t Next kPrint " 处理的结果 :"For k = 1 To nPrint d(k);Next kEnd Subex0604Private Sub Form_Load()Dim a(8, 8) As Integer, n As IntegerDim s As Long, i As Integer, j As IntegerShown = 8For i = 1 To nFor j = 1 To nx = Int(90 * Rnd + 10) ' 产生一个随机数a(i, j) = xNext jNext is = 0For i = 1 To nFor j = 1 To ns = s + a(i, j)Next jNext iPrint " 所有元素之和； "; sPrintFor i = 1 To ns = 0For j = 1 To ns = s + a(i, j)Next jPrint " 第 "; i; " 行元素之和； "; sNext iPrints = 0For i = 1 To ns = s + a(i, i)Next iPrint " 主对角线元素之和； "; sPrints = 0For i = 1 To nFor j = 1 To nIf i = 1 Or i = n Or j = 1 Or j = n Then s = s + a(i, j)End IfNext jNext iPrint " 所有靠边元素之和； "; sEnd Sub ex0605 Option Base 1Private Sub Form_Load()Dim a(8, 8) As Integer, n As IntegerDim max As Integer, r As Integer, c As Integer Show Randomizen = 8For i = 1 To nFor j = 1 To nx = Int(900 * Rnd + 100) 'a(i, j) = xPrint x;Next jPrintNext imax = 0: r = 1: c = 1PrintFor i = 1 To nFor j = 1 To nIf a(i, j) > max Then 'max = a(i, j): r = i: c = jEnd IfNext j, iPrint " 最大值为： "; maxPrint " 位于行： "; r, " 列： "; c End Sub ex0606 Dim n As IntegerPrivate Sub Cmd1_Click()n = n + 1If n = 3 Then n = 0Opt1(n).Value = True End SubPrivate Sub Form_Load()n = 1End Sub ex0607Private Sub Form_Load()Dim a(20) As IntegerRandomizea(1) = Int(10 + 90 * Rnd)k = 1Do While k < 20x = Int(10 + 90 * Rnd) 产生一个随机数判断有无更大数For j = 1 To kIf x = a(j) Then f = 1 Exit ForEnd IfNext jIf f = 0 Thenk = k + 1 a(k) = xEnd IfLoopShowFor j = 1 To 20Print a(j)Next jEnd Sub ex0701Private Sub Form_Click() Dim s As Long s = 0For k = 1 To 10 s = s + jc(k)Next kPrint sEnd SubFunction jc(n) As LongDim t As Longt = 1For k = 1 To nt = t * kNext kjc = tEnd Functionex0702Private Sub Form_Load()Dim a As Single, b As Single, c As Single Dim d As Single, m As Single, n As Single Showa = Val(InputBox(" 输入第 1 个数 "))b = Val(InputBox(" 输入第 2 个数 "))c = Val(InputBox(" 输入第 3 个数"))d = Val(InputBox(" 输入第 4 个数 "))m = max(a, b) 'n = max(c, d) 'Print " 最大数为： " & max(m, n) End SubFunction max(x, y) As SingleIf x > y Then max = xElsemax = y 求a、 b 中的较大数求c、 d 中的较大数求m、n 中的较大End Function ex0703Private Sub Command1_Click()Dim d(5) As Single, m As SingleFor k = 0 To 5d(k) = Val(Text1(k).Text) Next kCall Max(d(0), d(1), d(2), m)Call Max(m, d(3), d(4), m)Call Max(m, m, d(5), m) Text2.Text = mEnd Sub ex0704Private Sub Form_Load() Dim x As Long Showx = Val(InputBox(" 输入一个数 "))Print x; " 的位数为： "; fnws(x) End SubFunction fnws(x As Long) As Integer Dim n As Integer n = 1 Do While x \ 10 > 0n = n + 1x = x \ 10 Loop fnws = nEnd Function ex0705Private Sub C1_Click()Form1.HideEnd Sub ex0705APrivate Sub C2_Click()Form1.ShowEnd Sub ex0706 Dim n As IntegerPrivate Sub Command1_Click()usern = Trim(Text1.Text)passw = Trim(Text2.Text)If usern = "username" And passw = "password" Then Form1.HideForm2.ShowElsen = n + 1Text1.SetFocusIf n = 3 ThenForm1.HideForm3.ShowEnd IfEnd IfText1.Text = ""Text2.Text = ""End Subex0706APrivate Sub Command1_Click()Form2.HideForm1.ShowEnd Subex0906BPrivate Sub Command1_Click()Unload Form1Unload Form2Unload Form3EndEnd Sub ex0802 Private Sub Form_Load()Dim i As Integer, j As IntegerShowFor i = 1 To 12Print String(20 - i, 32); ' For j = 1 To 2 * i - 1 'If j <= i Then 'k = j 'Elsek = 2 * i - j 'End IfIf k > 9 Then k = k + 7 ' Print Chr(k + 48); 'Next jPrint ' 输出当前行左边的空格，分号表示下一输出项紧接输出输出2*i-1 个字符按左、右两边指定输出字符左边输出的字符右边输出的字符字母的ASCII 码比数字大7 以字符格式输出换行End SubDim t As Single, f As IntegerPrivate Sub Command1_Click()RandomizeIII! For k = 1 To 30If Mid(Text1.Text, k, 1) = Mid(Text2.Text, k, 1) Then c = c + 1End IfNext k Text2.Locked = True ' 禁止录入Text4.Text = Round(c / 30 * 100, 2) & "%" ' 显示准确率End IfEnd Subex0901Private Sub Command1_Click()Open " 静夜思 .txt" For Input As #1Do While Not EOF(1) '文件未结束时，循环Input #1, xList1.AddItem xLoopClose #1End Sub ex0902 产生原稿文”按钮x = Chr(Int(Rnd * 26) + 97) 's = s + xNext kText1.Text = s 'Text2.Text = ""Text2.Locked = False 'Text2.SetFocus 'Text3.Text = ""Text4.Text = ""f = 0 'End SubPrivate Sub Command2_Click()' EndEnd SubPrivate Sub Text2_KeyUp(KeyCode As Integer,Dim c As Integer, k As IntegerIf f = 0 Then' t = Timer' f = 1'1 End IfIf Len(Text2.Text) < 30 ThenText3.Text = Round(Timer - t, 1) & "Elsec = 0For k = 1 To 30 ' 随机产生小写字母 显示在文本框中 允许录入 设置焦点 第 1 次按键标记， 0 表示未按键 “结束”按钮 As Integer) 第 1 次按键时，开始计时 用t 保存第1次按键的时间 表示已按键和进入录入过程 秒 " ' 显示用户当前所用时间统计录入正确的字母个数Dim d(1 To 20) As IntegerPrivate Sub Command1_Click() '" 产生随机数 "For i = 1 To 20 d(i) = Int(1 + 99 * Rnd) List1.AddItem d(i)Next iEnd SubPrivate Sub Command2_Click() '" 保存 "Open "MyFile4.txt" For Output As #1For i = 1 To 20Write #1, d(i)Next iClose #1End SubPrivate Sub Command3_Click() '" 读出 "Open "MyFile4.txt" For Input As #1Do While Not EOF(1) Input #1, x List2.AddItem xLoopClose #1End SubPrivate Sub Command4_Click() '" 结束 "EndEnd Sub ex0903 Private Sub Form_Load()ShowFor k = 1 To 6第 7 章\ex070" & k & ".vbp"If Dir(fn) = "" ThenPrint Mid(fn, 4) & " 未编写！！ " ElsePrint Mid(fn, 4) & " 已编写！！ " End IfNext kEnd Subex0904Private Sub Form_Load()chedir = "C:\Documents and Settings\Lin\My Documents\fsodir" If Dir(chedir, 16) = "" ThenMkDir chedirEnd Ifchefile = "C:\Windows\notepad.exe"If Dir(chefile) <> "" ThenFileCopy chefile, chedir & "\mynotepad.exe"End IfMsgBox " 操作完毕！ "End Subex1002Private Sub A1_Click()Label1.ForeColor = vbRedEnd SubPrivate Sub A2_Click()Label1.ForeColor = vbBlueEnd SubPrivate Sub A3_Click()Label1.ForeColor = vbGreenEnd SubPrivate Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 ThenPopupMenu mun0End IfEnd Subex1003Private Sub Command1_Click()CommonDialog1.DialogTitle = " 选择文件 " CommonDialog1.Filter = " 文本文件 |*.txt"CommonDialog1.InitDir = "C:\"CommonDialog1.ShowOpenText1.Text = CommonDialog1.FileNameEnd SubPrivate Sub Command2_Click()Unload MeEndEnd Subex1101Private Sub calzc(x As Integer)Text2.Text = Round(2 * 3.14159 * x, 2)End SubPrivate Sub HV_Scroll()Dim r As Integer r = HV.ValueText1.Text = "=" & rCall calzc(r)End SubPrivate Sub Form_Load()HV.Max = 300End Subex1102Private Sub Form_Load()For k = 0 To 3 Image1(k).Stretch = TrueImage1(k).Picture = LoadPicture(" 箭头 " & k + 1 & ".bmp")Next kEnd SubPrivate Sub Image1_Click(Index As Integer) Picture1.ClsSelect Case IndexCase 0Picture1.Print "Case 1箭头向上 "Picture1.Print " Case 2Picture1.Print " Case 3 箭头向左 " 箭头向右 "Picture1.Print "End SelectEnd Sub箭头向下 "。

国家二级VB机试（上机操作）模拟试卷82(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Forml、标题为“标签”的窗体上画一个名称为Labell的标签，并设置适当属性以满足以下要求：①标签的内容为“计算机等级考试”；②标签可根据显示内容自动调整其大小；③标签带有边框，且标签内容显示为三号字。

运行后的窗体如图3．68所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sitl．vbp，窗体文件名为sjtl．frm。

(2)在名称为：Forml的窗体上画一个名称为Hscrolll的水平滚动条，其刻度范围为1～100；再画一个名称为Text1的文本框，初始内容为1。

程序开始运行时，焦点在滚动条上。

请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。

运行情况如图3—69所示。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名为sjl2．vbp，窗体文件名为sjt2．frm。

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Fontal中画一个标签，并设置它的相关属性，其属性和值如表4-40所示。

步骤2：按要求将文件保存至考生文件夹中。

【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Fonnl中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表4．41所示。

步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。

参考代码：Private Sub I-IScrolll—Change( ) Text：1．Text=HScEOlll．ValueEnd Sub步骤3：按要求将文件保存至考生文件夹中。

简单应用题2．(1)在考生文件夹下有一个工程文件sit3．vbp，在Forml的窗体中有一个文本框、两个命令按钮和一个计时器。

国家二级VB机试（上机操作）模拟试卷212(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Forml的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300、宽均为800。

如图2．231所示。

请在属忡窗口中设置适当属性满足以下要求：①窗体标题为“确认”，窗体标题栏卜不显示最大化按钮和最小化按钮；②在任何情况下，按回车键都相当于单击“是”按钮；按Esc键都相当于单击“否”按钮。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjtl．frm。

(2)在名称为Forml的窗体上画一个文本框，名称为Text1，其宽度为1000：再画一个滚动条，名称为HSl。

其刻度值的范围是1000～2000。

请编写滚动条的Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。

运行时的窗体如图2．232所示。

程序中不能使用任何变量，事件过程中只能写一条语句。

注意：保存时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sit2．frm正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3-122在窗体中画出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

【特别提示】为使两个控件的大小相同，还可在选中控件后执行【格式】→【统一尺寸】→【两者都相同】命令。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，在窗体Forml中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相火属性，其属性及值如表3-123所示。

步骤2：双击窗体Forml上的水甲滚动条，打开代码编辑窗口，输入以下代码：参考代码：Private Sub HSI—Change( ) Textl．Width=HSl．Value End Sub 步骤3：按要求将文件保存至考生文件夹中。

国家二级VB机试（上机操作）模拟试卷592(题后含答案及解析)题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案PriVate Sub Commandl_Click( ) HScrolll．Max=1500′设置滚动条的最大值、最小值、最大改变值、最小改变值HScrolll．Min=100 HScrolll．LargeChanqe=100 HScrolll．SmallChange=10 End Sub PriVate Sub HScrolll_Change( ) Picturel．Width =HScrolll．Value′将图片的width与滚动条的value保持一致End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

解析：在设计阶段通过Picture属性为图片框指定显示的图片，通过Width 属性来设定或修改图片框的宽度。

通过调整滚动条滑块的位置即可改变其Value 属性的值，滚动条的Max和Min属性限定了滚动条所能表示的最大值和最小值，LargeChange属性用于设置当单击滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当单击滚动条两侧箭头时Value属性值的改变量。

当改变滚动条滑块位置后将触发其Change事件。

简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp(相应的窗体文件名为sjt3．frm)，在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框，如图1所示。

编写窗体的MouseDown事件过程。

程序运行后，如果用鼠标单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。

程序的运行情况如图2所示。

这个程序不完整，请把它补充完整，并能正确运行。

要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。

国家二级VB机试（上机操作）模拟试卷157(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为Label1的标签，标签的宽和高分别为2000、300，有边框，并利用属性窗口设置适当的属性，使其标题“等级考试”居中显示，并使标签的外观如图所示。

注意：存盘时必须存放在考生文件夹下，上程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。

(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动涮整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Commahd1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。

在考生文件夹下有两个图标文件，其名称分别为“Misc34．ico”和“Misc37．ico”。

程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37．ieo文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34．ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案，请编写相应控件的Click事件过程，实现上述功能。

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。

存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。

正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照题目要求建立标签控件并设置其属性，如图3．32所示。

程序中用件的控件及属性见表3．47。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。

程序中涉及的控件及属性见表3．48。

步骤2：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub Command1_Click( ) Image1．Picture＝LoadPicture(App．path＆”＼MiSC 34．iCO”)’加载图片End Sub Private Sub Command2_Click( ) Imagel．Picture＝LoadPicture(App．path＆”＼Misc37．ico”) End Sub Private Sub Command3_Click( ) Set Image1．Picture＝Nothing’清除Imagel中的图片End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

国家二级VB机试（上机操作）模拟试卷195(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入xxx、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图2．93(a)所示。

最后设置相应属性，使运行后列表框中的表项按宁母升序方式排列，如图2．93(b)所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，上程文件名为sjt1．vbp。

(2)在名称为Form1的窗体上，画一个名称为Labell的标签，其标题为“计算机等级考试”，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。

再画两个名称分别为Command1、Command2，标题分别为“缩小”和“还原”的命令按钮(如图2．94所示)。

要求：编写适当的事件过程，使得单击“缩小”按钮，Labell中所显示的标题内容自动减小两个字号：单击“还原”按钮，Labell所显示的标题内容的大小自动恢复到12号。

注意：存盘时，将文件保存至考生文件夹下，窗体文仲名为sjt2．frm，工程文件名为sjt2．vbp。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。

如表3-52存窗体中画出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．53在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个命令按钮的Click事什过程。

参考代码：Private Sub Commandl—Click( ) Labell．FontSize=Labell．FontSiZe一2 End Sub Private Sub Command2一Click( ) Labell．FontSiZe=12 End Sub 步骤3：按要求将文件保存至考生文件夹中。

国家二级VB机试（上机操作）模拟试卷315(题后含答案及解析)题型有：1.Text’将Text1中的内容加入列表End If If Button=2 Then Text1．Text=InputBox(”请输入要删除的项目”) ’列表总数用ListCount求得For i =0 ToList1.ListCount -1 ’判断列表项是否为要删除的项If List1．List(i) =Text1.Text Then ‘删除i所对应的项List1．RemoveItem i End If Next i End If End Sub 程序结束步骤3：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】步骤1：打开本题工程文件。

步骤2：打开代码编辑窗口，去掉程序中的注释符“?”，将问号改为正确的内容。

Option Base 1 Private Function FindMin(a( )As Integer) Dim Start As Integer Dim Finish As Integer，i As Integer Start=LBound(a)’求数组下界值Finish=UBound(a)’求数组上界值Min=a(Start)’将第一个数赋给最小值进行比较For i=Start To Finish’循环判断找最小值If a(i) ＜Min Then Min=a(i) Next i FindMin=Min End Function Private Sub Command1_Click( ) Dim arr1 Dim arr2(4)As Integer arr1=Array(Val(Text1．Text)，Val(Text2．Text)，Val(Text3．Text)，Val(Text4．Text))’申请arr1数组并初始化For i=1 To 4 arr2(i)=CInt(arrl(i))’CInt函数将arr1中的数值转换为整型Next i M=FindMin(arr2) Print”最小值是：”；M End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。

国家二级VB机试（上机操作）模拟试卷427(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1，标题为“框架”的窗体上添加一个名称为Frame1，且标题为空的框架。

框架内含有两个单选按钮，名称分别为Opt1和Opt2，其标题分别为“字体”、“大小”。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。

(2)考生文件夹下的工程文件sjt2．vbp中有一个由直线Line1、Line2和Line3组成的三角形，直线Line1、Line2和Line3的坐标值如下所示：名称X1 Y1 X2 Y2 Line1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求添加一条直线Line4以构成三角形的高，且该直线的初始状态为不可见。

再添加两个命令按钮，名称分别为Cmd1、Cmd2，标题分别为“显示高”、”隐藏高”，如图所示。

请编写适当的事件过程使得在程序运行时，单击“显示高”按钮，则显示三角形的高；单击“隐藏高”按钮，则隐藏三角形的高。

注意：要求程序中不得使用变量，每个事件过程只能写一条语句。

不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。

正确答案：(1)【操作步骤】步骤1：建立界面，添加相应的控件并设置控件的属性。

程序中涉及的控件及属性见表3．56。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

(2)【操作步骤】步骤1：打开sjt2工程，按照题目要求建立Line控件并设置其属性，如图3．33所示。

步骤2：按照步骤1建立其他控件并设置相关属性，程序中涉及的控件及属性见表3．57。

步骤3：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub Cmd1_Click( ) Line4．Visible＝True ‘将Line4显示End Sub Private Sub Cmd2_Click( ) Line4．Visible＝False ‘将Line4隐藏End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。

国家二级VB机试（上机操作）模拟试卷64(题后含答案及解析)题型有：1.jpg /> 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。

正确答案：审题分析本题只需按题目在窗体中画出控件，并设置相关属性即可。

操作步骤步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。

步骤2：按要求将文件保存至考生文件夹中。

考点链接框架、焦点和Tab顺序、选择控件。

2．在名称为。

Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。

程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图3-121所示)。

请编写按钮的Click事件过程。

要求：程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。

正确答案：审题分析要在Text2中显示Text1中选中的字符个数，需编写语句将Text1的SelLength属性返回值赋值给Text2。

操作步骤步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性，步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Command1_Click( ) Text2．Text=Forrn1．Text1．SelLength End Sub 步骤3：按要求将文件保存至考生文件夹中。

考点链接文本控件。

简单应用题3．在考生文件夹下有一个工程文件sjt3．vbp。

程序运行后，单击“读入数据”按钮，可把考生文件夹下in3．txt文件中的所有英文单词读入，并显示在Text1文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到List1列表框中(如图3-122所示)。