(完整版)VB上机练习题
vb上机练习题及答案
vb上机练习题及答案一、基本要求熟悉VB集成开发环境掌握代码窗口的应用及录入、编辑代码的基本方法了解VB程序设计的基本步骤二、实习内容实习熟悉VB集成开发环境各组成部分输入一个数，求该数的平方并显示结果第二章一、基本要求熟练掌握各种运算符的应用和优先顺序掌握各种常用函数的功能、参数和返回值掌握立即窗口的使用方法二、实验内容回答整形、长整型、单精度、双精度类型数据占用字节数。
已知直角三角形的两条直角边长，求斜边长。
Private Sub Command1_ClickDim a%, b%, c%a = Val)b = Val)c = SqrPrint cEnd Sub给小学生随机出两位数和一位数的加法题。
Private Sub Command1_ClickDim a%, b%, c%a = Val)b = Val)c = a + bPrint cEnd Sub用文本框输入一个带小数的数，对输入的数四舍五入保留2位小数。
Private Sub Command1_ClickDim x#, y!x = Text1.Texty = RoundPrint yEnd Sub输入某人姓名，判断是否你的本家。
Private Sub Command1_ClickDim a$, b$, p As Booleanb = "李"a = InputBoxIf Left = b Thenp = TrueEnd IfPrint pEnd Sub任意输入西安地区的固定电话号码，将其升为8位。
如原号码为029-*******，升位后为************。
Private Sub Command1_ClickDim x As String, y As Stringx = Text1.Texty = Left & & RightText2.Text = yEnd Sub输入书31页format语句，查看运行结果。
VB程序设计上机题目
VB程序设计上机题目451. 基本操作（2小题，每小题15分，共计30分）注意：下面出现的"考生文件夹"均为%USER%**********************************************************************请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1，标题为"图片"的窗体上画1个名称为Image1的图像框，其高为2500，宽为2000。
请通过属性窗口设置适当属性，装入考生目录下的图片文件pic1.jpg，并使图片适应图像框的大小（如图所示）。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
********************************************************************** （2）在名称为Form1的窗体上画1个名称为Text1的文本框，其初始内容为空；再画2个单选按钮，名称分别为Option1、Option2，标题分别为"参加"、"不参加"，Option1的标题在单选按钮的左边，如图所示。
当程序运行时，在Text1中输入一些文字（例如"比赛"），单击Option1时，则把其标题放在输入文字的前面（例如"参加比赛"），单击Option2时，则把其标题放在输入文字的后面（例如"比赛不参加"）。
请编写适当的事件过程，完成上述功能。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2.frm，工程文件名为sjt2.vbp。
要求程序中不得使用变量，每个事件过程中只能写一条语句。
评析第1小题：新建一个窗体Form1，通过属性窗口设置窗体Form1的Caption属性为"图片"。
vb上机考试习题以及答案
VB上机考试1、利用随机函数产生25个100到999之间的整数，构成5?5的矩阵，输出该矩阵。
Dim a(1 To 5, 1 To 5)Private Sub Form_Click()RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * (999 - 100 + 1) + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。
Private Sub Form_Click()For i = 1 To 25a = Int(Rnd * (99 - 10 + 1) + 10)Print a;s = s + aNext iPrintAvg = s / 25Print AvgEnd Sub3、在窗体上按下鼠标的右键，记录其坐标。
Private Sub Form_Load()= 1= 2End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then= X & "," & YEnd IfEnd Sub4、利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。
Dim a(1 To 25)Private Sub Form_Click()ClsFor i = 1 To 25a(i) = Int(Rnd * (99 - 10 + 1) + 10)Print a(i);Next iPrintFor i = 1 To 25 - 1For j = 1 To 25 - iIf a(j) > a(j + 1) Then tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp Next jNext iFor i = 1 To 25Print a(i);Next iEnd Sub5、利用随机函数产生50个 [1,6] 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。
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上机练习题
2007—2008(2) VB上机练习题1．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
2．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
3．设计口令检测界面，口令自定，运行初始如第一幅图，若口令错，则如第二幅图；否则，将显示另一欢迎窗口，如第三幅图所示。
在连续三次输入错误口令后，给出警告并结束运行。
4．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
5．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。
6．设计一个程序，用户界面如下图所示。
程序运行后，单击Command1按钮，求出最大最小数。
7．设计一个100（随机函数产生）之内的四则运算题，界面如下。
8．设计一个窗体Forml，界面如右图所示。
编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。
9．界面如下图所示。
编写适当的事件过程，程序运行后在三个文本框中分别输入三角形的边长值，单击“判断并计算”按钮，判断它们是否能组成三角形，如果可以在Text4中显示三角形的面积，否则在Text4中显示“FALSE”。
10．某工程运行时，图片框中图可以任意。
单击“隐藏图像”按钮（command2）界面如右图，单击“显示图像”按钮（command1）界面如左图，编写适当的事件过程。
11．在文本框T1中打印100~999之间的所有水仙花数。
（该数为各位数字的立方和。
例如：153=1 3+5 3+3 3）12．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。
编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。
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上机试题及答案(考试中心贡献)
（考试中心贡献）ViSual Basic程序设计上机试题第一题：20分1、设计一个如下界面的成绩计算程序。
其中总评成绩中平时占20％，期中和期末各占30%和50%。
程序结果保存为1.frm和1.vbp。
参考代码：Private sub Command1_Click()Label1.caption=0.2*val(text1)+0.3*val(text2)+0.5*val(text3)End SubPrivate sub Command2_Click()Text1=””: Text2=”” : Text3=””Text1.setfocusEnd Sub第二题：20分一个四位数，各位之和等于其前两位，各位之积各于其后二位，试求之。
界面自定。
程序结果保存为2.frm和2.vbp。
参考答案：该题的结果为1236For a=1 to 9For b=0 to 9For c=0 to 9For d=0 to 9X=1000*a+100*b+10*c+dIf a+b+c+d=10*a+b and a*b*c*d=10*c+d then print xNext d,c,b,a第三题：20分3、设计一个如下界面的菜单程序，要求效果：单击菜单项可调出相应功能。
提示：Shell函数的格式为shell 路径，１。
程序结果保存为3.frm和3.vbp。
程序结果保存为3.frm和3.vbp。
参考程序：Private Sub Mnote_Click()Shell "notepad.exe", 1End SubPrivate Sub MExit_Click()EndEnd Sub第四题：25分编程实现如下程序，当在列表框中单击某一学生姓名时，在文本框出现学生的籍贯。
相应的学生信息如下表：要求的程序界面：程序结果保存为4.frm和4.vbp。
参考答案：Dim a, bPrivate Sub Form_Load()a = Array("王芸姗", "林丽菲", "张雪涛")b = Array("安徽", "辽宁", "陕西")For i = LBound(a) To UBound(a)List1.AddItem a(i)Next iEnd SubPrivate Sub List1_Click()Text1 = b(List1.ListIndex)End Sub第五题：25分用形状控件在窗体上画一个蓝色小球，运行时可用上、下、左、右四个方向键控制其移动。
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输入的新数插入到数组中，插入后数组仍有序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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中显示相同的内容，但字体不同（字体自定）。
Private Sub Command1_Click()Text1.Text = ""Text2Text1Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command2_Click() EndEnd Sub Private Sub Text1_Change()Text2.Text = Text1.TextText3.Text = Text1.TextEnd Sub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。
当单击某个命令按钮时，对文本框中的文字完成相应的设置。
其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。
Private Sub Command1_Click() Text1.FontSize = Text1.FontSize + 5 End SubPrivate Sub Command2_Click() Text1.FontSize = Text1.FontSize - 5 End SubPrivate Sub Command3_Click() Text1.FontBold = TrueEnd Sub Private Sub Command4_Click() Text1.FontItalic = TrueEnd SubPrivate Sub Command5_Click() Text1.FontUnderline = True End SubPrivate Sub Command6_Click() Text1.FontStrikethru = True End Sub5.设计一个窗体，如下图所示。
程序中将π定义成符号常量（用Const ）,运行时，输入底面半径r 和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。
运算结果为只读。
Private Sub Command1_Click()Const pi = 3.14h = Val(Text1)r = Val(Text2)Text3.Text = pi * r ^ 2Text4.Text = 2 * pi * r * hText5.Text = pi * r ^ 2 * hEnd Sub6.设计界面如上图所示。
单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、 Text2中，单击“计算”按钮，求两个数的和。
运算结果为只读。
Private Sub Command1_Click() Text1.Text = Int(100 * Rnd + 1) Text2.Text = Int(100 * Rnd + 1) End Sub Private Sub Command2_Click()a = Val(Text1.Text)b = Val(Text1.Text)Text3.Text = a + bEnd Sub7．设计一个数字钟表程序，界面如图所示。
运行时单击窗体，显示当前的年月日星期及时间。
Private Sub Form_Click()Label2.Caption = Year(Now)Label4.Caption = Month(Now)Label6.Caption = Day(Now)Label9.Caption = Weekday(Now)Label11.Caption = TimeEnd Sub8．设计一个数学函数程序，界面如图所示。
程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。
文本框始终处于选中状态。
Private Sub Command1_Click() Label3.Caption = Abs(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End Sub Private Sub Command2_Click() Label3.Caption = Sqr(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Command3_Click() Label3.Caption = Fix(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Command4_Click() Label3.Caption = Int(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End SubPrivate Sub Command5_Click() Label3.Caption = Sgn(Val(Text1)) Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text) End 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) Text3.Text = a * b End Sub Private Sub Command2_Click() EndEnd Sub11．设计一工程，界面如上图所示。
程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。
Private Sub Command1_Click()a = Val(Text1)b = a * 3.14 / 180c = Abs(Sin(b))d = Abs(Cos(b))Text2.Text = Text2.Text & a & Space(10) & Format(c, "0.000") _& Space(10) & Format(d, "0.000") & vbCrLfText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub12．设计一个程序，用户界面如下图所示。
程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。
Private Sub Command1_Click()a = Val(Text1)b = Val(Text2)c = Val(Text3)Text4.Text = a * b * cEnd Sub Private Sub Command2_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End Sub13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。