VB上机
VB60程序设计上机实验指导
VB6.0程序设计上机实验指导VB6.0程序设计上机实验指导实验一认识VB6.0[实验目的]1.掌握VB集成开发环境的启动和退出2.了解VB集成开发环境的基本组成3.学会在VB集成开发环境中建立应用程序[实验内容]一、VB集成开发环境的启动和退出1.启动VB集成开发环境想一想：可以通过哪些方法启动VB集成开发环境。
2.在“新建工程”对话框中选择“标准EXE”注意：在“新建工程”对话框中有几个选项卡？它们各有什么作用？在“新建”选项卡中有哪些选项？3.熟悉VB集成开发环境4.退出VB集成开发环境想一想：可以通过哪些方法退出VB集成开发环境。
二、VB集成开发环境的基本组成1.指出VB集成环境中各组成部分的名称。
2.找到并熟悉VB集成环境中的工具箱、工程管理器窗口、属性窗口、窗体设计器窗口、代码窗口；掌握打开和关闭这些窗口的方法。
想一想：可以通过哪些方法打开代码窗口。
3.掌握在窗体设计器窗口中添加控件。
4.学会设置窗体、命令按钮、文本框的最常用属性。
5.在代码窗口中找到窗体、命令按钮、文本框的主要事件，学会在对象事件过程中输入代码。
想一想：窗体、命令按钮、文本框的缺省事件是什么。
三、建立第一个VB应用程序程序功能：程序界面见下图，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,Visual Basic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。
实验一认识VB6.0Private Sub Command1_Click()Text1.Text = "Hello，Visual Basic！"End SubPrivate Sub Command2_Click()Text1.Text = ""End SubPrivate Sub Command3_Click()EndEnd Sub想一想：怎样在窗体中添加控件，怎样改变窗体和控件的大小，怎样改变控件的位置。
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机试(上机操作)模拟试卷5(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷5(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在标题为”文本框”、名称为Forml的窗体上画一个名称为Textl的文本框，无初始内容，其高、宽分别为2000、1800，可显示多行，有水平滚动条，并通过属性窗口把文本框的字体样式设置为”斜体”(如图2．49所示)。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
正确答案：步骤1：新建一个”标准。
EXE”工程，如表3-26在窗体中画出控件并设置其相关属性。
步骤2：按要求将文件保存至考生文件夹中。
2．在名称为Forml的窗体上画一个名称为Listl的列表框，通过属性窗口输入4个列表项：”数学”、”物理”、”化学”、”语文”，如图2-50所示。
请编写适当的事件过程，使得在装入窗体时，把最后一个列表项自动改为”英语”；单击窗体时，则删除最后一个列表项。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：步骤1：新建一个”标准EXE”工程，在窗体Forml中加入一个列表框，在属性设置窗口中将其Name属性设置为Listl，在其List属性中添加四个项目，依次为”数学”、”物理”、”化学”和”语文”。
注意：每输入完一项后按＜Ctrl+Enter＞键换行再输入下一项。
步骤2：打开代码编辑窗口，编写相应的事件过程：参考代码：Private Sub Form_Click( )Listl．RemoveItem Listl．ListCount_1Enld SubPrivate Sub Form_Load( )Listl．List(Listl．ListCount-1)=“英语”End Sub步骤3：按要求将文件保存至考生文件夹中。
国家计算机等级考试VB上机应试技巧
高 校 的 微 机 实 训 室 的 维 护 与 管 理 是 一
管 理 与维 护 ［ Ｊ ］ ． 学园， ２ ０ １ ２ （ ２ ４ ） ： ４ ４ － ４ ５ ．
息， ２ ０ ０ ７ （ １ ６ ） ： １ ５ ５ －１ ５ ６． 【 ５ 】李 成 喜 ． 浅 谈 高校 计算 机 实 验 室 的 安 全
贝 可 以 通 过 网 络 中 一 台 计 算 机 安 装 后 的 盘 空 间 ， 让 硬 盘 空 间利 用 最 大化 。
状 态， 拷 贝 更 新 至 整 个 网络 中 其 他 计 算 机
２２ ４．
２ ． ５合 理安 排 空间 ， 分类管 理 软件
传 统的 计算机 系统管 理 ， 一 般 都 是 对 理 模 式 和理 念 ， 学 习 新 的 技 术 和 知识 ， 学习
硬 盘进 行 分 区管 理 ， 安装不同软件 ， 但是 常 新 的技 能和 方 法 ， 注意积累经验， 做 好 实训
机 的不 同计算 机名 和Ｉ Ｐ 地 址 分 别 进 行 修 个 复 杂 的 系 统 工程 ， 需 要 合 理 科 学 的规 章 ［ ６ 】刘 钦 东 ． 学校计算 机机房的维护［ Ｊ ］ ． 中 改 ， 这样 就可 以大大 方便维 护 ， 加 强 实 训 制 度 ， 而 且 随 着 计 算 机 硬 件 的 快 速 更 新 和 室管理 。
参 考 文献
［ １ ］沈 涛 ． 高 等 学 校 计 算机 实验 室 管 理 方 法
的探 讨【 Ｊ 】 ． 福建电脑， ２ ０ １ １ （ ５ ） ： １ ６ ０ ．
机 房 人 员 重 复 无 效 的 工作 量 ， 例如 ： ｇ ｈ ｏ ｓ ｔ 来进行保护与还原， 也 可单 独 设 置 不还 原 。 拷贝等 ， 但 是 有 时 系统 或 软 件 的 修 改 只 是 我 们 通 过 创 建 频 道 ， 安 装 教 学 和 教 师 所 需 大 了工 作 量 ， 因 此 我 们 考 虑 使 用 差 异 拷 化 的 教 学 环 境 ， 从 根 本 上 解 决 了单 个 操 作 贝， 差 异拷 贝功 能不是单 一 的 网络拷 贝 ， 系 统 安 装 过 多 软件 后 系统 变 慢 ， 软 件 冲 突
vb上机考试试题
vb上机考试试题VB（Visual Basic）是一种非常流行的编程语言，在计算机科学领域广泛应用。
VB语言的开发环境是Visual Studio，该软件是微软公司开发的一个集成开发环境（IDE），是用来开发Windows 应用程序的集成包。
VB上机考试是衡量学生能力的一种重要方式之一，它可以考察学生掌握VB语言的基础知识和编程能力。
下面，我们列举一些常见的VB上机考试试题。
1. 编写一个求和程序，要求实现输入两个数值，计算它们的和并将结果输出。
提示：可以使用文本框（TextBox）和按钮（CommandButton）控件。
2. 编写一个计算器程序，要求实现基础的加、减、乘、除四则运算。
提示：可以使用文本框和按钮控件以及一些逻辑运算符和条件语句。
3. 编写一个登录界面，要求实现输入用户名和密码，验证用户信息是否正确。
如果验证通过，则进入主界面；如果验证失败，则提示用户重新输入。
提示：可以使用文本框和按钮控件以及一些判断语句和布尔运算符。
4. 编写一个学生管理系统，要求实现添加、删除和修改学生信息的功能。
提示：可以使用列表框（ListBox）和按钮控件以及一些数组和循环语句。
5. 编写一个简单的冒泡排序程序，要求实现对一组数字进行排序。
提示：可以使用文本框和按钮控件以及一些数组和循环语句。
这些试题都是比较基础的，但是涵盖了VB语言的许多核心概念和技术。
在实际应用中，我们还可以根据自己的需求增加一些拓展性的试题，比如实现文件操作、网络连接、多线程等等。
总的来说，VB上机考试是一种有效的评估学生编程能力的方式，它可以让学生在实践中巩固和应用所学知识，提高自己的技能水平。
我们希望大家能够通过VB上机考试，更好地掌握编程技能，为未来的职业发展打下坚实的基础。
全国计算机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上机实验题
(截止目前所有上机实验及代码。
不用画窗体界面,只写题目和代码.填写实验报告也是复习的过程，请务必认真！．．．．．．）实验一:第二章⒈在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“等级考试”,BorderStyle属性值为1，可以根据标题自动调整大小；然后再画一个命令按钮，其名称和标题均为Command1，编写适当的事件过程。
程序运行后,界面如图所示,此时如果单击命令按钮，则标签消失，同时用标签的标题作为命令按钮的标题.Private sub command1_click(）Label1.visible=falseCommand1.caption=label1.captionEnd sub⒉在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“输入信息”、一个文本框,名称为Text1，Text属性为空白、一个命令按钮,名称为Command1，标题为“显示”。
然后编写命令按钮的Click事件过程。
程序运行后，在文本框输入“计算机等级考试"，然后单击命令按钮,则标签和文本框消失，并在窗体上显示文本框的内容。
要求程序中不得使用任何变量。
上机代码：Private sub command1_click(）Label1。
visible=falseText1.visible=falsePrint text1.textEnd sub⒊在名称为Form1的窗体上画两个文本框,名称分别为Text1和Text2,再画两个命令按钮,名称分别为Command1和Command2,标题分别为“复制"和“删除”。
程序运行时，在Text1中输入一串字符,并用鼠标拖曳的方法选择几个字符，然后分别单击“复制”按钮，则被选中的字符被复制到Text2中；若单击“删除"按钮，则被选中的字符从Text1中被删除.请编写两个命令按钮的Click过程完成上述功能.Private sub command1_click（)Text2=text1。
国家二级VB机试(上机操作)模拟试卷353(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷353(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上画两个名称分别为Framel、Frame2的框架，标题分别为“字号”、“修饰”；在Framel中画两个单选按钮，名称分别为Optionl、Option2，标题分别为“10号字”、“20号字”，且标题显示在单选按钮的左边；在Frame2中画一个名称为Checkl的复选框，标题为“下划线”。
运行后的窗体如图3．174所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)在名称为Form1的窗体上从上到下画两个文本框，名称分别为Text1、Text2；再画一个命令按钮，名称为Command1，标题为“选中字符数是”。
程序运行时，在Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则在Text2中显示选中的字符个数(如图3．175所示)。
请编写按钮的Click事件过程。
要求：不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
正确答案：(1)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：按要求将文件保存至考生文件夹中。
(2)步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性，步骤2：打开代码编辑窗口，编写以下事件过程。
参考代码：Private Sub Command1 Click( )Text2．Text=Form1．Text1．SelLengthEnd Sub 步骤3：按要求将文件保存至考生文件夹中。
解析：(1)本题只需按题目在窗体中画出控件，并设置相关属性即可。
(2)要在Text2中显示Text1中选中的字符个数，需编写语句将Text1的SelLength属性返回值赋值给Text2。
vb上机考试基本操作题
四、基本操作题1. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“VBBC”，标题改为"字体显示"。
2.请在窗体的适当位置增加以下控件：文本框Text1，Text属性为“VB演示”；复选按钮Check1，Value初值为0，Caption属性为“粗体”；命令按钮Command1，标题为“退出”，结束系统运行。
3.要求用If-Endif语句完成：选中复选按钮，文本框的文字为粗体；不选中，文本框的文字取消粗体，单击命令按钮结束程序运行。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Command1_Click()EndEnd Sub2. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
2.请在适当位置增加以下控件：标签Label1，标题为："列表显示"；文本框Text1用于显示在列表框中选中的项；列表框List1。
3.在窗体装载事件中编写代码为列表框List1添加三项显示内容：“足球”，“篮球”，“排球”。
4.请先调试、运行，然后将工程、窗体保存。
Private Sub Form_Load()List1.AddItem "足球"List1.AddItem "篮球"List1.AddItem "排球"End SubPrivate Sub List1_Click()Text1.Text = List1.TextEnd Sub3. 在考生文件夹中，完成以下要求：1.启动工程文件Sjt.Vbp，将该工程文件的工程名改为“Spks”，并将该工程中的窗体文件Sjt.frm的窗体名改为“Sjt”，窗体的标题为"VB控件"。
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上机操作练习题及答案
计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。
组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。
运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。
再画两个标题分别为“椭圆”和“圆”的命令按钮。
如下图所示。
要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。
程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjr2.vbp，窗体文件名为sjr2.frm。
二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。
窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。
程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。
运行窗体如图所示。
要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序。
最后程序按原文件名存盘。
vb上机答案全部
实验一Form1.print “程序设计基础教程”End subPrivate sub form_dblclick()Form1.clsEnd subDim a as single,b as single,c as single a=val(text1.text)b=val(text2.text)c=a*btext3.text=str(c)end subDim n as integer,a as singlen=val(text1.text)a= n^(1/3)text2.text=str(a)end subText1.text=“visual basic 程序设计”end subPrivate Sub Command2_click()Text1.text=“”end subText2.text=left(text1.text,5)end subPrivate Sub Command2_click()Text3.text=len(text1.text)end subForm1.Move 0, 0End SubPrivate Sub Command2_Click()Form1.Height = Form1.Height * 1.2Form1.Width = Form1.Width * 1.2End Sub7.Const pi as single=3.14159Command1_click()Dim a as single,b as single,c as single,s as single a=val(text1.text)b=val(text2.text)c=val(text3.text)s=a*b*sin((c*pi)/180)/2text4.text=round(s ,2)end sub实验二顺序Const pi as single=3.14159Private Sub Command1_click()Dim r as single,v as singler=val(text1.text)v=4/3 *pi*r^3label1.caption=format(v, “0.00”)end subDim a as single,b as single,c as single,d as single a=val(text1.text)b=val(text2.text)c=val(text3.text)d=(a+b+c)/3text4.text=format(d, “0.00”)end subText1.locked=falseEnd subPrivate Sub Text1_changeCommand2.enable=trueEnd subPrivate Sub Command_click()Text1.locked=trueCommand2.enable=falseEnd subText1.text=“欢迎光临”End subCommand2_click()Text1.text=“谢谢再见”End subText1.selstart=8Text1.sellength=9End subCommand2_click()Label2.caption=text1.seltext End subConst pi as single=3.14159Dim r as single,h as singlePrivate Sub Command click()Dim s as singler=text1.texth=text2.texts=2*pi*r^2+2*pi*r*htext3.text=format(s, “0.000”) end subPrivate Sub command2 click()dim v as singlev=pi*r^2*htext4.text=format(v, “0.000”) end subDim a as string,b as stringPrivate Sub Command1_click()a=text1.textb=text2.texttext3.text=“a” & “b”end subPrivate Sub command2_click()dim t as stringa=text1.textb=text2.textt=aa=bb=ttext1.text=atext2.text=blabel1.caption=“交换成功”end sub实验三选择Dim n as integerIf (n mod 3=0 )and (n mod 7=0 ) then Label2.caption=“Yes”ElseLabel2.caption=“No”End ifEnd subDim x as single,y as singlex=text1.texty=text2.textif x>0 and y>0 thentext3.text=“第一象限”elseif x<0 and y>0 thentext3.text=“第二象限”elseif x<0 and y<0 thentext3.text=“第三象限”else x>0 and y<0 thentext3.text=“第四象限”end ifend subDim a as single,b as single,c as single,d as single a=text1.textb=text2.textc=text3.textd=a+b+cif d>=270 thenif d>=285 thentext4.text=“Gold Medal”elsetext4.text=“Silver Medal”end ifelseif d>240 thentext4.text=“Bronze Medal”elseif a>95 or b>95 or c>95 thentext4.text=“Honor Medal”elsetext4.text=“No Medal”end ifend ifend subText.text=“我是博士生”End subOption2_clickText.text=“我是硕士生”End subOption3_clickText.text=“我是本科生”End subIf Check1.Value ThenLabel1.FontUnderline = TrueElseLabel1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value ThenLabel1.FontStrikethru = TrueElseLabel1.FontStrikethru = FalseEnd IfEnd SubDim n as singlen=text1.textif n=<4 thentext2.text=format（10，“0.0”）elseif n>4 and n<=15 thentext2.text=format（10+1.2*(n-4)，“0.0”）elsetext2.text=format（1.8*n，“0.0”）end ifend subIf text1.text=“Teacher” thenIf text2.text=“123456” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseif text1.text=“Student” thenIf text2.text=“654321” thenLabel3.caption=“登录成功”ElseLabel3.caption=“密码不正确”End ifElseLabel3.caption=“用户未注册”End ifEnd sub实验四循环Dim n As Integer, i As Integer, a As Long n = Text1.Texta = 0For i = 1 To nIf (i Mod 3 = 0) And (i Mod 7 <> 0) Thena = a + iEnd IfNext iLabel1.Caption = aEnd SubDim n As Integer, m As Integer, i As Integern = Text1.Text n=val(text1.text)m = Text2.Text m=val(text2.text)If m >= n Then for i=n to 1 step -1For i = n To 1 Step -1 if n mod i=0 and m mod i=0 then If (m Mod i = 0) And (n Mod i) = 0 Then text3.text=str(i)Text3.Text = I exit forExit For end ifEnd If next iNext iElseFor i = m To 1 Step -1If (m Mod i = 0) And (n Mod i = 0) ThenText3.Text = iExit ForEnd IfNext iEnd IfEnd SubDim n As Integer, m As Integer, i As Integer, a As Integer, s As Integer, flag AsBooleanm = Text1.Textn = Text2.Texts = 0For a = m To nflag = TrueFor i = 2 To a - 1If a Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True Then s = s + a Next aText3.Text = sEnd SubTimer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseLabel1.Left = 100End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 End SubDim n As Single, i As Single, a As Single, s As Single n = Label1.Captions = 0For i = 1 To nFor a = 1 To is = s + aNext aNext iText1.Text = sEnd SubPrivate Sub HScroll1_Change()Label1.Caption = HScroll1.ValueEnd SubDim s As Single, n As Long, t As Long, i As Longs = Text1.Textt = 1For i = 1 To Len(s)If Right(s, 1) = "1" Thenn = n + tEnd Ift = t * 2s = Left(s, Len(s) - 1)Next iLabel1.Caption = nEnd SubPrivate Sub Command2_Click()Dim a As Long, q As Longa = Text1.TextDo While (a > 0)q = a Mod 2 & qa = a \ 2LoopLabel1.Caption = qEnd SubTimer1.Enabled = TrueCommand1.Enabled = FalseCommand1.Caption = "继续"Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Command2.Enabled = FalseCommand1.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Label1.FontSize = Label1.FontSize * 1.1 If Label1.FontSize > 100 ThenLabel1.FontSize = 8End IfEnd Sub实验五数组Private Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 10a(i) = Int(Rnd * 81) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer Text2.text=""For i = 1 To 9For j = i + 1 To 10If a(i) > a(j) Thent = a(j)a(j) = a(i)a(i) = tEnd IfNext jNext iFor i = 1 To 10If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2) End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 10a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & a(i) & Space(2)Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, max As Integermax = a(1)For i = 2 To 10If max < a(i) Thenmax = a(i)End IfNext iText2.Text = maxText3.Text = Chr(max)End SubPrivate Sub Command1_Click()Dim i As IntegerFor i = 1 To 100a(i) = Int(Rnd * 26) + 65Text1.Text = Text1.Text & Chr(a(i)) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As Integer, b As Integer, j As Integer r = 0b = Asc(Text2.Text)For i = 1 To 100If a(i) = b Thenj = j + 1End IfNext iText3.Text = jEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i, j) & Space(2) Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_ClickDim i as Integer ,j as Integer ,s as Integer For i = 1 to 5j = 6 – is=s+a( i ,j )next iLabel1.caption =sEnd SubPrivate Sub Command1_Click()Dim n As Integer, i As Integeri = Val(Text1.Text)ReDim a(1 To i)a(1) = 1a(2) = 1For n = 3 To ia(n) = a(n - 1) + a(n - 2)Next nText2.Text = a(i)End SubPrivate Sub Command1_Click()Dim i As IntegerText1.text=""For i = 1 To 50a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerText2.Text = 0For i = 1 To 50If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Text2.Text = Val(Text2.Text) + a(i)End IfNext iEnd SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerText1.Text = ""For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41) + 10Text1.Text = Text1.Text & a(i, j) & Space(2)Next jText1.Text = Text1.Text & vbCrLfNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer,j as integerFor i=1 to 4t=a(i,1)a(i,1)=a(i,3)a(i,3)=tNext tFor i = 1 To 4For j = 1 To 4Label1.Caption = Label1.Caption & a(i, j) & Space(2) Next jLabel1.Caption = Label1.Caption & vbCrLfNext iEnd Sub实验六常用控件Private Sub Op_Click(Index As Integer)Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)Select Case IndexCase 0c = a + bCase 1c = a - bCase 2c = a * bCase 3c = a / bEnd SelectText3.Text = Str(c)End SubPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 10a(n) = Int(Rnd * 81) + 10List1.AddItem a(n)Next nEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, k As Integer, t% For i = 1 To 9For k = i + 1 To 10If a(i) > a(k) Thent = a(i)a(i) = a(k)a(k) = tEnd IfNext kNext iFor i = 1 To 10List2.AddItem a(i)Next iEnd SubPrivate Sub Command1_Click()Timer1.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Timer1_Timer()List1.AddItem Int(Rnd * 90000 + 10000) End SubDim n As Integer, s As Integers = 0For n = 0 To 4If List1.Selected(n) = True Thens = s + 1End IfNext nText1.Text = sEnd SubList1.AddItem Combo1.TextEnd SubPrivate Sub List1_DblClick()List1.RemoveItem List1.ListIndexEnd SubText1.Text = Combo1.TextEnd SubPrivate Sub Command2_Click()Combo1.List(Combo1.ListIndex) = Text1.TextEnd SubPrivate Sub Timer1_TimerDim n as integerIf n>Combo1.ListCount-1 then n=0Combo1.ListIndex = nn=n+1End SubPrivate Sub Command1_ClickTimer1.Enabled =TrueCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2.ClickTimer1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled =FalseEnd SubPrivate Sub Command3_Click()For j = 0 To Combo1.ListCount - 1If Combo1.List(j) = Trim(Text1.Text) Then Exit ForEnd IfNext jIf j = Combo1.ListCount ThenLabel1.Caption = "No Found"ElseLabel1.Caption = "Found"End IfEnd Sub实验七过程Dim i As Integer, n As Integer, p As Double n = Val(Text1.Text)p = 0For i = 1 To np = p + fact(i)Next iText2.Text = Str(p)End SubFunction fact(ByVal n As Integer) As Double Dim i As Integer, p As Doublep = 1For i = 1 To np = p * iNext ifact = pEnd FunctionDim x As Integer, y As Integer, z As Integer x = Val(Text1.Text)y = Val(Text2.Text)z = Val(Text3.Text)Swap x, ySwap x, zSwap y, zText4.Text = x & " " & y & Space(2) & z End SubPrivate Sub Swap(ByRef x%, ByRef y%)Dim t As IntegerIf x < y Thent = x: x = y: y = tEnd IfEnd SubDim m As Integer, n As Integerm = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = m * n / Gcd(m, n)End SubFunction Gcd(ByVal m%, ByVal n%) As Integer Dim i As IntegerFor i = m To 1 Step -1If m Mod i = 0 And n Mod i = 0 ThenGcd = iExit FunctionEnd IfNext iEnd FunctionDim x As Integer, n As Integerx = Val(Text1.Text)n = Val(Text2.Text)Text3.Text = Square(x, n)End SubFunction Square(ByVal x%, ByVal n%) As Double Dim i As IntegerFor i = 0 To nSquare = Square + x ^ iNext iEnd FunctionDim m As Integer, n As Integer, i As Integer Text3.Text = ""m = Val(Text1.Text): n = Val(Text2.Text)For i = m To nIf Isprime(i) ThenText3.Text = Text3.Text & i & " "End IfNext iEnd SubFunction Isprime(n As Integer) As Boolean Dim i As IntegerIsprime = TrueFor i = 2 To n - 1If n Mod i = 0 ThenIsprime = FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerReDim a(9)Text1.Text = ""For i = 0 To 9a(i) = Int(Rnd * 90) + 10Text1.Text = Text1.Text & a(i) & Space(2) Next iEnd SubFunction sort(b() As Integer)Dim i As Integer, j As Integer, t As Integer For i = 0 To 8For j = i + 1 To 9If b(j) < b(i) Thent = b(j)b(j) = b(i)b(i) = tEnd IfNext jNext iFor i = 0 To 9sort = sort & b(i) & Space(2)Next iEnd FunctionPrivate Sub Command2_Click()Label1.Caption = sort(a())End SubDim i As Integersak = 0For i = 0 To k - 1sak = sak + a * 10 ^ iNext iEnd FunctionPrivate Sub Command1_Click()Dim i As Integer, n As Integer, s As Long, a As Integer a = Val(Text1.Text)n = Val(Text2.Text)s = 0For i = 1 To ns = sak(a, i) + sNext iText3.Text = sEnd Sub实验八图形Picture1.Picture = LoadPicture(App.Path & "\Wys.bmp") End SubPrivate Sub Command2_Click()Picture1.Picture = LoadPicture()End Sub2.If Check1.Value = 1 ThenImage1.BorderStyle = 1ElseImage1.BorderStyle = 0End IfEnd SubPrivate Sub Check2_Click()If Check1.Value = 1 ThenImage1.Picture = LoadPicture(App.Path & "\Pic.jpg") ElseImage1.Picture = LoadPicture()End IfEnd SubShape1.Shape = HScroll1.ValueEnd SubPrivate Sub VScroll1_Change()Shape1.FillStyle = VScroll1.ValueEnd SubPrivate Sub Command1_Click()Picture1.Line (0, 600)-(1600, 600)End SubPrivate Sub Command2_Click()Picture1.ClsPicture1.Circle (800, 600), 500, , , , 2End SubIf keyascii>48 or keyascii<57 ThenKeyascii=0Label1.Caption = "非法输入"ElseLabel1.Caption = "合法输入"End IfEnd SubImage1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2 ^ (1 / 2)) Image1.Height = Image1.Height * Sqr(2 ^ (1 / 2)) End SubPrivate Sub Command2_Click()Image1.Stretch = TrueImage1.Width = Image1.Width * Sqr(2)Image1.Height = Image1.Height * Sqr(2)End SubPrivate Sub Command3_Click()Image1.Stretch = FalseEnd SubPicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsgreen_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End subHsred_changePicture1.backcolor=rgb(hsred.value,hsgreen.value,hsblue.value) End sub实验九文件Private Sub Command1_Click()Dim i As IntegerText1.Text = ""i = 1Open App.Path & "\Grade.txt" For Input As #1Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 30If a(i) = 100 Thens = s + 1End IfNext iText2.Text = sEnd SubDim s As StringText1.Text = ""Open App.Path & "\Infile.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim a As Stringa = UCase(Text1.Text)Text1.Text = aOpen App.Path & "\Outfile.txt" For Output As #1 Print #1, aClose #1End SubPrivate Sub Command1_Click()Dim s As String, i As IntegerText1.Text = ""i = 1Open App.Path & "\Datain.txt" For Input As #1 Do While Not EOF(1)Input #1, a(i)Text1.Text = Text1.Text & a(i) & Space(2)i = i + 1LoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As Integers = 0For i = 1 To 20If a(i) Mod 3 = 0 ThenText2.Text = Text2.Text & a(i) & Space(2)End IfNext iEnd SubDim s As StringText1.Text = ""Open App.Path & "\Dialog.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text & s & vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 65 And Asc(s) <= 90 Thenr = r + 1End IfNext iText2.Text = rEnd SubPrivate Sub Command3_Click()Dim i As Integer, s As String, r As Integer r = 0For i = 1 To Len(Text1.Text)s = Mid(Text1.Text, i, 1)If Asc(s) >= 97 And Asc(s) <= 122 Thenr = r + 1End IfNext iText3.Text = rEnd SubFile1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Dim a As StringIf Right(File1.Path, 1) = "\" Thena = File1.Path + File1.FileNameElsea = File1.Path + "\" + File1.FileNameEnd IfText1.Text = aEnd Sub实验十界面设计Text1.locked=falseFSave.enable=trueEnd subFSave_clickText1.locked=tureFSave.enable=falseEnd sub2.dis_clicktext1.text=“计算机等级考试”end sub3.clea_clicktext1.text=“”end sub4.sqadd_clicklabel1.caption=(val(text1.text)^2)+(val(text2.text)^2) end subsqsub_clicklabel1.caption=(val(text1.text)^2)-(val(text2.text)^2) end submnuclean_clicktext1.text=“”text2.text=“”label1.caption=“”end sub4.Private Sub MnuRed_Click()Shape1.FillColor = vbRedEnd SubPrivate Sub MunBlue_Click()Shape1.FillColor = vbBlueEnd Sub5.Private Sub Command1_Click()Dim a As Integer, i As Integera = Text1.TextFor i = 1 To aIf Sqr(i) = Int(Sqr(i)) ThenList1.AddItem iEnd IfNext iEnd Sub制作人：102宿舍、尤昌波只供参考。
vb上机考试试题
vb上机考试试题一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property2. VB中的“Option Explicit”语句的作用是什么？A. 定义变量类型B. 强制显式变量声明C. 隐藏变量D. 设置变量的作用域3. 在VB中，以下哪个控件用于显示图像？A. LabelB. TextBoxC. PictureBoxD. ComboBox4. 如果要为VB中的按钮控件添加点击事件，应该使用哪个事件？A. ClickB. DoubleClickC. MouseDownD. KeyPress5. 在VB中，以下哪个函数可以用于将字符串转换为数值？A. Str()B. Val()C. Chr()D. Asc()6. VB中的“Select Case”语句最多可以有多少个Case分支？A. 1B. 2C. 10D. 无限制7. 在VB中，以下哪个属性用于设置控件是否可见？A. VisibleB. EnabledC. CaptionD. Text8. 当在VB中创建一个数组时，数组的下标默认从哪个数字开始？A. 0B. 1C. 100D. -19. 在VB中，以下哪个方法用于获取文本框中输入的文本？A. TextB. CaptionC. ValueD. Name10. VB中的“With”语句用于什么目的？A. 初始化变量B. 创建对象C. 引用对象的多个属性或方法D. 定义数据类型二、填空题（每空3分，共30分）11. 在VB中，使用________关键字可以创建一个类。
12. 如果要让一个变量在整个应用程序中都可访问，应该使用________关键字声明它。
13. 在VB中，一个事件处理程序的名称通常由触发事件的控件名称、一个下划线和一个________组成。
14. 要循环遍历一个数组中的所有元素，可以使用________循环。
国家二级VB机试(上机操作)模拟试卷157(题后含答案及解析)
国家二级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机试(上机操作)模拟试卷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机试(上机操作)模拟试卷303(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷303(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。
请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字(Cross)形状。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画两个标签，名称分别为Label1、Label2，标题分别为“开始位置”、“选中的字符数”；画三个文本框，名称分别为Text1、Text2、Text3，再画一个名称为Command1，标题为“显示选中信息”的命令按钮。
程序运行时，在Text1中输入若干字符，并用鼠标选中一些字符后，单击“显示选中信息”按钮，则把选中的第一个字符的顺序号显示在Text2中，选中的字符个数显示在Text3中，如图3—152所示。
要求：画出所有控件，编写命令按钮的Click事件过程。
注意：要求程序中不得使用变量，事件过程中只能写两条语句，分别用于显示第一个字符的顺序号和显示选中的字符个数。
存盘时必须存放在考生文件夹下，工程文件名为sit2．vbp，窗体文件名为sjt2．frm。
正确答案：第1小题步骤1：新建“标准EXE”工程。
按要求画出控件并设置相应属性。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准EXE”工程，按要求画出控件并设置属性。
步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：Private Sub Command1_CliCk( )Text2=Text1．SelStart+1Text3=Text1．SelLengthEnd Sub步骤3：按要求将文件保存至考生文件夹中。
国家二级VB机试(上机操作)模拟试卷205(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷205(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Forml的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CDI的初始路径为C：＼，默认的文件名为None，标题为“保存等级考试”，如图2．125所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl．vbp，窗体文件名为sjtl．frm。
(2)住名称为Forml的窗体上设计一个菜单。
要求住窗体上添加名为menu0，标题为“菜单命令”的主菜单，再添加两个名称分别为“menu1”、“menu2”，标题分别为“不可用菜单项”、“上一菜单项可用”的子菜单，并且使程序运行时，menul子菜单不可用，menu2子菜单已经选中(运行时的效果如图2．126所示)。
再编写适当的事件过程，使得程序运行时，单击“上一菜单项可用”，则“不可用菜单项”变为黑色(可用)。
要求程序中不得使用变量，且只有一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sjt2.frm正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程，选择【工程】→【部件】命令，在弹出的“部件”对话框的列表中选中“MicroSoft Common Dialog Control6．0”项目，单击“确定”按钮。
步骤2：在窗体Forml上画一个通用对话框，其相关属性设置如表3．68所示。
步骤3：编写Form1的Load事件，加入下面的代码：CD1．ShowSave 步骤4：按要求将文件保存至考生文件夹中。
【特别提示】通用对话框控件不是VB内部控件，通常不会在VB默认工具箱中列出。
第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，打开VB菜单设计器设计菜单，各菜单项及属性设置如表3．69所示。
国家二级VB机试(上机操作)模拟试卷285(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷285(题后含答案及解析)题型有：1.jpg />步骤2：在代码编辑窗口，编写3个按钮的单击事件过程。
参考代码：Private Sub optChange_Click( )Dim temp As Stringtemp=Txt1．TextTxt1．Text=Txt2．TextTxt2．Text=tempoptChange．Visibl e=FalseEnd SubPrivate Sub optLink_Click( )txtResult．Text=Txt1．Text&Txt2．TextEnd Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：程序设计思路：从文本框的第1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。
在Do循环(指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(S1，I1，1)＜＞”“And I1＜=Len(S1)，其中S1=txtSentense．Text，将Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为：S2=S2&Mid(S1，I1，1)，每执行一次循环体取字符的起始位置加1，即I1=I1+1。
当遇到空格时结束循环，将得到的单词(即变量S2的值)用AddItem方法添加到列表框中，并且清空变量s2，将取宁符的起始位置加1。
之后继续执行内循环以得到下一个单词，直到取字符的起始位置(即变量I1的值)超过文本框的总字符数为止，外循环的条件为：I1＜=Len(S1)。
第2小题：根据题目要求，设计本题程序的思路：在optChange 单选按钮的Click事件应实现：将Txt1和Txt2文本框中的内容互换，可以通过一个中间变量来交换两个文木框中的内容，然后将optChangc的Enable属性设置为False。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As Integer, i As IntegerFor i = 1 To 10 Step 1a(i) = i * iNext iFor i = 1 To 10Picture1.Print a(i);Next iEnd Sub2素数Option ExplicitPrivate Sub Command1_Click()Dim m As Integer, i As Integerm = V al(Text1.Text)For i = 2 To m - 1If m Mod i = 0 ThenExit ForEnd IfNext iIf i > m - 1 ThenPrint "是"ElsePrint "不是"End IfEnd SubPrivate Sub Command2_Click()Dim m As Integer, i As IntegerDim flag As Booleanm = V al(Text1.Text)flag = TrueFor i = 2 To m - 1If m Mod i = 0 Thenflag = FalseExit ForEnd IfNext iIf flag = True ThenPrint "是“"ElsePrint "不是"Private Sub Command3_Click()'输出100以内的所有素数,每行输出5个Dim i As Integer, flag As BooleanDim k As Integer, j As Integerk = 0For i = 2 To 100flag = TrueFor j = 2 To i - 1If i Mod j = 0 Thenflag = FalseExit ForEnd IfNext jIf flag = True ThenPrint i;k = k + 1If k Mod 5 = 0 Then PrintEnd IfNext iEnd SubPrivate Sub Command4_Click()'输出100以内的所有素数，素数算法编写成函数过程Dim i As Integer, k As Integerk = 0For i = 2 To 100If sushu(i) = True ThenPrint i;k = k + 1If k Mod 5 = 0 Then PrintEnd IfNext iEnd SubPublic Function sushu(m As Integer) As BooleanDim i As Integer'sushu=trueFor i = 2 To m - 1If m Mod i = 0 Thensushu = FalseExit FunctionEnd IfNext iEnd Function's=1!+2!+3!+....n!,阶乘算法编写成函数Private Sub Command5_Click()Dim x As Double, i As IntegerDox = InputBox("请输入4---10^4的公偶数")Loop Until x >= 4 And x < 1000000# And x Mod 2 = 0For i = 2 To x \ 2If ss(i) = 1 And ss(x - i) = 1 ThenPrint i & "+" & x - i & "=" & xEnd IfNext iEnd SubPublic Function ss(m As Integer) As IntegerDim i As Integerss = 1For i = 2 To Fix(Sqr(m))If m Mod i = 0 Then ss = 0Next iEnd Function3\统计Option ExplicitOption Base 1Private Sub Command1_Click()Dim k(26) As Integer, c As String * 1Dim length As Integer, i As Integer, j As Integerlength = Len(Text1.Text)For i = 1 To lengthc = UCase(Mid(Text1, i, 1))If c >= "A" And c <= "Z" Thenj = Asc(c) - 65 + 1k(j) = k(j) + 1End IfNext iFor i = 1 To 26If k(i) > 0 Then Picture1.Print Chr(i + 65 - 1) & "=" & k(i);Next iEnd Sub4\累加\累乘Option ExplicitPrivate Sub Command1_Click()Dim s As Integer, i As Integers = 0For i = 2 To 100 Step 2s = s + i '0+1+2+3+...+100Next iPrint s, iEnd SubPrivate Sub Command2_Click()'s=1*2*3...Dim m As Integer, s As Double, i As Integerm = V al(Text1.Text)s = 1For i = 1 To ms = s * iNext iPrint sEnd SubPrivate Sub Command3_Click()Dim s As Double, i As Integers = 1i = 1Do While i < 100i = i + 1s = s + iLoopPrint s, iEnd Sub's=1+1/1!+1/2!+1/3!+.....Private Sub Command4_Click()Dim i As Integer, t As Double, s As DoubleDim b As Doublet = 1s = 1For i = 1 To 10t = t * is = s + 1 / tNext iPrint sEnd Sub's=1+1/1!+1/2!+1/3!+.....,精度<10^-5Private Sub Command5_Click()Dim s As Double, t As Double, n As Integers = 1t = 1Do While Abs(1 / t) > 0.00001n = n + 1t = t * ns = s + 1 / tLoopPrint sEnd Sub's=1-1/1!+1/2!-1/3!+.....,精度<10^-5Private Sub Command6_Click()Dim s As Double, n As Integer, t As Doubles = 1n = 1t = 1Dot = t * nt = -ts = s + 1 / tn = n + 1Loop Until Abs(1 / t) < 0.00001Print sEnd Sub5\文件Option ExplicitOption Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, s As StringDim a(3, 4) As V ariant, sum As IntegerOpen "d:\test\aa.txt" For Input As #1Open "d:\test\bb.txt" For Output As #2Open "d:\test\cc.txt" For Output As #3Line Input #1, sFor i = 1 To 3For j = 1 To 4Input #1, a(i, j)Next jNext iFor i = 1 To 3sum = 0For j = 1 To 4If j >= 2 Thensum = sum + a(i, j)End Ifsum = sum / 3If sum >= 300 ThenFor j = 1 To 4Write #2, a(i, j);Next jElseFor j = 1 To 4Write #3, a(i, j)Next jEnd IfNext iClose #1Close #2Close #3End Sub6\穷举\水仙花数Option Explicit'将一张百元换成2、5、10,要求不超过20张，每种钞票至少一张Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 50For j = 1 To 20For k = 1 To 10If i * 2 + j * 5 + k * 10 = 100 And i + j + k <= 20 Then Print i, j, k Next kNext jNext iEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As IntegerDim s As Integer, t As Integers = 0For i = 1 To 2t = 0For j = 1 To 3t = t + 1 '0+1+1+1s = s + t '6+1+2+3Next jPrint s, tNext iPrint i, jEnd SubPrivate Sub Command3_Click()Dim m As Integer, i As Integer, j As Integer, k As Integer For m = 100 To 999i = m \ 100j = (m - i * 100) \ 10k = m - i * 100 - j * 10If i ^ 3 + j ^ 3 + k ^ 3 = m ThenPrint mEnd IfNext mEnd SubPrivate Sub Command4_Click()'找出100-999内的前两个水仙花数如153=1^3+5^3+3^3 Dim m As Integer, i As Integer, j As Integer, k As Integer Dim k1 As Integerk1 = 0For m = 100 To 999i = m \ 100j = (m - i * 100) \ 10k = m - i * 100 - j * 10If i ^ 3 + j ^ 3 + k ^ 3 = m Thenk1 = k1 + 1Print "第" & k1 & "个水仙花数是:" & mIf k1 = 2 Then Exit ForEnd IfNext mEnd Sub7、最大\最小\二分法\插入\删除\排序Option Explicit'Option Base 1Dim a(11) As IntegerPrivate Sub Command1_Click()Dim i As Integer, m As IntegerDim flag As Boolean, k As Integer, j As IntegerRandomizek = 0Dom = Fix((Rnd() * 99) + 2)flag = TrueFor j = 2 To m - 1If m Mod j = 0 Then flag = FalseNext jIf flag = True Thenk = k + 1For i = 1 To 10Picture1.Print a(i);Next iEnd SubPrivate Sub Command10_Click()'二分查找的前提，查找序列必须有序Dim low As Integer, high As Integer, mid As Integer Dim key As Integer, k As Integerkey = Text1.Textlow = 1high = 10k = -1Do While low <= highmid = Fix((low + high) / 2)If key < a(mid) Thenhigh = mid - 1ElseIf key > a(mid) Thenlow = mid + 1Elsek = midExit DoEnd IfLoopIf k = -1 ThenPicture3.Print "没有该元素"ElsePicture3.Print kEnd IfEnd SubPrivate Sub Command2_Click()Dim k As Integer, i As IntegerDim flag As Boolean, m As Integerk = 0Dom = Fix(Rnd * 15 + 1)flag = TrueFor i = 1 To kIf a(i) = m Then flag = FalseNext iIf flag = True Thenk = k + 1For i = 1 To 10Picture1.Print a(i);Next iEnd SubPrivate Sub Command3_Click()'产生不同的素数Dim k As Integer, i As Integer, m As IntegerDim flag1 As Boolean, flag2 As Booleank = 0Dom = Fix(Rnd * 49 + 2)flag1 = TrueFor i = 2 To m - 1If m Mod i = 0 Then flag1 = False Next iIf flag1 = True Thenflag2 = TrueFor i = 1 To kIf a(i) = m Then flag2 = FalseNext iIf flag2 = True Thenk = k + 1a(k) = mEnd IfEnd IfLoop Until k = 10For i = 1 To 10Picture1.Print a(i);Next iEnd SubPrivate Sub Command4_Click()Dim i As Integer, j As Integer, temp As Integer For i = 1 To 10For j = 1 To 9 '10-iIf a(j) > a(j + 1) Then '交换temp = a(j)a(j) = a(j + 1)a(j + 1) = tempEnd IfNext jNext iFor i = 1 To 10Next iEnd SubPrivate Sub Command5_Click()'选择排序Dim i As Integer, j As Integer, k As IntegerDim temp As IntegerFor i = 1 To 10k = iFor j = i To 10If a(j) < a(k) Then k = jNext jtemp = a(i)a(i) = a(k)a(k) = tempNext iFor i = 1 To 10Picture2.Print a(i);Next iEnd SubPrivate Sub Command6_Click()'插入排序Dim i As Integer, j As IntegerFor i = 1 To 10a(0) = a(i)For j = i - 1 To 0 Step -1If a(0) < a(j) Thena(j + 1) = a(j)Elsea(j + 1) = a(0)Exit ForEnd IfNext jNext iFor i = 1 To 10Picture2.Print a(i);Next iEnd SubPrivate Sub Command7_Click()'求最大、小值Dim i As Integer, max As Integer, min As Integer Dim k1 As Integer, k2 As Integermax = 0For i = 1 To 10If a(i) > max Thenmax = a(i)k1 = iEnd IfIf a(i) < min Thenmin = a(i)k2 = iEnd IfNext iPicture2.Print "最大值：", max, k1Picture2.Print "最小值:", min, k2End SubPrivate Sub Command8_Click()'在有序数列中插入一个元素，仍然有序Dim i As Integer, m As Integerm = V al(Text1.Text)For i = 10 To 1 Step -1If m < a(i) Thena(i + 1) = a(i)Elsea(i + 1) = mEnd IfNext iFor i = 1 To 11Picture3.Print a(i);Next iEnd SubPrivate Sub Command9_Click()'删除指定元素Dim m As Integer, i As Integer, j As Integerm = Text1.TextFor i = 1 To 10If m = a(i) ThenFor j = i To 10a(j) = a(j + 1)Next jEnd IfNext iFor i = 1 To 10Picture3.Print a(i);Next iEnd Sub11。