《VB期末考试上机模拟题(附代码).docx》由会员分享，可在线阅读，更多相关《VB期末考试上机模拟题(附代码).docx（11页珍藏版）》请在三一文库上搜索。
1、基本操作题请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1、在名称为Forml的窗体上画一个名称为 Chk1的复选框数组（Index属性从0开始），含 三个复选框，其标题分别为“语文”、“数学”、“英语”。利用属性窗口设置适当的属性， 使“语文”未选，“数学”被选中，“英语”为灰色，再把窗体的标题设置为“选课”，程序运行时的窗体界面如图所示。2、在名称为窗体上画一个命令按钮，其名称为Cmd1，标题为“清除”。请编写适当的事件过程，使得程序运行后，窗体上的标题为“VB期末上机考试”，如图1所示，如单击命令按钮，则清除窗体的标题，程序运行时的窗体界面如图2所示。Pr
2、ivate Sub Comma nd1_Click()Form1.C apti on =End SubPrivate Sub Form_Load()Form1.Caption = VB 期末考试”End Sub图1图23、在名称为Form1的窗体上画一个命令按钮，其名称为Cmd1，标题为“移到左上”。编写适当的事件过程，使程序运行时，如单击命令按钮，则按钮移到窗体的左上角。程序中不得 使用任何变量。程序运行时的窗体界面如图。Private Sub Comma nd1_Click()Comma nd1.Top = 0: Comma nd1.Left = 0End Sub4、在名称为Form1的窗
3、体上建立一个名称为 L1的标签，标题为“选课”，其字号大小为4 号；再建立三个复选框，名称分别为 Chk1、Chk2、Chk3，标题分别为“操作系统”、“数据 库原理”、和“概率论”，字体大小均为14,其中“概率论”被禁用，运行界面如图。选课r eft it 泉 isI-庄5、在Forml的窗体上画一个命令按钮，其名称为Cmd1,标题为显示”；再画一个文本框，ti_ 1口1 x 1U- Pl *111虽不1其名称为Txtl，编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如双 击窗体，则文本框出现；此时如单击命令按钮，则在文本框中显示“期末考试”，如图所示。Private Sub
4、Comma nd1_Click()Textl.Text =期末考试End SubPrivate Sub Form_DblClick()Text1.Visible = TrueEnd SubPrivate Sub Form_Load()Text1.Visible = FalseEnd Sub6、在名称为 Form1的窗体上，画一个组合框和一个命令按钮。组合框的名称为Cbo1，初始内容为空，有“长跑”、“游泳”、和“跳远”三个可供选择项。命令按钮的名称为 Cmd1， Opt2，标题为“确定”。编写适当的事件过程，使得程序运行时，选择组合框中的某项，单 击命令按钮后，就会弹出一个对话框，内容为“您选
5、择了(该项)”。程序中不得使用任何变量。程序运行时的窗体界面如图所示。Private Sub Comma nd1_Click()MsgBox 你选择了 & Combo1.TextEnd Sub7、在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边的按钮)，滚动框移动10个刻度。再在滚动条下 面画两个名称分别为 L1和L2的标签，并分别显示 1和100，运行时的窗体界面如图所示。Private Sub Form_Click()HScrolll.Va
6、lue = HScrolll.Value + 10End Sub8、在名称为Form1的窗体上画两个文本框，无初始内容；再建立一个下拉菜单，菜单标题 为操作”，名称为M1，此菜单下有两个子菜单项，名称分别为Copy和Clear，标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把Text1中的内容复制到 Text2中，单击“清除”菜单项，则清除 Text2中的内容。程序 运行时的窗体界面如图所示。要求在程序中不得使用任何变量，每个事件过程中只能写一个语句。Private Sub clear_Click()Text2.Text =End SubPrivat
7、e Sub copy_Click()Text2.Text = Text1.TextEnd Sub9、在Form1的窗体上画一个文本框，其名称为Text1，程序运行时，在文本框中输入字符，文本框中的字符将赋值到窗体的标题栏中。注意，本程序代码中不得使用任何变量。程序运行时的窗体界面如图所示。31Private Sub Text1_Cha nge() Form1.Capti on = Text1.Text End Sub10、在窗体上有一个名称为text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，要求在文本框中输入的内容都必须以“*”显示(通过属性窗口设置)。要求
8、程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容 是“ ABC ”这3个大写字母，则用 MsgBox信息框输出“正确”，否则输出“错误”。如图所 示。Private Sub Comma nd1_Click()If Textl.Text = ABC The n MsgBox (正确)ElseMsgBox (错误)End IfEnd Sub十、简单应用题1、在窗体Form1上已有两个文本框，一个命令按钮，命令按钮标题为转换”。要求在窗体上补充三个单选钮，名称分别为Opt1、Opt2、Opt3，标题分别为大小写转换”“全部大写”、“全部小写”。要求补充完整代码窗口的代码后，在Te
9、xt1中输入一段字符，选中大小写转换”，单击转换按钮后，Text2中显示大小写相反的字符串；选中“全部大写”，单击转换按钮后，Text2中显示全部大写字符串，选中“全部小写”，单击转换按钮后，Text2中显示全部小写字符串。界面如图。Private Sub Comma nd1_Click()Dim n As Integer, k As Integer, ch As String, a As String ch =If Opt1.Value = True The nn = Len( Textl)For k = 1 To na = Mid$(Text1, k, 1)If a = a A nd a
10、= A A nd a m The nm = bEnd IfIf c m The nm = cEnd IfIf d m The nm = dEnd IfFi ndMax = mEnd FunctionPrivate Sub Comma nd1_Click()Dim n1, n2, n3, n4, max As Longn1 = Val(Textl): n2 = Val(Text2): n3 = Val(Text3): n4 = Val(Text4)max = Fin dMax%( n1, n2, n 3, n4)Print maxEnd Sub8、有一文档不完整，在有？ ”的地方把程序补完整or
11、m上有一个textl, 一个commandl,要求在textl中添入文本，但用“ *显示，若文本是 “ ABC；则msgbox正确,否则msgbox错误以给程序：Private Sub comma nd1.Click()if text1.text= ABC then msgbox正确Else msgbox错误end sub9、在窗体Forml上画一个图像框，其高、宽分别为600,通过属性窗口把一个图像文件装入图像框；再画一个命令按钮，标题为“放大”。请编写适当事件过程，程序运行后，单击“放大”按钮，则把图像框的高度、宽度均增加600，同时图像也随之自动放大。程序运行后，窗体界面如图所示。Pri
12、vate Sub Comma nd1_Click()lmage1.Stretch = Falselmage1.Height = Image.Height + 600 Image1.Width = Image1.Width + 600 End Sub10、在窗体上建立一个名称为 text1的文本框，然后建立两个主菜单，标题分别为“国家制 度”和“帮助”，名称分别为vbmenu和vbhelp，其中“国家制度”菜单包括“君主制”、“民 主制”、“混合制”三个子菜单，名称分别为vbmenu1、vbmenu2、vbmenu3。要求程序运行后,如果在“国家制度”的下拉菜单中选择“君主制”，则在文本框内显示
13、“伊拉克、英国”； 如选择“民主制”则在文本框内显示“澳大利亚、加拿大”；如选择“混合制”，则在文本框内显示“芬兰、丹麦”(要求：不使用任何变量，直接显示字符串)。程序运行时，选择“民主制”的效果如图。Private Sub vbme nu1_Click()Text1.Text =伊拉克、英国”End SubPrivate Sub vbme nu 3_Click()Text1.Text =芬兰、丹麦End SubPrivate Sub vbmw nu 2_Click()Text1.Text =澳大利亚、加拿大”End Sub十一、综合应用题1、在窗体form1上有一个文本框，还有一命令按钮，名
14、称为 Cmd1，标题“计算，如图所 示。并有一个函数isprime可以在程序中直接调用，其功能是判断参数a是否素数，如是，则返回true，否则返回false。请编写适当的事件过程，使得在运行时，单击“确定”按钮，则找出小于 3000的最大素数，并显示在 text1中。Private Function isprime(a As In teger) As Boolea nDim flag As Boolea nflag = Trueb% = 2Do While b% = a(j) Thenal = a(i): a(i) = a(j): a(j) = alEnd IfNext jNext iFori
15、 = 1 To 10Print a(i);Next iEnd Sub45 S7 27332438T43Q5286785、单击命令按钮commandl在Labell中随机产生10个25-99的随机整数，单击命令按 钮command2在Label2中对产生的10个随机整数按升序排序。 单击命令按钮 command3 则结束程序运行。Dim num(1 To 10)Public Sub Comma nd1_Click()For i = LBo und(num) To UBound(num)num(i) = Int(Rnd * 75 + 25)Label1.Caption = Label1.Capti
16、on & & num(i)Next iEnd SubPublic Sub Comma nd2_Click()For j = LBo und(num) To UBound(num)For k = j + 1 To UBound(num)If num(j) = num(k) Thenz = num(j): num(j) = num(k): num(k) = zEnd IfNext kNext jFor l = LBound(num) To UBound(num) Label2.Caption = Label2.Caption & & num(l) Next lEnd SubPrivate Sub Command3_Click()EndEnd Sub