2002秋vb上机(1)
国家二级VB机试(上机操作)模拟试卷400(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷400(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visua，Basic应用程序(包括界面和代码)。
(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框处于选中状态，运行时的窗体如图3—147所示。
请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1～100；画一个命令按钮，名称为C1，标题为“移动滚动框”。
请编写适当的事件过程，使得在运行时，每单击命令按钮一次(假定单击次数少于10次)，滚动框向右移动10个刻度。
运行时的窗体如图3—148所示。
要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Form1中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含四个元素的复选框数组。
步骤3：分别设置窗体和复选框数组中各元素的相关属性。
步骤4：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：在代码编辑窗口，编写命令按钮的Click事件过程。
参考代码：Private Sub C1_Click( )HS1．Value＝HS1．Value＋10End Sub 步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为“加粗”、“斜体”、“下划线”，名称分别为M1、M2、M3。
2008年(秋)vb(上机)VB01-04
江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2008秋)二级Visual Basic语言(试卷代号VB01)(本试卷完成时间70分钟)一．改错题(14分)[题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数），找出其中的最大元素并将它删除，再输出删除后的数组。
Option ExplicitOption Base 1Dim a() as integer,n as integerPrivate Sub Command1-Click()Dim i As Integern=InputB ox(“请输入数组个数”，10)ReDim a(n)For i=1 To na(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i))Next iCall Lookup(a)For i=1 To nText2=Text2 &Str(a(i))Next iEnd SubPrivate Sub Lookup(a() As Integer)Dim Maxv As Integer,maxp As Integer ,i As IntegerMaxv=a(1):maxp=1For i= 2 To nif a(i)>Maxv ThenMaxv=a(i): maxp=iEnd IfNext iCall move_f(a,maxp)End SubPrivate Sub move_f(a() As Integer,k As Integer)Dim i As IntegerFor i=k+1 to UBound(a)a(i)=a(i+1)Next iReDdim a(UBound(a)-1)End Sub[要求]1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。
vb上机练习(基础操作)
基本操作：1）在名称为Form1的窗体上建立一个名成为L1的标签；两个名称为Cmd1和Cmd2、标题为“显示1”和“显示2”的命令按钮。
编写适当的事件过程，要求运行后，如果单击“显示1”，则会在标签上显示字符串“aaa”；如果单击“显示2”，则会在标签上显示字符串“bbb”。
不能使用任何变量，直接显示字符串，如图1所示。
图12）在名称为Form1的窗体上画一个文本框，名称为Text1，其初始值为0；画一个命令按钮，名称为Cmd1,标题为“开始计数”再画1个名称为“Timer1”的计时器。
要求程序开始运行时不计数，点击“开始计时”按钮后，则使文本框每秒加1。
注意，程序代码中不能使用任何变量。
如图2所示。
图2在名称为Form1的窗体上画两个文本框，名称分别为T1和T2，初始情况下都没有内容。
请编写适当的事件过程，使得运行时，在T1里中输入的任何字符，立即显示在T2中。
注意，程序代码中不能使用任何变量。
如图3所示。
图34）在名称为Form1的窗体上画三个复选框，名称分别为Chk1和Chk2和Chk3，标题为“计算机基础”、“操作系统”和“数据库原理”，其中“操作系统”被选中，“数据库原理”被禁用，如图4所示。
图4在名称为Form1的窗体上画一个列表框，名称分别为L1，通过属性窗口添加4个项目内容。
请编写适当的事件过程，使得运行时，单击列表框中的某1项，则该项就从列表中消失。
如图5所示。
图56）在名称为Form1的窗体上画1个名称为HS1的水平滚动条，其刻度为1~100；画1个命令按钮，名称为C1，标题为“移动”。
请编写适当的事件过程，使得在运行后，没单击按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。
注意，程序代码中不能使用任何变量。
如图6所示。
图6在名称为Form1的窗体上画1个名称为T1的文本框，然后建立一个主菜单，标题为“操作”，名称为Op，并为该菜单建立两个子菜单，其标题分别为“显示”和“清除”，名称为“Dis”和“ Cl”,请编写适当的事件过程，使得在运行后，单击“显示”，则在文本框内显示“计算机登记考试”，单击“清除”，则清除文本框内容。
vb上机题库及答案
vb上机题库及答案【篇一：vb期末考试上机题编程答案】xt>1.新建一个工程，编写一个找出所有四位幸运数显示在列表框中，并将幸运数的个数显示在文本框中。
所谓幸运数是指凡前两位数字之和等于后两位数字之和的四位数。
将原窗体文件和工程文件分别另存为为f.frm和p.vbp，保存在d盘的vbtest文件夹中。
如不按要求保存，造成文件无法上传，后果自负！具体要求：1、程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、单击查找按钮，则开始查找并在列表框中显示结果，并在文本框中显示幸运数的个数；3、单击“清除”按钮，则将列表框和文本框清空；4、单击“退出”按钮，结束程序运行；5、程序中应包含一个过程，用于判断一个数是否是幸运数。
解：private sub command1_click()dim i as integer, a as integerfor i = 1000 to 9999if k(i) then list1.additem i: a = a + 1next itext1.text = aend subprivate sub command2_click()list1.cleartext1.text =end subprivate sub command3_click()endend subprivate function k(n as integer) as integerdim i as integer, a as integer, s1 as integer, s2 as integer dims as strings = cstr(n)for i = 1 to len(s) / 2s1 = s1 + mid(s, i, 1)s2 = s2 + mid(s, len(s) + 1 - i, 1)next iif s1 = s2 then k = trueend function2. 新建一个工程，编写求某一自然数因子和的程序。
VB上机试题及答案
上机操作练习题1．某数组有20个元素,其值为随机产生的两位整数。
现要求将前10个元素与后10个元素对换。
即第1个元素与第20个元素互换,第2个数与第19个元素互换，…,第10个元素与第11个元素互换.在窗体上输出数组原来各元素的值与对换后各元素的值。
Option explicitDim a(1 to 20) as integer, I as integer，j as integer, t as integerPrivate Sub Form_Load(）ShowPrint "原始数组是：”RandomizeFor i = 1 To 20a(i) = Int（Rnd ＊90）+ 10Print a(i）；If i Mod 10 = 0 Then PrintNext iPrintPrint ”现在数组是：”For i = 1 To 10j = 21 - it = a（i）：a(i）= a(j）：a(j) = tNext iFor i = 1 To 20Print a（i)；If i Mod 10 = 0 Then PrintNext iEnd Sub2．从数组中删除一个数。
先定义一个一维数组，大小、数组的值自定。
从键盘上输入一个数，若这个数在数组当中，就把它删除；若这个数不在数组中，提示“该数不在数组中"注意:1)如果数组中存在多个与该数相同的元素,每一个都能删除；2）能实现多次删除Private Sub Form_Load（）ShowReDim a（9）As Integerm = 1Print ”原来数组为:”For i = 0 To 9a(i) = InputBox(”请输入第”＆m ＆"个数：”）Print a(i)；m = m + 1Next iPrintn = InputBox(”查找的数是："）i = 0：flag = FalseDoIf a(i) = n Thenj = i：flag = TrueFor k = j To UBound（a) - 1a（k）= a（k + 1)Next kReDim Preserve a(UBound(a) - 1)i = i - 1End Ifi = i + 1Loop While (i <= UBound（a）)If flag = False ThenMsgBox n ＆"不在该数组中”ElsePrint ”删除”＆n ＆"后的数组是：”For i = 0 To UBound(a）Print a(i）；Next iEnd IfEnd Sub3．数组a中存放着升序排列的数据，使用array赋值，将inputbox输入的新数插入到数组中，插入后数组仍有序。
国家二级VB机试(上机操作)模拟试卷311(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷311(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Combo1的组合框，其宽度为1200，其类型如图3—188所示(即简单组合框)。
要求如下：①请按图中所示，通过属性窗口输入“北京”、“上海”、“广州”、“深圳”。
②设置适当的属性，使得运行时，窗体的最大化按钮和最小化按钮消失。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“左”、“右”，如图3—189。
要求：编写适当的事件过程，使得程序运行时，单击“左”按钮，则焦点位于Text1上；单击“右”按钮，则焦点位于Text2上。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入代码。
步骤3：从代码编辑窗口的“对象”下拉列表中选择Command2，从“事件”下拉列表选择Click，编写以下事件过程。
参考代码：Private Sub Command1_Click( )Text1．SetFocuSEnd SubPrivate Sub Command2_Click( )Text2．SetFocusEnd Sub步骤4：按要求将文件保存至考生文件夹中。
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级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真题2000秋上
2000年（秋）江苏省等级考试上机试卷二级 Visual Basic (VB01)(本试卷上机考试时间为70分钟)一、改错题（17分）[题目]本程序的功能是用来统计二维数组A（1 to 4,1 to 4）中所有元素中0——9十个数字出现的次数，存入数组Times中并显示在窗体上。
Option ExplicitPrivate Sub Form_Click()Dim A(1 to 4,1 to 4) As Integer,I As Integer,J As IntegerDim Times(9) As IntegerRandomizeFor I=1 To 4For J=1 To 4A(I,J)=Int(Rnd(1)*100)+1Print Format(A(I,j),"###");Next JPrintNext ICall Stat(A,Times)For I=1 To 10Print I;"…";Times(I)Next IEnd SubPrivate Sub Stat(A() As Integer,T() As Integer)Dim I As Integer,J As Integer,Cub As Integer,K As IntegerDim Rub As Integer,Char As StringCub=Ubound(A,1):Rub=UBound(A,2)For i=1 To CubFor J=1 To RubChar=Ltrim(Str(A(I,J)))For K=1 To 10T(Mid(Char,K,1))=T(Mid(Char,K,1))+1Next KNext JNext IEnd Sub[要求] 1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句3.以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的根目录下。
国家二级VB机试(上机操作)模拟试卷298(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷298(题后含答案及解析)题型有：1.jpg />步骤2：在代码编辑窗口编写以下事件过程。
参考代码：Private Sub Command1_Click( )Command1．Caption=Label1Label1．Visible=FalseEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，存窗体Form1上画一个文奉框和三个单选按钮，其属性及值如表4—76所示。
步骤2：在代码编辑窗口，编写三个单选按钮的单击事件过程。
参考代码：Private Sub Op1_Click( )trext1=“颐和园”End SubPrivate Sub Op2_Click( )trext1．Text=“兵马俑”End Subrivate Sub Op3_Click( )Text1．Text=“西湖”End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题需要在窗体上画出控件并相应设置其属性，然后编写命令按钮的单击事件，使得标签的Visible属性为False并且改变命令按钮的Caption属性。
第2小题：本题只需在三个单选按钮的Click事件过程中，分别为文本框的Text属性赋予相应内容即可。
简单应用题2．(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。
在窗体上有一个名称为Command1、标题为“计算”的命令按钮；两个水平滚动条，名称分别为Hscroll1和Hscroll2，其Max属性均为100，Min属性均为1；四个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“运算数1”、”运算数2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“／”，如图3—129(a)所示。
vb上机考试题库及答案86套
vb上机考试题库及答案86套VB上机考试题库及答案86套1. 选择题- 1.1 VB中，用于声明变量的关键字是（）。
- A. Dim- B. Declare- C. Let- D. Set- 答案：A- 1.2 下列哪个选项是VB中合法的变量名？（）- A. 123abc- B. _name- C. name$- D. name 2- 答案：B2. 填空题- 2.1 VB中，使用（）函数可以将字符串转换为数值。
- 答案：Val- 2.2 在VB中，使用（）关键字可以定义一个数组。
- 答案：Dim3. 简答题- 3.1 简述VB中的事件驱动编程的概念。
- 答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
4. 编程题- 4.1 编写一个VB程序，实现计算两个数的和并输出结果。
- 答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = 5num2 = 10sum = num1 + num2Debug.Print "The sum is: " & sum```5. 判断题- 5.1 VB中，使用“=”符号可以比较两个变量的值是否相等。
（） - 答案：错误。
应该使用“==”符号进行比较。
- 5.2 在VB中，可以使用“End”关键字来结束一个程序的执行。
（）- 答案：正确。
6. 综合应用题- 6.1 设计一个VB程序，实现用户输入姓名和年龄，程序输出“欢迎你，[姓名]，你今年[年龄]岁。
”- 答案：```vbSub Main()Dim name As StringDim age As Integername = InputBox("请输入你的姓名：")age = Val(InputBox("请输入你的年龄："))MsgBox "欢迎你，" & name & "，你今年" & age & "岁。
国家二级VB机试(上机操作)-试卷81
国家二级VB机试（上机操作）-试卷81(总分：6.00，做题时间：90分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox)，高、宽均为1000。
在图片框内再添加一个有边框的名称为Image1的图像框(Image)。
并通过属性窗口把考生文件央下的图标文件Pointl1(香焦图标)装入图像框Image1中，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。
(2)存名称为Form1的窗体上添加一个名称为Command1、标题为“保存文件”的命令按钮，再添加一个名称为CommonDialog1的通用埘话彬。
要求：①运行时单击“保存文件”命令按钮，则以“保存文件”方式打丌该通用对话框，如图所示。
②通过属性窗口设置适当的属性，使得程序运行时对话框的标题为“保存文件”，且默认文件名为out2。
注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm（分数：2.00）__________________________________________________________________________________________ 正确答案：(正确答案：(1)【操作步骤】步骤1：建立界而，添加相应的控件并设置控件的属性。
程序中用到的控件及属性见表3．45。
步骤2：调试并运行程序，关闭程序后按题同要求存盘。
(2)【操作步骤】步骤1：新建一个窗体，按照题目要求建立控件及属性，如表3．46步骤2：打丌代码编辑窗口，在指定位置编写如下代码。
参考答案 PriVate Sub Commandl_Click() CommonDiaalogl．ShowSave'显示"保存文件"对话框 End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷144(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷144(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Text1的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中品永为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件火下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
(2)在名称为Form1的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。
要求在程序中不得使用变量，每个事什过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建一个窗体，按照要求建立控件并设置其属性，如图3．11所示。
程序中用到的控件及属性如表3．7所示。
步骤2：调试并运行程序，效果如图3．12所示。
步骤3：关闭程序后按题目要求保存T程和窗体文件。
(2)【操作步骤】步骤1：新建一个窗体，按照题日要求建立控什并设置其属性，如图3．13所示。
步骤2：打开代码编辑窗口，存指定位置编写如下代码。
参考答案Private Sub Form_CliCk( ) Form1．Print”单击窗体”End Sub Private Sub P1_Click( ) P1．Print”单击图片框”End Sub 步骤3：凋试并运行程序，关闭程序后按题目要求存盘。
简单应用题2．(1)在考生文件央下有一个工程文件sit3．vbp，窗体中柯两个图片框，名称分别为P1、P2，其中的图片内容分别是-架航天飞机和一朵云彩，一个命令按钮，名称为C1，标题为“发射”，还有一个计时器，名称为Timer1。
国家二级VB机试(上机操作)模拟试卷401(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷401(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。
请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个标签，名称分别为Labe11、Labe12，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。
程序运行时，在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图3—152所示。
要求：画出所有控件，编写命令按钮的Click事件过程。
注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：新建“标准EXE”工程，按要求画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：Private Sub Command1_Click( )Text2＝Text1．SelStart＋1Text3＝Text1．SelLengthEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷410(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷410(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)请在名称为Form1的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，初始内容均为空；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Text1中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)【操作步骤】步骤1：打开Visual Basic开发环境，按照题目的要求新建窗体并添加一个水平滚动条控件，如图3．1所示。
步骤2：在属性窗口中，按照题目的要求设置水平滚动条的相关属性，如图3．2所示。
步骤3：按照题目的要求，在窗体上添加两个标签控件，如图3．3所示。
步骤4：按照题目的要求设置两个标签的相关属性，如图3．4所示。
程序中用到的控件及属性见表3．1。
步骤5：按下键盘上的F5键运行程序，程序运行后的窗体界面如图3．5所示。
步骤6：按题目要求保存工程和窗体，如图3．6所示。
国家二级VB机试(上机操作)模拟试卷115(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷115(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。
再建立一个下拉菜单，菜单标题为“文件”，名称为File，此菜单下含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为选中，运行时的效果如图3-130所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，工程文件名为sjtl．vbp。
(2)新建一个名称为Forml，标题为“使用输入对话框”的窗体，该窗体上无任何控件。
请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，该对话框的标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”。
如图3．131所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sit2．frm，工程文件名为sjt2．vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：新建一个“标准EXE”工程，选择【工具】→【菜单编辑器】命令，打开菜单设计器按要求设置建立菜单项。
步骤3：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，将窗体Forml的Caption属性设置为“使用输入对话框”。
步骤2：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub Form Click( )InputBox“请输入”，“等级考试”，“Basic”End Sub步骤3：按要求将文件保存至考生文件夹中。
简单应用题2．(1)在考生目录下有一个工程文件sit3．vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图3-18所示。
国家二级VB机试(上机操作)模拟试卷105(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷105(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称checkl的复选框数组(Index属性从0开始)，含三个复选框，其标题分别为“语文”、“数学”、“体育”，利用属性窗口设置适当的属性，使“语文”未选，“数学”被选中，“体育”为灰色，再把窗体的标题设置为“选课”，如图3—178所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Forml的窗体上画两个文本框，名称分别为Text1、Text2，再画两个命令按钮，名称分别为Command1、Command2，标题分别为“复制”、“删除”。
程序运行时，在Textl 中输入一串字符，并用鼠标拖拽的方法选择几个字符，然后单击“复制”按钮，则被选中的字符被复制到Text2中(如图3—179所示)。
若单击“删除”按钮，则被选择的字符从Textl中被删除。
请编写两个命令按钮的C1ick过程完成上述功能。
注意：要求程序中不得使用变量，事件过程巾只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。
步骤2：在窗体Forml中加入一个复选框，并用“复制”和“粘贴”的方法，生成包含三个元素的复选框数组。
步骤3：按要求分别设置窗体和复选框数组中各元素的相关属性。
步骤4：按要求将文件保存至考生文件夹中。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，分别编写“复制”和“删除”按钮的单击事件过程。
参考代码：Private Sub Commandl Click( )Text2=Text 1．SelTextEnd SubPrivate Sub Command2 Click( )Forml．Text1．SelText=“”End Sub步骤3：按要求将文件保存至考生文件夹中。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷（2002年秋）
二级 Visual Basic 语言（试卷代号VB01）
（本试卷完成时间 70分钟）
[试卷须知]
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅供参考；
2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；
3．程序代码书写应呈锯齿形。
一、改错题（17分）
[题目]找出1000以内的超完全数。
设符号Φ（N）表示N的所有因子（包括N在内）的和，若Φ（Φ（N））=2N,则N就是一个超完全数。
例如：16的因子和为1+2+4+8+16=31；而31的因子和为1+31=32；32=2×16，故16是一个超完全数。
Option Explicit
Option Base 1
Private Sub command1_click()
Dim I As Integer, A() As Integer
Dim K As Integer, sum1 As Integer, sum2 As Integer
sum1 = 0: sum2 = 0
For I = 2 To 1000
Call fctor(I, sum1)
Call fctor(I, sum2)
If sum2 = 2 * I Then
K = K + 1
ReDim Preserve A(K)
A(K) = I
End If
Next I
For I = 1 To K
Text1.Text = Text1.Text & Str(A(I)) & ""
Next I
End Sub
Private Sub fctor(N As Integer, S As Integer)
Dim I As Integer, J As Integer
Do While I < N
If N Mod I = 0 Then
S = S + I
End If
I = I + 1
Loop
End Sub
[要求]
1．新建工程，输入上述代码，改正程序中的错误；
2．该错时，不得增加或删除语句，但可适当调整语句的位置；
3．将窗体文件和工程文件分别命名F1.frm和P1.vbp,并保存到软盘A的根目录下。
二、编程题（23分）
[题目]生成一个三行八列的二维数组A(3,8)，其中前两行元素产生的方法是：
用初值X1=26及公式Xi+1=(25×Xi+357) Mod 1024，产生一个数列：X1、X2、......、X16 。
其中X1~X8作为A的第一行元素；X9~X16作为A的第二行元素；A的第三行元素值取前两行同列元素的最大公约数。
最后按图示格式显示在图片框中。
[编程要求]
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．按“生成数组”按钮，则将生成的数组显示在图片框中；按“清除”按钮，则将图片框清空；按“退出”按钮，则退出程序运行；
3．程序中必须定义一个求两个数最大公约数的通用函数过程。
[要求]
将窗体文件和工程文件分别命名为F2.frm和P2.vbp,并保存到软盘A的根目录下。