vb上机练习题(1)
VB机试章节练习试卷1(题后含答案及解析)
VB机试章节练习试卷1(题后含答案及解析) 题型有：1. 基本操作题基本操作题（30分）1．在名为Form1的窗体上绘制一个水平滚动条，名为HS1，最小值为0、最大值为80；再绘制3个命令按钮，名称分别为Cmd1、Cmd2和Cmd3，标题分别为“左端”、“居中”和“右端”。
编写适当的事件过程，使程序运行后，若单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。
程序的运行情况如下图所示。
注意：程序中不得使用任何变；文件必须存放在考生文件夹中，窗体文件名为execise118.frm，工程文件名为execise118.vbp。
正确答案：2．在名为Form1的窗体上绘制一个标签，名为Lab1，标题为“请输入一个摄氏温度”；绘制两个文本框；名称分别为Text1和Text2，内容设为空：再绘制一个名为Cmd1的命令按钮，其标题为“华氏温度等于”。
编写适当的程序，使得单击“华氏温度等于”按钮时，将Textl中输入的摄氏温度(c)转换成为华氏温度(f)，转换公式为：f=c*9/5+32,并显示在Text2中。
程序运行结果如下图所示。
注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，窗体文件名为execise119.frm，工程文件名为execise119.vbp。
正确答案：3．在窗体上绘制两个标签，名称分别为Lab1和Lab2，标题分别为“请输入一个正整数N”和“1+2+3+…+N=”；绘制两个文本框，名称分别为Text1和Text2，内容都设为空白；绘制一个命令按钮，名为Cmd1，标题为“计算”。
编写适当的程序，使程序运行时，在Text1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+1N的和显示在Text2中。
程序运行结果如下图所示。
注意：程序中不得使用任何变量：文件必须存放在考生文件夹中，窗体文件名为execise120.frm，工程文件名为execise120.vbp。
vb上机试题及答案
vb上机试题及答案一、选择题（每题2分，共10分）1. VB中，用来声明变量的关键字是：A. DimB. SetC. CallD. Function答案：A2. 下列哪个不是VB中的控件事件？A. ClickB. LoadC. PrintD. Resize答案：C3. VB中，用于循环结构的关键字是：A. ForB. NextC. LoopD. Do答案：A4. VB中，用于定义过程的关键字是：A. SubB. FunctionC. DimD. Call答案：A5. VB中，用于定义窗体的关键字是：A. FormB. ClassC. ModuleD. Property答案：A二、填空题（每题2分，共10分）1. VB中，使用________关键字可以定义一个数组。
答案：Dim2. 在VB中，________函数用于将字符串转换为大写。
答案：UCase3. VB中的________函数用于计算字符串的长度。
答案：Len4. 使用________语句可以退出当前循环。
答案：Exit For5. VB中，________语句用于创建一个子程序。
答案：Sub三、简答题（每题5分，共15分）1. 请简述VB中如何声明一个变量，并赋值。
答案：在VB中，使用Dim关键字声明变量，例如Dim myVar As Integer，然后使用赋值语句赋值，例如myVar = 10。
2. 解释VB中什么是事件驱动编程。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件触发，而不是由程序的顺序执行决定。
在VB中，用户操作（如点击按钮）会触发事件，程序响应这些事件执行相应的代码。
3. 描述VB中如何使用条件语句。
答案：在VB中，使用If...Then...Else语句来实现条件判断。
例如，If condition Then '执行代码块 1 Else '执行代码块 2 End If。
四、编程题（每题15分，共30分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
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上机题库及答案(全)
全国计算机等级考试二级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上机练习试题及答案
第一章概述一、基本要求（1）熟悉VB集成开发环境（2）掌握代码窗口的应用及录入、编辑代码的基本方法（3）了解VB程序设计的基本步骤二、实习内容（1）实习熟悉VB集成开发环境各组成部分（2）输入一个数，求该数的平方并显示结果第二章一、基本要求（1）熟练掌握各种运算符的应用和优先顺序（2）掌握各种常用函数的功能、参数和返回值（3）掌握立即窗口的使用方法二、实验内容（1）回答整形、长整型、单精度、双精度类型数据占用字节数。
（2）已知直角三角形的两条直角边长，求斜边长。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入第一条直角边长"))b = Val(InputB ox("输入第二条直角边长"))c = Sqr(a ^ 2 + b ^ 2)PrintcEnd Sub（3）给小学生随机出两位数和一位数的加法题。
Privat e Sub Comman d1_Cl ick()Dim a%, b%, c%a = Val(InputB ox("输入两位数"))b = Val(InputB ox("输入一位数"))c = a + bPrintcEnd Sub（4）用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Privat e Sub Comman d1_Cl ick()Dim x#, y!x = Text1.Texty = Round(x, 2)PrintyEnd Sub（5）输入某人姓名，判断是否你的本家。
Privat e Sub Comman d1_Cl ick()Dim a$, b$, p As Boolea nb = "李"a = InputB ox("输入某人的姓名")If Left(a, 1) = b Thenp = TrueEnd IfPrintpEnd Sub（6）任意输入西安地区的固定电话号码（原为7位），将其升为8位（在原号码前面加8）。
计算机二级考试VB上机模拟题及答案
计算机二级考试VB上机模拟题及答案1.基本操作题(1)将“销售表”中的日期在2000年12月31日前(含2000年12月31日)的记录复制到一个新表2001.dbf中。
(2)将“销售表”中的日期(日期型字段)在2000年12月31日前(含2000年12月31日)的记录物理删除。
(3)打开“商品表”，使用BROWSE命令浏览时，使用“文件”菜单中的选项将“商品表”中的记录生成文件名为“商品表.htm”的HTML格式文件。
(4)为“商品表”创建一个主索引，索引名和索引表达式均是“商品号”;为“销售表”创建一个普通索引(升序)，索引名和索引表达式均是“商品号”。
【参考答案】(1)在“命令”窗口输入命令：SELECT*FROM销售表WHERE日期<=CTOD("12/31/00")INTO TABLE 2001系统将自动查找日期在2000年12月31日前的记录，并复制到一个新表2001.dbf中。
(2)在“命令”窗口输入两条命令：DELETE FROM销售表WHERE日期<=CTOD("12/31/00")&&逻辑删除记录PACK &&物理删除记录通过以上两条命令物理删除“销售表”中日期(日期型字段)在2000年12月31日前的记录。
(3)具体步骤如下：① 在“命令”窗口输入两条命令：USE商品表 &&打开商品表BROWSE &&打开表记录浏览窗口② 在“文件”菜单中选择“另存为HTML(H)...”菜单命令，如图4-18所示。
③ 弹出“另存为HTML”的对话框中，系统默认以“商品表.htm”名保存该文件，单击“确定”按钮保存文件。
(4)具体步骤如下：① 在“命令”窗口输入两条命令：USE商品表 &&打开商品表MODIFY STRUCTURE &&打开表设计器② 在“商品表”的表设计器中，单击“字段”选项卡，选择“商品号”字段，在“索引”下拉列表框中为该字段选择一个排序方式。
VB练习题(上机)含答案
VB练习题(上机)含答案VB练习题(上机)含答案第一部分1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)Private Sub Cmd1_Click()Dim a%(19), i%, sum!, aver!RandomizeFor i = 0 To 19a(i) = Int(Rnd * 1001)sum = sum + a(i)Next iaver = sum / 20Print averEnd Sub2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。
在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。
Private Sub C1_Click()Dim ch As String, ch1 As String, i%ch = Text1For i = 1 To Len(ch)If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Thench1 = ch1 + LCase(Mid(ch, i, 1)) Elsech1 = ch1 + UCase(Mid(ch, i, 1)) End IfNext iText1 = Text1 + vbCrLfText1 = Text1 + ch1End Sub3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。
程序运行后，单击命令按钮完成以下工作：①随机产生30个0～1000的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
VB基础上机题
练习1：新建一个窗体，名字为myfrm在上面画4个命令按钮，名字分别为cmd1、cmd2、cmd3、cmd4再画一个标签，名字分别为L1用代码完成下列操作。
1.修改窗体的标题。
2.修改命令按钮的标题分别修改为春天、夏天、秋天、冬天3.编写命令按钮的单击事件：单击cmd1:在L1上显示一首关于春天的古诗单击cmd2:在L1上显示一首关于夏天的古诗单击cmd3:在L1上显示一首关于秋天的古诗单击cmd4:在L1上显示一首关于冬天的古诗运行调试后保存，文件名为LX1.frm练习2：新建一个窗体在上面画2个命令按钮，名字分别为cmd1、cmd2用代码完成下列操作。
1.修改命令按钮的标题分别修改为显示、移动2.单击cmd1在窗体上显示一首歌的名字3.单击cmd2让cmd1进行移动（位置自己设定）运行调试后保存，文件名为LX2.frm练习3.程序界面如下：2个标签，四个命令按钮。
两个标签的宽度(width属性)均为40000标签颜色设置(forecolor属性)，字体自己设定程序功能：用户单击前3个按钮中的任何一下，上面的两个标签都能随之改变位置，单击退出，程序结束。
标签的对齐属性：alignment=0 左对齐，=1右对齐，=2居中。
例：private sub command1_click()Label1.alignment=0Label2.alignment=0End sub以上代码完成两个标签的左对齐。
其它代码，自己仿写。
退出的代码：end运行调试后保存，文件名为LX3.frm练习4：标签的属性设置：Caption：Good Luck To You；BorderStyle：1；BackStyle：0；Alignment：2左边标签的属性设置：Caption：右对齐；Font：黑体、小四；Alignment：1右边标签的属性设置：Caption：水平居中；BorderStyle：1；BackStyle：0；Font：楷体_GB2312、小四；Alignment：2练习6：修改Label1的Name属性为L1, Boderstyle:1, Font:宋体,三号; Caption属性为:程序设计修改Command1,Command2的1属性为: Cd1,Cd2;Caption属性为:隐藏和显示.Private Sub Cd1_Click()L1.Visible = FalseEnd SubPrivate Sub Cd2_Click()L1.Visible = TrueL1.Caption = "程序设计"End Sub。
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试题及答案上机
vb试题及答案上机1. 编写一个VB程序，计算并输出1到100之间所有奇数的和。
答案：```vbDim sum As Integer = 0For i As Integer = 1 To 100If i Mod 2 <> 0 Thensum += iEnd IfNextConsole.WriteLine("1到100之间所有奇数的和为：" & sum)```2. 编写一个VB程序，实现输入一个字符串，然后输出该字符串的反转。
答案：```vbDim inputString As String = Console.ReadLine()Dim reversedString As String = StrReverse(inputString) Console.WriteLine("反转后的字符串为：" & reversedString)```3. 编写一个VB程序，判断一个整数是否为素数，并输出结果。
答案：```vbDim number As Integer = Convert.ToInt32(Console.ReadLine()) Dim isPrime As Boolean = TrueIf number > 1 ThenFor i As Integer = 2 To number / 2If number Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextElseisPrime = FalseEnd IfIf isPrime ThenConsole.WriteLine("该数是素数")ElseConsole.WriteLine("该数不是素数")End If```4. 编写一个VB程序，实现一个简单的计算器，可以进行加、减、乘、除运算。
答案：```vbDim num1 As Double = Convert.ToDouble(Console.ReadLine("请输入第一个数："))Dim num2 As Double = Convert.ToDouble(Console.ReadLine("请输入第二个数："))Dim operation As String = Console.ReadLine("请输入运算符（+、-、*、/）：")Select Case operationCase "+"Console.WriteLine("结果为：" & num1 + num2)Case "-"Console.WriteLine("结果为：" & num1 - num2)Case "*"Console.WriteLine("结果为：" & num1 * num2)Case "/"If num2 <> 0 ThenConsole.WriteLine("结果为：" & num1 / num2)ElseConsole.WriteLine("除数不能为0")End IfCase ElseConsole.WriteLine("无效的运算符")End Select```5. 编写一个VB程序，实现一个简单的学生信息管理系统，可以添加、删除、查询学生信息。
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习题集(1)(1)
一、单项选择题1、以下说法错误的是_____C____。
A. Visual Basic是一种可视化编程工具B. Visual Basic是结构化程序设计语言C. Visual Basic是面向过程的编程语言D. Visual Basic采用事件驱动编程机制2、窗体和控件的描述及其属性的设置保存在_____B____文件中。
A. 工程B. 窗体C. 窗体二进制数据D. 标准模块3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是____B_____。
A. 只保存窗体模块文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存工程文件4、以下叙述中错误的是____C_____。
A．在Visual Basic的窗体中，一个命令按钮是一个对象B．事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法5、以下叙述中，错误的是____C_____。
A. 一个Visual Basic应用程序可以含有多个标准模块文件B. 一个Visual Basic工程可以含有多个窗体文件C. 标准模块文件可以属于某个指定的窗体文件D. 标准模块文件的扩展名为.bas6、Visual Basic的窗体设计器主要是用来____A_____。
A. 建立用户界面B. 添加图形、图像、数据等控件C. 编写程序源代码D. 设计窗体的布局7、Visual Basic是一种结构化高级程序设计语言，它采用的是_____C____驱动方式。
A.键盘B.鼠标C.事件D.函数8、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是____A_____。
A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块9、Visual Basic主要用于_____D____。
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习题(一～六)
习题一1．运行Visual Basic 6.0需要什么样的最小硬件环境?【答】只要能运行Windows 9x或Windows NT即可。
2．当正常安装Visual Basic 6.0后，误把Windows 98子目录删除。
当重新安装Windows 98后，是否要再安装Visual Basic 6.0？【答】要再安装Visual Basic 6.0，因为安装Visual Basic 6.0时，有些VB程序系统自动安装在Windows 98子目录下，所以一旦删除了Windows 98子目录，就必须再次安装。
3．Visual Basic 6.0有学习版、专业版和企业版，怎样知道所安装的是哪个版本？【答】在启动Visual Basic 6.0的启动封面上，能显示对应的版本，见教材例1.1。
4．Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，怎样操作？【答】执行[视图][代码窗口]命令或“工程资源管理器”窗口的“查看代码”按钮。
5．如何使各窗口显示或不显示？【答】执行[视图]菜单的对应窗口命令，显示相应的窗口；关闭窗口则不显示该窗口。
6．叙述Visual Basic的特点。
【答】见本章1.3小节“知识要点”习题二1．叙述建立一个完整的应用程序的过程。
【答】创建界面、设置属性、编写事件过程代码、保存并运行程序。
2．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？若不这样做，系统会出现什么信息？【答】涉及到两个文件，应先保存窗体文件（.frm），再保存工程文件（.vbp）。
若是先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
3．假定在Windows 98环境中，要保存工程文件时，若不改变目录名，则系统默认的目录是什么？【答】是VB98。
4．为了使一个控件在运行时不可见，应对该控件的什么属性进行何种设置？【答】将Visible属性设为False。
专升本VB上机编程作业1_题解
专升本Visual Basic上机编程作业（一）及题解一、循环结构程序设计：1、编程找满足条件的值。
例1：编程求解百钱买百鸡问题。
公鸡每只5元，母鸡每只3元，小鸡三只1元，百元钱买百只鸡，问公鸡、母鸡、小鸡各若干？程序代码如下：1Dim x%, y%, z %For x=1 To 20For y=1 To 33Z=100-x-yIf 5*x+3*y+z/3=100 Then Print ”公鸡：”; x ，”母鸡：”; y，”小鸡：” ;zNext yNext x请参考以上程序，完成下列编程。
1.1、（09专升本编程题）鸡免同笼问题：已知笼中鸡和免共36只，它们的脚共有100只，编程计算鸡和免分别有多少只。
Dim x As Integer, y%For x = 1 To 35y = 36 - xIf 2 * x + 4 * y = 100 Then Print "鸡："; x; "免："; yNext x1.2、已知两个三位数相加之和abc+cba=1333，编程计算并输出能满足这个条件的所有a、b、c的值。
Dim a%, b%, c%For a = 1 To 9For b = 0 To 9For c = 1 To 9If (a + c) * 100 + 2 * b * 10 + c + a = 1333 Then Print "a="; a, "b="; b, "c="; cNext cNext bNext a1.3、有一篮鸡蛋（总数小于500），二个一数多一个，三个一数多二个，四个一数多三个，五个一数多四个，六个一数多五个，七个一数正好，编程求鸡蛋的数量。
Dim i%For i = 1 To 499If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; I ：exit forNext iDim i%i = 0Do Until i >= 500i = i + 1If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print "鸡蛋的只数=:"; iLoop1.4、马克思曾经做过这样一道趣味数学题：有30个人在一家小饭馆里用餐，其中有男人、女人和小孩。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()= 黑体End SubPrivate Sub Command2_Click() = vbRed= vbBlue End SubPrivate Sub Command3_Click() End End Sub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。
鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。
Private Sub Command1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)= vbRed End Sub Private Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)= vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)= "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)= "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3TeTe中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click() = ""= ""= ""End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Text1_Change()==End Sub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() = + 5End SubPrivate Sub Command2_Click() = - 5End SubPrivate Sub Command3_Click() = TrueEnd SubPrivate Sub Command4_Click()= TrueEnd SubPrivate Sub Command5_Click()= TrueEnd SubPrivate Sub Command6_Click() = TrueEnd Sub5.设计一个窗体，如下图所示。
程序中将π定义成符号常量（用Const ）,运行时，输入底面半径r和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。
运算结果为只读。
Private Sub Command1_Click()Const pi =h = Val(Text1)r = Val(Text2)= pi * r ^ 2= 2 * pi * r * h= pi * r ^ 2 * hEnd Sub6.设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、Text2中，单击“计算”按钮，求两个数的和。
运算结果为只读。
Private Sub Command1_Click() = Int(100 * Rnd + 1)= Int(100 * Rnd + 1)End Sub Private Sub Command2_Click()a = Valb = Val= a + bEnd Sub7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
Private Sub Form_Click()= Year(Now)= Month(Now)= Day(Now)= Weekday(Now)= TimeEnd Sub8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Private Sub Command1_Click() = Abs(Val(Text1))= 0= LenEnd Sub Private Sub Command2_Click() = Sqr(Val(Text1))= 0= LenEnd SubPrivate Sub Command3_Click() = Fix(Val(Text1))= 0= LenEnd SubPrivate Sub Command4_Click() = Int(Val(Text1)) = 0= LenEnd SubPrivate Sub Command5_Click() = Sgn(Val(Text1))= 0= LenEnd Sub9．设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。
Private Sub Command1_Click()a = Val(Text1)If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 ThenMsgBox "能同时被3、5、7整除"ElseMsgBox "不能整除"End IfEnd Sub10．设计一个计算购书价钱的程序，界面如下图所示。
为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。
单击“计算总价”或用访问键，算出总价。
总价文本框要求为只读属性。
完成相应功能。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2) = a * b End Sub Private Sub Command2_Click() EndEnd Sub11．设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
Private Sub Command1_Click()a = Val(Text1)b = a * / 180c = Abs(Sin(b))d = Abs(Cos(b))= & a & Space(10) & Format(c, "") _& Space(10) & Format(d, "") & vbCrLf= 0= LenEnd Sub12．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)c = Val(Text3)= a * b * cEnd Sub Private Sub Command2_Click() = ""= ""= ""= ""End Sub13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
Private Sub Command1_Click() a = Val(Text2)Select Case aCase 90 To 100h = "优秀"Case 80 To 89h = "良好"Case 70 To 79h = "中等"Case 60 To 69 h = "及格"Case 0 To 59h = "不及格"End Select"学号：" &"分数：" & a & Space(3) & h End Sub14．设计一个窗体Forml，界面如上图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
Private Sub Command1_Click() a = Val(Text1)= a ^ 2 * = 2 * a * End Sub15．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大、最小数。
Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = t= a= cEnd Sub16．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，若能组成三角形在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
Private Sub Command1_Click()a = Val(Text1):b = Val(Text2):c = Val(Text3)If a + b < c Or a + c < b Or b + c < a Or Abs(a - b) > c Or Abs(a - c) > b Or Abs(b - c) > a Then= "FALSE"Elseh = (a + b + c) / 2s = Sqr(h * (h - a) * (h - b) * (h - c))= Format(s, "")End IfEnd Sub17．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。