VB上机练习题
VB上机练习题
1.新建工程，界面如下图，将窗体名称改为f1，标题属性为“我的第一个工程”， Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。
单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。
单击C3按钮结束程序运行。
Private Sub Command1_Click()Text1.Font = 黑体End SubPrivate Sub Command2_Click() Text1.ForeColor = vbRedText2.ForeColor = 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)Form1.BackColor = vbRed End SubPrivate Sub Command1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = vbGreen End SubPrivate Sub Form _MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上按下了鼠标" End SubPrivate Sub Form _MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = "在窗体上抬起了鼠标" End Sub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
国家二级VB机试(上机操作)模拟试卷300(题后含答案及解析)
国家二级VB机试（上机操作）模拟试卷300(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单，其中“设置”菜单项为灰色(不可用)，如图3—137所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1．vbp，窗体文件名为sjt1．frm。
(2)在名称为Form1的窗体上画一个名称为Hscroll1的水平滚动条，其最大刻度为100，最小刻度为0；再画两个单选按钮，名称分别为Option1、Option2，标题分别为“最大值”、“最小值”，且都未选中。
再通过属性窗口设置适当属性使得程序刚运行时，焦点在滚动条上(如图3—138所示)。
请编写适当的事件过程，使得程序运行时，单击“最大值”单选按钮，则滚动条上的滚动框移到最右端；单击“最小值”单选按钮，则滚动框移到最左端。
注意：程序中不得使用变量，事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sjt2．vbp，窗体文件名为sji2．frm。
正确答案：第1小题步骤1：新建一个“标准EXE”工程，利用菜单设计器按表4—81在窗体上建立一个二级菜单。
步骤2：按要求将文件保存至考生文件夹中。
第2小题步骤1：新建一个“标准：EXE”工程，按表4—82在窗体中画出控件并设置其相关属性。
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：Private Sub Option1_Click( )HScroll1．Value=100End SubPrivate Sub Option2_Click( )HScroll1．Value=0End Sub步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
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上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。
三个复选框check1,check2和check3，如图设置属性。
要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。
程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。
运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。
请编写程序完成上述功能。
（40分）答案：一、界面设计------10分Private Sub Check1_Click()Text1.FontBold = Check1.Value ------5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value------5分End SubPrivate Sub Check3_Click()Text1.FontUnderline = Check3.Value ------5分End Sub二、界面设计------10分Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分For i = 0 To 19------3分a(i) = Int(Rnd * 1001) ------3分sum = sum + a(i) ------3分Next i ------2分aver = sum / 20 ------3分Print aver ------2分End Sub三、界面设计------10分Dim n%------2分Private Sub Form_Load()End SubPrivate Sub Option1_Click()------2分Dim i% ------2分n = Val(Text1) ------3分m = 1 ------1分For i = 1 To n ------2分m = m * i -----2分Next i ------2分Text2 = m ------2分End SubPrivate Sub Option2_Click()------1分Dim i% ------2分m = 1 ------1分For i = 1 To n + 2 ------2分m = m * i ------2分Next i ------2分Text2 = m ------2分End SubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。
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上机考试试题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练习题(上机)含答案
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)。
V B上机练习题Company number：【0089WT-8898YT-W8CCB-BUUT-202108】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 SubPrivate 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 SubText2Text13.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click() = ""= ""= ""End SubPrivate Sub Command2_Click() End End SubPrivate Sub Text1_Change()==End Sub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() = + 5End SubPrivate Sub Command2_Click() = - 5End SubPrivate Sub Command3_Click() = TrueEnd Sub Private 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 SubPrivate Sub Command2_Click() a = Valb = Val = a + b End Sub7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
Private Sub Form_Click()= Year(Now)= Month(Now)= Day(Now)= Weekday(Now)= TimeEnd Sub8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Private Sub Command1_Click() = Abs(Val(Text1))= 0= LenEnd SubPrivate 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 * bEnd SubPrivate 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．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。