VB上机题汇总
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上机试题及答案一、选择题1. 在Visual Basic中，以下哪个不是合法的变量名？- A. 123abc- B. myVariable- C. _myVariable- D. 2myVariable答案： A2. Visual Basic中的哪种数据类型用于存储日期和时间？ - A. Integer- B. Date- C. String- D. Variant答案： B3. 以下哪个是Visual Basic中的流程控制语句？- A. Sub- B. If- C. Dim- D. End答案： B4. 在Visual Basic中，以下哪个不是数组的声明方式？- A. Dim myArray(1 To 10)- B. Dim myArray(0) As Integer- C. Dim myArray As Integer- D. Dim myArray(1) As Integer答案： C5. Visual Basic中，以下哪个是正确的循环结构？- A. For Each- B. While- C. Do While- D. All of the above答案： D二、填空题1. 在Visual Basic中，使用______关键字可以定义一个过程。
- 答案：Sub 或 Function2. 要声明一个名为`myString`的字符串变量，可以使用______语句。
- 答案：Dim myString As String3. 在Visual Basic中，如果要在循环中提前退出，可以使用______语句。
- 答案：Exit For 或 Exit Do4. 要将一个数字转换为字符串，可以使用______函数。
- 答案：CStr 或 Str5. 在Visual Basic中，使用______语句可以定义一个常量。
- 答案：Const三、程序设计题编写一个Visual Basic程序，该程序可以计算并显示一个正整数的阶乘。
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题取名：1.Frm 、1.Vbp 。
1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签控件Label1显示y 值。
⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。
3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。
在窗体上输出结果，运行效果如下图所示。
4、 计算下式的和，变量x 与n 的数值用输入对话框输入。
在窗体上输出结果，运行效果如下图所示。
)!1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。
在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。
在窗体的Click事件中调用该函数。
10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
11、编制通用函数过程(Odd)。
用于判断一个整数的奇偶性。
在窗体的Click事件中调用该函数。
12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。
在窗体的Click事件中调用该函数。
13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。
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上机题库及答案(全)
全国计算机等级考试二级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练习题(上机)含答案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的整数，将其放入一个一维数组中②求出其中的最大值，并显示在窗体上。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
以题号保存，如第1题取名：1.Frm 、1.Vbp 。
1、 编制事件过程Command1_Click ，执行该过程时调用InputBox 函数输入x ，按下式计算y 并以标签控件Label1显示y 值。
⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123102x x x x x x x x x y x2、 编程运行时单击命令按钮，输入行数n(n<10)然后在窗体上输出n 层数字金字塔。
3、 编程求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。
在窗体上输出结果，运行效果如下图所示。
4、 计算下式的和，变量x 与n 的数值用输入对话框输入。
在窗体上输出结果，运行效果如下图所示。
)!1(...!4!3!232+++++=n x x x x s n 5、 建立一个5行5列二维数组，要求对角线为1，其余元素为0。
运行结果如图所示。
6、 建立一个5行5列二维数组，要求右上三角元素（含对角线）为1，其余元素为0。
7、 编制程序，用随机函数产生20个两位数的整数，存于4行5列的二维数组中，将数组按矩阵形式输出到窗体，并求出其最大元素及最大元素的行、列坐标。
8、 编制通用函数过程(Sum )，计算1+2+……+N 的值。
在窗体的Click 事件中调用该函数。
9、编制通用函数过程(Fact)，计算N！的值。
在窗体的Click事件中调用该函数。
10、编制通用函数过程(Prime)，用于判断1个整数是否为素数，若是则显示true，若不是则显示false。
在窗体的Click事件中调用该函数。
11、编制通用函数过程(Odd)。
用于判断一个整数的奇偶性。
在窗体的Click事件中调用该函数。
12、编制通用函数过程（Average），计算Double类型一维数组所有元素的平均值。
在窗体的Click事件中调用该函数。
13、编制通用Sub过程(Sort)，用选择法对一维数组按从大到小进行排序。
在窗体的Click事件中调用该函数。
14、编制函数过程(Sum)，用于计算1个整数的各位数字之和（如引用Sum(132)的结果是6，引用Sum(-23)的结果是5，等等）。
在窗体的Click事件中调用该函数。
15、新建一个工程，完成应用程序的设计，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）取消窗体的最大化和最小化按钮。
（3）当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。
（4）同时可使用热键Alt+L和Alt+B实现窗口放大或还原。
（5）当窗体大小改变后，总是让命令按钮位于窗口的中央。
16、新建一个工程，完成应用程序的设计，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）单击产生题目按钮，在文本框产生1道加法运算题。
17、新建一个工程，完成“计算平均成绩”应用程序的设计。
具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）在输入或修改单科成绩的同时计算平均分,即在"高数","英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。
（3）平均成绩”文本框不允许编辑，即不能手工修改。
（4）各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。
18、新建一个工程，完成“密码检验”程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）文本框Text1，用于输入密码。
文本框中输入的字符显示为*，并且最多可以接受7个字符。
（3）窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。
（4）当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。
19、设计一个秒表模拟程序，具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）按下“开始”按钮，屏幕显示当前时间。
（3）按下“结束”按钮，屏幕显示结束时间和持续时间。
（4）按下“退出”，结束程序。
运行界面如图所示。
20、新建一个工程，完成“检查口令”程序的设计。
具体要求如下：（1）单击“开始”按钮，清除文本框中的信息，并把光标移到第一个文本框中；接着在第一个文本框中输入用户名，第二个文本框中输入口令。
（2）单击“检查口令”按钮，检查输入的口令是否正确。
若正确，则进入如下的第二个窗体，在该窗体上装有一幅图片；否则显示一个信息框，要求重新输入，此时将调用“开始”按钮的click 事件过程，再一次在文本框中输入口令，这样允许重输三次口令，超过三次，则口令文本框将转为不能编辑。
（3）单击“结束”按钮，结束程序。
21、新建一个工程，完成“替换”程序的设计。
具体要求如下：(1) 窗体的标题为“替换”。
(2) 窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。
(3) 完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。
单击“替换”按钮执行。
22、新建一个工程，完成“字体修饰”程序的设计。
具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
窗体的标题为“字体修饰”。
（2）框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。
（3）框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。
（4）标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐方式为居中。
23、设计一个“家电提货单”管理程序，程序运行界面如下图所示。
具体要求如下：（1）单击“确定”后，根据选择的内容将清单及总价在列表框中列出。
（2）每选择一种家电，光标自动定位在相应的文本框中，取消选择时，相应的文本框自动清空。
（3）“清除”按钮用于清空列表框中的项目。
（4）所有文本框只接受数字。
24、设计一个“个人资料”输入窗口，程序运行界面如下图所示。
具体要求如下：（1）按照运行界面设计窗体，其中“民族”用组合列表框显示。
（2）单击“确定”按钮，将个人资料信息输出在“个人资料”框架的标签框中。
25、新建一个工程，完成应用程序的设计。
具体要求如下：（1）按照下图所示在窗体上放置按钮和控件。
（2）窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。
（3）如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。
26、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）单击“添加单词”按钮，将Text1中的单词添加到列表框，并使Text1获得焦点，可直接输入另一个单词。
如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（3）单击“删除单词”按钮，删除列表框中被选中的列表项，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
（4）单击“全部删除”按钮，删除列表框中的全部表项。
（5）单击“退出”按钮，结束该程序。
27、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）列表框内容中有四项，分别为“Word、Excel、PowerPoint、Outlook”。
（3）单击“添加”按钮（Command1），将文本框中的内容回到列表框中的第一项，如果文本框中没有内容，则给出提示“没有内容，不予添加”。
（4）单击“删除”按钮（Command2），将选中表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。
28、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）窗体的上边有一个文本框Text1，文字内容为“心想事成”，Font：宋体、常规、三号。
（3）左边简单组合框Combo1，有三项内容，分别是“左对齐、居中、右对齐”，单击时对文本框的对齐方式进行设置。
（4）右边简单组合框Combo2，有四项内容，分别是“常规、斜体、粗体、粗斜体”，单击时对文本框的字型进行设置。
29、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）单击“产生”按钮，实现随机产生10个两位正整数，在左边列表框内显示。
（3）单击“—>”按钮，把左边列表框中的偶数全部移到右边列表框中。
30、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）在两个列表框控件的list中输入一些内容。
（3）当单击“<”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。
（4）当单击“<<”按钮时，把list2中所有的项放到list1中，并且清空list2。
（5）当单击“结束”按钮时，退出应用程序。
31、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）左边一个简单组合框，对文本框的字体进行设置；有三项内容，分别是“宋体、黑体、楷体_GB2312”。
（3）右边一个简单组合框，对文本框的文字大小进行设置；大小范围为8~20。
32、设计一个畅销书排行榜程序，运行界面如下图所示。
具体要求如下：（1）在左边列表框中显示排名前5名的畅销书；（2）输入新书名和名次，单击“入榜”，添加到左边列表框中相应位置；（3）单击“下榜”，将选择的书从排行榜中删除，如未选择，则显示“请先选择！”；（4）单击“清除”，可以删除文本框中的输入内容，文本框2只允许输入数字1~5；（5）单击“结束”，退出程序运行。
33、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。
34、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）滚动条的取值范围均为10-40。
（3）完成以下功能：根据设定字号改变标签框内显示文字的大小。
要求水平滚动条与文本框相关联。
35、新建一个工程，完成应用程序的设计。
具体要求如下：（1）参照运行时界面完成界面设计。
（2）在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。
（3）单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰两种颜色显示。