2021计算机等级《二级VB》上机考试预测题
2021计算机等级《二级VB》上机考试预测题
1
设有如图所示窗体和以下程序：
Private Sub Co mmand1_Click()
Text1.Text ="Visual Basic"
End Sub
Private Sub Text1_LostFocus()
If Text1.Text 50Then
Print Tab(20);X
Sum=Sum+X
End If
Next X
Print Tab(20);"Sum=";Sum
End Sub
A. Int(Rnd*99+1)In arr
B. Int(Rnd)In arr
C. Int(Rnd*99+1)In arr( )
D. Int(Rnd)In arr( )
参考答案：A 系统解析：Rnd 函数用于产生一个小于1但大于或等于0的实数，题中要求0~100之间的随机整数，所以需要对Rnd 产生的实数实行计算处理Int(Rnd*99+1)。使用For Each…Next 语句处理数组元素时，Each 后只需写出数组名，不能使用小括号。
13
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为( )。
A. 200
040 006
B. 204
040
406
C. 230
340
006
D. 200
045
056
参考答案：B 系统解析：本题考查了嵌套的For循环，答案为B选项。
14
最简单的交换排序方法是( )。
A. 快速排序
B. 选择排序
C. 堆排序
D. 冒泡排序
参考答案：D 系统解析：交换排序方法是指借助数据元素之间的互相交换实行排序的一种方法，包括冒泡排序和快速排序。冒泡排序是一种最简单的交换排序方法，它通过相邻元素的交换，逐步将线性表变成有序。 15
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下：
Private Sub Text1_KeyUp(KeyCode As Integer ，shiftAs
Integer)
Di m CAs stri ng
Text2.Text =Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a 时，文本框Text2中显示的是( )。
A. A
B. a
C. C
D. c
参考答案：C 系统解析：Asc(c)函数表示c 对应的ASCII 码值，而Chr()函数是将AscII 码值转换为对应的字符，当输入a时，先转换为AscII 码值为97，加上2，变为99，最后转换为对应的字符，即C。
16
假定有下列程序段：
For i =1TO 3
For j=5To 1Step -1
Print i*j Next j
Next i
则语句Print i*j 的执行次数是( )。
A. 15
B. 16
C. 17
D. 18
参考答案：A 系统解析：For…Next 循环语句可提供一个重复执行的语句序列，遵循"先检查，后执行"的规则，执行过程中，循环次数=Int(终值-初值)/步长+1。本题代码是一个嵌套的For 循环，其中每次执行内循环时的循环次数=(Int(1-5)/-1)+1=5，外循环的循环次数为3，所以执行循环体语句：PrintI*J的次数为15次。
17
下列描述中准确的是( )。
A. 程序就是软件
B. 软件开发不受计算机系统的限制
C. 软件既是逻辑实体，又是物理实体
D. 软件是程序、数据与相关文档的集合
参考答案：D 系统解析：软件是程序、数据与相关文档的集合，它是一个逻辑实体。软件的开发要受计算机系统的限制，例如硬件系统的限制、软件操作系统的限制等。
18 窗体上有1个名称为Text1的文本框和1个名称为Co mmand1.的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out .txt 中，每次写入的内容附加到文件原有内容之后。下列能够准确实现以上功能的程序是( )。
A. Private Sub Co mmand1_Click()
Open "out .txt"For Input As #1
Print #1，Text1.Text
Close #1
End Sub
B. Private Sub Co mmand1_Click()
Open "out .txt"For Output As #1
Print #1，Text1.Text
Close #1
End Sub
C. Private Sub Co mmand1_Click()
Open "out .txt"For Append As #1
Print #1，Text1.Text
Close #1
End Sub
D. Private Sub Co mmand1_Click()
Open "out .txt"For Rando m As #1
Print #1，Text1.Text Close #1
End Sub
参考答案：C 系统解析：文件的输入/输出方式：Output 是顺序输出方式，Input 是顺序输入方式，Apend 也是指定顺序输出方式，与Output 不同的是当用Append 方式打开文件时，文件指针被定位在文件末尾，若对文件执行写操作，则写入的数据附加到原来的文件的后面，即Append 是追加方式写入数据。Rando m 是指定随机存取方式，也是默认方式。结合题目要求，易知应该选C。
19
设已经在"菜单编辑器"中设计了窗体的快捷菜单，其菜单为Bs ，取消其"可见"属性，运行时，在以下事件过程中，能够使快捷菜单响应鼠标右键菜单的是( )。
A. Private Sub Form_MouseDown(Button As Integer ，Shift
As Integer ，X As Si ngle ，Y As Si ngle) If Button =2Then
Popup Menu Bs ，2
End Sub
B. Private Sub Form_MouseDown(Button As Integer ，ShiftAs
Integer ，X As Single ，Y As Single) Popup Menu Bs
End Sub
C. Private Sub Form_MouseDown(Button As Integer ，ShiftAs
Integer ，X As Single ，Y As Single) Popup Menu Bs ，0
End Sub
D. Private Sub Form_MouseDown(Button As Integer ，ShiftAs
Integer ，X As Single ，Y As Single) If (Button
=vbLeftButton)Or (Button =vbRightButton)Then Popup Menu Bs End Sub
参考答案：A 系统解析：Popup Menu 方法用来显示弹出式菜单，其格式为：[对象.]Popup Menu 菜单名[，Flags][，X，Y ，][BoldCo
mmand]。其中，[，Flags][，X，Y ，]用来设置菜单的显示位置。为了显示菜单，通常把Popup Menu 方法放到MouseDown 事件中，按照惯例，一般通过单击右键显示菜单，这能够用Button 参数来实现，鼠标右键的参数为2，所以选项A 准确。
20
为了使命令按钮(名称为Co mmand1)右移200，应使用的语句是( )。
A. Co mmand1.Move -200
B. Co mmand1.Move 200
C. Co mmand1.Left =Co mmand1.Left +200
D. Co mmand1.Left =Co mmand1.Left -200
参考答案：C 系统解析：本题考查Visual Basic 控件的Left 属性。为了使Co mmand1右移200，只需将其Left 属性值加上200。选项A、B为错误用法，Co mmand 没有Move 属性。
21
在窗体上从左到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，则光标移到Text2中;否则光标不动，并弹出对话框显示"分数错"。下列程序中准确的是( )。
A. Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =13Then 回车符的ASCII 码是13
a=Val(Text1)
If a >=0Or a =0And a 100Then
Text2 . SetFocus
Else
Text1 . SetFocus ：MsgBox ("分数错")
End If
End If
End Sub
D. Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =13Then 回车符的ASCII 码是13
a=Val(Text1)
If a >=0And a 5，-1，0)后，x 的值为( )。
A. 5
B. 6
C. 0
D. -1
参考答案：D 系统解析：IIf 是If ...Then ...Else 语句的紧凑表达。语法为：IIf(expression ，if_true ，if_false)，如果expression 成立，执行if_true ，如果不成立，执行If_false。根据题意，a=6，大于5，所以结果为-1。
28
国家二级VB机试(上机操作)模拟试卷321(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷321 (题后含答案及解析)
题型有：1.Top+Shapel.Height＞=Line2．Y1 Then’圆的底端坐标加上圆的自身高度与Line2比较 s= 一s End If End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2) 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 Dim k As Long Dim m As Long Dim q As Long Dim p As
Long Dim r As Long Dim n As Long For k=1 To 100 If a(k)Mod
2=0 Then’判断是否为偶数 m=m+a(k)’偶数之和 q=q+1’偶数个数加1
Else n=n+a(k)’奇数之和 p=p+1’奇数个数加1 End If Next k
r=Int((m+n)／(p+q)+0．5)’平均值m=Int(m／q+0．5)’偶数平均值 n=Int(n／P+0．5)’奇数平均值 Select CaSe Combol．Text Case”所有偶数” Text1=m
Case”所有奇数” Textl=n Case”所有数” Textl=r End Select 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
综合应用题
3． 在考生文件夹下有一个工程文件sjt5．vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是：数列的前2项是小于10的正整数，将此两数相乘，若乘积＜10，则以此乘积作为数列的第3项；若乘积≥10，则以乘积的十位数为数列的第3项，以乘积的个位数为数列的第4项。再用数列的最后两项相乘，用上述规则形成后面的项，直至产生了第n项。窗体上部从左到右3个文本框的名称分别为Text1、Text2、Text3，窗体下部的文本框名称为Text4。程序运行时，在Text1、Text2中输入数列的前两项，Text3中输入要产生的项数n，单击“计算”按钮则产生此数列的前n项，并显示在Text4中。如图所示。 已经给出了全部控件，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不得修改原有程序和控件的属性。最后把修改后的文件按原文件名存盘。
国家二级VB机试(上机操作)模拟试卷236(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷236 (题后含答案及解析)
全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
1． 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“框架练习”的窗体上画一个名称为Frame1、标题为“字体”的框架摔件；在框架中画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”、“黑体”，标题在单选按钮的左边。运行后的窗体如图2．158所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjtl．frm，上程文件名为sjtl．vbp。 (2)在名称为Forml窗体上，画一个名称为Imagcl的图像框，在其中显示考生文件夹下的图片“pic2．jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为HScroll1、VScroll1，它们的刻度范围部是1～3。如图2．159(a)所示。要求如下：①定义两个窗体级变量：length、high，并编写窗体的Form Load事件过程，使length、high分别等于图像框的宽、高； ②编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框初始尺寸的倍数改变图像框相应方向的尺寸。例如：HScroll1的滚动块在刻度值为2的位置时，图像框的宽为初始宽度的2倍。如图2．159(b)所示。对于垂直滚动条也相同。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为s；t2．frm，工程文件名为sjt2．vbp。要求程序中的两个变量必须是length、high，此外不能再使用其他变量，除Form Load事件过程外，其他每个事件过程中只能写一条语句。
正确答案：第1小题 【操作步骤】 步骤1：新建一个“标准EXE”工程，如表3．84在窗体中画出控件并设置其相关属性。 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：新建一个“标准EXE”上程，在窗体Form1中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表3．85所示。
国家二级VB机试(上机操作)模拟试卷600(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷600 (题后含答案及解析)
题型有：1.jpg /> 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 PriVate Sub Commandl_Click( )
Text2=Textl．SelLength End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】SelLength属性与SelStart和SelText属性容易混淆，SelStart属性是返回／设置选定文本的起始点，SelText属性是返回／设置当前选定文本的字符串。
解析：selLength属性用于返回／设置选定的字符数，通过文本框的Name和Caption属性设置文本框的名称和标题，通过命令按钮的Name和Cap．tion属性设置命令按钮的名称和标题。
简单应用题
3． 在考生文件夹下有一个工程文件sjt3．vbp。程序运行后，单击“读入数据”按钮，可将考生文件夹下in3．1xt文件中的所有英文单词读入，并在Textl文本框中显示；单击“插入列表框”按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。 在in3．txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
正确答案： 【操作步骤】 步骤l：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandl_C1ick( )
Dim st$．ch$ Open App．Path＆＂＼in3．txt＂For In— put As#’打开文件 Do While Not EOF(1)′文件指针是否到达文件末尾 Input#1，ch′达到文件末尾返回true．否则返回false st=st＆ch′将读出的数据加到原有数据末尾 Loop Close#1′关闭文件 Textl=st′将内容显示在文本框中
国家二级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机试(上机操作)模拟试卷222(题后含答案及解析)
国家二级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：在代码编辑窗口，分别编写三个按钮的单击事件过程。 参考代码：
国家二级VB机试(上机操作)模拟试卷488(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷488 (题后含答案及解析)
全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
1． 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为CmdChange、标题为“改变颜色”的命令按钮，窗体标题为“设置窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(＆HFF＆)。运行程序后的窗体如图3－142所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。 (2)在名称为Form1的窗体上画一个命令按钮和一个垂直滚动条，其名称分别为Cmd1(标题为“设置”)和Vsb1，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max＝窗体高度 Min＝0 LargeChange＝50 SmallChange＝10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图3—143所示。 要求：不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj2．vbp，窗体文件名为vbsj2．frm。
正确答案：第1小题 【操作步骤】 步骤1：新建一个“标准EXE”工程，在窗体Form1中画一个命令按钮，设置相关属性，其属性及值如表4－83所示。 步骤2：打开代码编辑窗口，编写按钮的Click事件过程中。参考代码： Private Sub cmdChange_Click( ) BackColor＝＆ HFF ＆ End Sub
步骤3：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：新建一个“标准EXE”工程，按表4－84在窗体中画出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写水平滚动条的Change事件过程。参考代码： Private Sub Cmd1_Click( ) Vsb1．Max＝Form1．Height
国家二级VB机试(上机操作)模拟试卷256(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷256 (题后含答案及解析)
全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
1． 在考生文件夹下有一个数据库文件“samp1．accdb”。在数据库文件中已经建立了一个表对象“学生基本情况”。根据以下操作要求，完成各种操作。
(1)将“学生基本情况”表名称改为“tStud”。 (2)设置“身份ID”字段为主键；并设置“身份ID”字段的相应属性，使该字段在数据表视图中的显示标题为“身份证”。 (3)将“姓名”字段设置为有重复索引。 (4)在“家长身份证号”和“语文”两字段间增加一个字段，名称为“电话”，类型为文本型，大小为12。 (5)将新增“电话”字段的输入掩码设置为“010－********”的形式。其中，“010－”部分自动输出，后八位为0—9的数字显示。 (6)在数据表视图中将隐藏的“编号”字段重新显示出来。
正确答案：(1)【操作步骤】 打开考生文件夹下的数据库文件samp1．aeedb．单击“表”对象，在“学生基本情况”表上右击，在弹出的快捷菜单中选择“重命名”命令，然后输入“tstud”。如图3．1所示。 (2)【操作步骤】 选中表“tStud”，右击，选择“设计视图”命令进入设计视图，在“身份ID”字段上右击，然后选择“主键”命令，将“身份ID”设置为主键，在下面“标题”栏中输入“身份证”。如图3．2所示。 (3)【操作步骤】 选择“姓名”字段，在“索引”栏后的下拉列表中选择“有(有重复)”。如图3．3所示。 (4)【操作步骤】 选择“语文”字段，右击，在弹出的快捷菜单中选择“插入行”命令，输入“电话”字段，在后面的“数据类型”中选择“文本”，在下面的“字段大小”中输入12。如图3．4所示。 (5)【操作步骤】 选择“电话”字段，在“字段属性”下的“输入掩码”行输入“”010．”00000000”，如图3．5所示。单击快速访问工具栏中的“保存”按钮，关闭设计视图界面。 (6)【操作步骤】 双击表“tStud”打开数据表视图，单击“开始”选项卡下“记录”组中的“其他”按钮，在弹出的菜单中选择“取消隐藏字段”命令，打开“取消隐藏列”对话框，勾选列表中的“编号”，单击“关闭”按钮。如图3．6所示。单击快速访问工具栏中的“保存”按钮，关闭数据表视图。
国家二级VB机试(上机操作)模拟试卷318(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷318 (题后含答案及解析)
全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题
基本操作题
1． (1)在名称为Form1的窗体上添加一个名称为List1的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。同时建立一个下拉菜单，其名称为File，标题为“文件”，此菜单含有一个子菜单项，标题为“显示列表框”，名称为Show，初始状态为被选中，运行时的效果如图所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt1．frm，工程文件名保存为sjt1．vbp。 (2)新建一个名称为Form1，标题为“使用输入对话框”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窗体时，出现输入对话框，其标题为“等级考试”，提示信息为“请输入”，默认值为“Basic”，如图所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2．frm，工程文件名保存为Sjt2．vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。
正确答案：(1) 【操作步骤】 步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表3．61，菜单编辑属性见表3．62，菜单项的Checked属性设置为True。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。(2) 【操作步骤】 步骤1：建立界面，并设置窗体的Caption属性为“使用输入对话框”。 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Form_Click( ) InputBox”请输入”，”等级考试”，”Basic” End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
简单应用题
2． (1)在考生文件夹下有一个工程文件sjt3．vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Lahel1的标签和其他一些控件(如图1所示)。在程序运行时，若用鼠标右键单击圆的边线，则指针恢复到起始位置(如图1所示)；若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图2所示)；若鼠标左键或右键单击其他位置，则在标签上输出“鼠标位置不对”。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上(判断结果略有误差)．是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n(要求：8≤n≤12)；单击“计算”按钮，则计算1!+2!+3!…+n!的值，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生文件夹下的out4．dat
国家二级VB机试(上机操作)模拟试卷316(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷316 (题后含答案及解析)
题型有：1.ListCount-k) List1．List(List1．ListCount—k)=s Next
End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。(2) 【操作步骤】 步骤1：打开本题项目工程。 步骤2：打开代码编辑窗口，去掉程序中的注释符“’”，将问号改为正确的内容。 Option Base 1 Dim
a(10)As Integer Private Sub Commandl_Click( ) Randomize For k=1
To 10 a(k)=Int(Rnd*99)+1 Picture1.Print a(k)； Next k Picture1．Print
End Sub Private Sub Command2_Click( ) Dim start As Integer，n As
Integer start=Val(Text1．Text) If start=0 Then start=1 End If If
start＞10 Then start=10 End If If Text2．Text=””Then n=10一start+1 Else n=Val(Text2．Text) End If If start+n＞11 Then
n=10一start+1 End If For k=start To start+n-1 a(k)=0 Next k
For k=1 To 10 Picture1．Print a(k)； Next k End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
国家二级VB机试(上机操作)模拟试卷212(题后含答案及解析)
国家二级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( )