VB期末上机模拟题

1、27第二部分 VB上机考试模拟试题二、程序设计题（一）说明程序设计题主要是根据题目的要求先进行界面设计(参考Design.exe程序的运行结果)，再设计事件代码。完成后将工程文件以Design.vbp，窗体文件以Design.frm保存到考生目录下。注：以默认方式命名控件，以从左至右，从上向下的顺序拖放控件。例如有4个CommandButton类型的控件，命名按照如下方式：Command1 Command2Command3 Command4（二）程序设计题1、 新建一个工程，完成“加法器”程序的设计。具体要求如下：1窗体的标题为“加法器“，固定边框。2在窗体上从上到下依次引入TEXT1、TEX

2、T2、TEXT3三个文本框，三个文本框的对齐方式均为右对齐。3从上面两个文本框用于输入加数，要求不接受非数字键。4下面一个文本框用于显示和，它不能进行编辑操作。5单击“=“按钮（COMMAND1），将两个加数的各显示在下面一个文本框中。6单击“清空“按钮（COMMAND2），三个文本框内容都被清空，同时第一个文本框获得焦点。Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then 判断为非数字键 KeyAscii = 0 改变键入文本框的显示为空字符，即不显示 End IfEnd SubPrivate Sub Tex

3、t2_KeyPress(KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii) Then 或If KeyAscii 57 Then KeyAscii = 0 End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load()Form1.Caption = 加法器Text1.Alignment = 1Text2.Alignment = 1Text3.Alignment

4、 = 1Text3.Locked = True Command1.Caption = = Command2.Caption = 清空End Sub 2、 新建一个工程，完成“健康称”程序的设计。具体要求如下：1窗体的标题为“健康称”，固定边框。2窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“cm”、Label4的标题为“kg”。3将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。4两个文本框均不接受非数字键。5单击“健康状况”按

5、钮（Command1），根据计算公式将相应的提示信息显示在标签Label5中。计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 MsgBox 只能输入数字 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 5

6、7 Then KeyAscii = 0 MsgBox 只能输入数字 End IfEnd SubPrivate Sub Form_Load() Form1.Caption = 健康称Text1.Text = Text2.Text = Text1.Alignment = 1 Text2.Alignment = 1 Text1.MaxLength = 3 Text2.MaxLength = 3 Label1.Caption = 身高 Label2.Caption = 体重 Label3.Caption = cm Label4.Caption = kg Command1.Caption = 健康状况

7、Label5.Caption = Label5.FontSize = 16 Label5.FontName = 楷体_GB2312 Label5.FontBold = True Label5.ForeColor = vbBlue Label5.AutoSize = TrueEnd Sub3、 新建一个工程，完成应用程序的设计，具体要求如下：1 按照下图所示在窗体上放置按钮和控件。2 取消窗体的最大化和最小化按钮。3 当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。4 同时可使用热键Alt+L和Alt+B实现窗口放大或还原。5 当窗体大小改变后，总是让命令按钮位于窗口的中央。P

8、rivate Sub Form_Load() Command1.Caption = 最大化(&L) Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2 Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2End SubPrivate Sub Command1_Click() If Command1.Caption = 最大化(&L) Then Form1.WindowState = 2 Command1.Caption = 还原(&B) Else Form1.WindowSt

9、ate = 0 Command1.Caption = 最大化(&L) End If Command1.Left = (Form1.ScaleWidth - Command1.Width) / 2 Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2End Sub4、 新建一个工程，完成“判断质数”应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2在请输入文本框中输入一个数字后,单击判断,可在结果为显示判断结果。3若输入的不是数字,则弹出消息框,提示信息是输入的不是数字,无法计算。Private Sub Comman

10、d1_Click() Dim n As Integer If IsNumeric(Text1.Text) Then n = Val(Text1.Text) If n Sqr(n) Then Label2.Caption = 结果为： & n & 是质数 Else Label2.Caption = 结果为： & n & 不是质数 End If End If Else MsgBox 输入的不是数字，无法计算 End IfEnd Sub5、 新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2在输入或修改单科成绩的同时计算平均分,即在高数,英语和计

11、算机文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。3“平均成绩”文本框不允许编辑，即不能手工修改。4各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。Private Sub Form_Load() Form1.Caption = 计算平均成绩 Text4.Locked = TrueEnd SubPrivate Sub Text1_Change() Sum = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) Text4.Text = Sum / 3End SubPrivate

12、 Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then 屏蔽非数字键，“0”的Ascii值是48，“9”的Ascii值是57 KeyAscii = 0 Beep 发出错误提示音 End IfEnd SubPrivate Sub Text2_Change()Text4.Text = Sum / 3End SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 Beep End IfEnd Sub Sum = Val(Te

13、xt1.Text) + Val(Text2.Text) + Val(Text3.Text) Text4.Text = Sum / 3End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 Beep End IfEnd SubPrivate Sub Text3_Change() Sum = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)6、 新建一个工程，完成“收款计算”程序的设计。具体要求如下：1按照下图所示在窗体上放置

14、按钮和控件。2窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在下面一个文本框中。3最下面一个文本框不能直接输入。4单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。If Text1.Text = Then MsgBox 请输入单价！, vbExclamation, 警告 Text1.SetFocus Else If Text2.Text = Then Text3.Text = CStr(Val(Text1.Text) * 1) CStr()与Trim(Str()效果等价 Text2.Text = 1 Else Text3.Text = C

15、Str(Val(Text1.Text) * Val(Text2.Text)Private Sub Form_Load() Form1.Caption = 收款计算 Text1.Text = Text2.Text = Text3.Text = Text3.Locked = TrueEnd Sub End If End IfEnd Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub7、 新建一个工程，完成“编辑”程序的设计。具体要求如下：1窗体的标题为“编辑”。2

16、窗体中有以下控件：一个文本框、四个命令按钮。3完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。Private Sub Command1_Click() Clipboard.Clear 清除剪贴板中的内容 Clipboard.SetText (Text1.SelText) 将选中文本送入剪贴板Private Sub Form_Load() Form1.Caption = 编辑 Text1.Text = End SubPrivate Sub Text1_Change()End Sub Text1.SetFocusEnd SubPrivate Sub Command2_Click() C

17、lipboard.Clear Clipboard.SetText (Text1.SelText) Text1.SelText = 清空文本框内被选中的文本 Text1.SetFocusEnd SubPrivate Sub Command3_Click() Text1.SelText = Clipboard.GetText 将剪贴板上的文本复制到指定文本框的光标处 Text1.SetFocusEnd SubPrivate Sub Command4_Click() Text1.SelText = 清空文本框内被选中的文本 Text1.SetFocusEnd Sub8、 新建一个工程，完成“密码检验

18、”程序的设计。具体要求如下：1窗体的标题为“密码检验”，固定边框。2窗体上有一个标签Label1，标题为“输入密码后按回车提示：密码1234567”。3标签Label1旁边有一个文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。4窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。它的文字对齐方式为居中对齐，文字颜色为红色，Font设置为：宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。5当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Lab

19、el2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。If n 2 Then Label2.Caption = 密码不符，请再输入一遍！ Label2.Visible = True Text1.Text = Else Label2.Caption = 非法用户，请退出程序！ Text1.Text = Text1.Enabled = False End If End If End IfEnd SubPrivate Sub Form_Load() Fo

20、rm1.Caption = 密码检验 Form1.BorderStyle = 1 Label2.Visible = False Label2.AutoSize = True Label2.ForeColor = vbRed Text1.MaxLength = 7 Text1.PasswordChar = *End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer 统计第几次输入错误密码 If KeyAscii = 13 Then 按回车键后进行密码检验 If Text1.Text = 1234567 T

21、hen Label2.Caption = 欢迎光临！ Label2.Visible = True Text1.Enabled = False Else n = n + 19、 新建一个工程，完成应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2当单击确定按钮后,首先比较用户名和原密码是否一致，若一致且都为admin,则继续执行步骤3；否则弹出消息框,提示用户出错,并让用户重新输入；3比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。4当单击“取消”按钮时,程序终止执行。5当按Tab键时，保证按照“用

22、户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。Private Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text2.PasswordChar = * Text3.PasswordChar = * Text4.PasswordChar = *End SubPrivate Sub Command1_Click() If Text1.Text = Text2.Text And Text1.Text = admin Then If Text3.Text = Text4.Text Th

23、en MsgBox 密码修改成功!, , 修改密码 End Else MsgBox 新密码有误,请重试!, , 修改密码 End If Else MsgBox 用户名或密码无效,请重试!, , 修改密码 End If Text1.SetFocusEnd Sub10、 新建一个工程，完成应用程序的设计。具体要求如下：1按照下图所示在窗体上放置控件。建立一个文本框和两个命令按钮。Next j Next i 输出 Form1.Cls For i = 1 To n Print a(i) Next i Command1.Enabled = FalseEnd SubPrivate Sub Command2

24、_Click() EndEnd SubPrivate Sub Form_Load() Text1.Text = Command1.Caption = 开始 Command2.Caption = 结束End Sub2在文本框中输入内容，单击“开始”后，把文本框中的字符按从小到大排列输出在窗体上，按结束退出应用程序。Private Sub Command1_Click() Dim a() As String * 1, i As Integer, n As Integer, t As String n = Len(Text1) ReDim a(n) 分解字符串 For i = 1 To n a(i)

25、 = Mid(Text1, i, 1) Next i 排序 For i = 1 To n - 1 For j = i + 1 To n If a(j) a(i) Then t = a(i): a(i) = a(j): a(j) = t 11、 新建一个工程，完成“替换”程序的设计。具体要求如下：1窗体的标题为“替换”。2窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。3完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。12、 新建一个工程，完成应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件

26、。24个单选按钮，分别用于显示星期、年份、月份和日期。3一个文本框，选中单选按钮时，显示相应的信息。4一个命令按钮，单击该按钮时，退出应用程序。Text1.Text = Format(Date, 今天是 yyyy年) Case 2 Text1.Text = Format(Date, 今天是 m月) Case Else Text1.Text = Format(Date, 今天是 d号) End SelectEnd SubPrivate Sub Command1_Click() EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Option1_

27、Click(Index As Integer) Select Case Index Case 0 Text1.Text = Format(Weekday(Date) - 1, 今天是星期 w) Case 113、 新建一个工程，完成“字体修饰” 程序的设计。具体要求如下：1 按照下图所示在窗体上放置按钮和控件。窗体的标题为“字体修饰”。2 框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。3 框架Frame2中有一个单选钮框数组，可以选择宋体或楷体对标签中的文字进行修饰。4 标签Label1的文字内容为“Visual Basic程序设计“，宋体，常规，三号；文字对齐

28、方式为居中。Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Label1.FontBold = Check1(0).Value Case 1 Label1.FontItalic = Check1(1).Value End Select Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2 Label1居中，Form1.ScaleWidth指窗体内部宽度End SubPrivate Sub Form_Load() Form1.Caption = 字体修饰 Op

29、tion1(0).Value = TrueEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Label1.FontName = 宋体 Case 1 Label1.FontName = 楷体_GB2312 End Select Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2End Sub14、 新建一个工程，完成“点餐”程序的设计。具体要求如下：1窗体的标题为“点餐”。2窗体中有以下控件：一个框架控件作为容器，内有三个复选框数组、对应三个文

30、本框数组、三个标签框、一个命令按钮。3要求文本框只能接受数字键，并且只有选取了相应的套餐后才可以进行输入；如果没有选取大套餐，那么文本框不能编辑，并清空。4完成以下功能：选择所需套餐种类及份数，单击确定按钮后计算所需的钱，并用消息框显示。Private Sub Check1_Click() Private Sub Command1_Click() Dim sum1&, sum2&, sum3&, sum& sum = 0 sum1 = Val(Text1(0).Text) * 13 sum2 = Val(Text1(1).Text) * 18 sum3 = Val(Text1(2).Text)

31、 * 25 sum = sum1 + sum2 + sum3 MsgBox 一共 & sum & 元End SubPrivate Sub Form_Load() Form1.Caption = 点餐 For i% = 0 To 2 Text1(i).Text = Next iEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End IfEnd Sub If Check1.Value = 1 Then Text1(0).Enabled

32、= True Text1(0).SetFocus Else Text1(0).Enabled = False Text1(0).Text = End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1(1).Enabled = True Text1(1).SetFocus Else Text1(1).Enabled = False Text1(1).Text = End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then Text1(2).En

33、abled = True Text1(2).SetFocus Else Text1(2).Enabled = False Text1(2).Text = End IfEnd Sub15、 新建一个工程，完成应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2窗体上有两个CheckBox，当这两个选项未被选定时，它们所在框架的其他控件不能使用。3如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。Private Sub Check2_Click() If Check2.Value = 1 Then Option1.Enabled = True Option2.Ena

34、bled = True Else Option1.Enabled = False Option2.Enabled = False End IfEnd SubPrivate Sub Command1_Click() Dim str1 As String If Check1.Value = 1 Then str1 = Combo1.Text & vbCrLf vbCrLf是回车加换行，等同于chr(13)+chr(10) str1 = str1 & Text1.Text & vbCrLf End If If Option1.Value = True Then str1 = str1 & Optio

35、n1.Caption If Option2.Value = True Then str1 = str1 & Option2.Caption Label3.Caption = str1End SubPrivate Sub Form_Load() Combo1.AddItem 联想 Combo1.AddItem 方正 Combo1.AddItem 戴尔 Combo1.Text = 联想 Combo1.Enabled = False Text1.Enabled = False Option1.Enabled = False Option2.Enabled = FalseEnd SubPrivate

36、Sub Check1_Click() If Check1.Value = 1 Then Combo1.Enabled = True Text1.Enabled = True Else Combo1.Enabled = False Text1.Enabled = False End IfEnd Sub16、 新建一个工程，完成“改变字号”程序的设计。具体要求如下：1窗体的标题为“改变字号”。2窗体中有以下控件：一个标签框、一个文本框、一个水平滚动条。3完成以下功能：根据设定字号改变标签框内显示文字的字体。要求水平滚动条与文本框相关联。Private Sub HScroll1_Scroll() H

37、Scroll1_ChangeEnd SubPrivate Sub Text1_Change() If Len(Text1.Text) = 2 Then If Val(Text1.Text) = 12 And Val(Text1.Text) Asc(A) And KeyAscii Asc(a) And KeyAscii ”按钮，把左边列表框中的偶数全部移到右边列表框中。Private Sub Command1_Click() Dim i As Integer List1.Clear List2.Clear Randomize For i = 1 To 10 List1.AddItem CStr(

38、Int(Rnd * 90 + 10) Next iEnd Sub偶数迁移方法1：Private Sub Command2_Click() Dim i As Integer, j As Integer For i = 1 To 10 If List1.List(j) Mod 2 = 0 Then List2.AddItem List1.List(j) List1.RemoveItem j Else j = j + 1 End If Next iEnd SubPrivate Sub Form_Load() Form1.Caption = 偶数迁移End Sub22、 新建一个工程，完成应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2在两个列表框控件的list中输入一些内容。3当单击“”按钮时，把list2中选中的一项放到list1中，并且在list2中删除该项。4当单击“”按钮时