《VB设计题》由会员分享，可在线阅读，更多相关《VB设计题（14页珍藏版）》请在金锄头文库上搜索。
1、13第二部分 VB上机考试模拟试题程序设计题1. 新建一个工程，完成“加法器”程序的设计。具体要求如下：1窗体的标题为“加法器“，固定边框。2在窗体上从上到下依次引入TEXT1、TEXT2、TEXT3三个文本框，三个文本框的对齐方式均为右对齐。3从上面两个文本框用于输入加数，要求不接受非数字键。4下面一个文本框用于显示和，它不能进行编辑操作。5单击“=“按钮（COMMAND1），将两个加数的各显示在下面一个文本框中。6单击“清空“按钮（COMMAND2），三个文本框内容都被清空，同时第一个文本框获得焦点。Private Sub Form_Load() Text1.Alignment = 1 T
2、ext2.Alignment = 1 Text3.Alignment = 1 Text3.Locked = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii = 0 End IfEnd SubPrivate Sub Command1_Click() Text3.Text = Val(Te
3、xt1.Text) + Val(Text2.Text)End SubPrivate Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub2. 新建一个工程，完成“健康称”程序的设计。具体要求如下：1窗体的标题为“健康称”，固定边框。2窗体的左边有两个标签，Label1的标题为“身高”、Label2的标题为“体重”；它们的旁边分别有两个文本框，Text1用于输入身高、Text2用于输入体重；在文本框的右边有两个标签，Label3的标题为“cm”、Label4的标题为“kg”。3将两个文本
4、框文字对齐方式均设置为右对齐，最多接受3个字符。4两个文本框均不接受非数字键。5单击“健康状况”按钮（Command1），根据计算公式将相应的提示信息显示在标签Label5中。计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。Private Sub Form_Load() Form1.Caption = 健康称 Text1.Alignment = 1 Text2.Alignment = 1 Text1.MaxLength = 3 Text2.MaxLength
5、= 3End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 57 Then KeyAscii = 0 End IfEnd SubPrivate Sub Command1_Click() Dim sg As Single, tz As Single, bz As Single sg = Val(Text1.Text) tz = Va
6、l(Text2.Text) bz = sg - 105 If tz 1.1 * bz Then Label5.Caption = 偏胖，注意节食 ElseIf tz 0.9 * bz Then Label5.Caption = 偏瘦，增加营养 Else Label5.Caption = 正常,继续保持 End IfEnd Sub3. 新建一个工程，完成应用程序的设计，具体要求如下：1 按照下图所示在窗体上放置按钮和控件。2 取消窗体的最大化和最小化按钮。3 当单击命令按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。4 同时可使用热键Alt+L和Alt+B实现窗口放大或还原。5 当窗体大
7、小改变后，总是让命令按钮位于窗口的中央。Private Sub Form_Load() Command1.Caption = 最大化(&L)End SubPrivate Sub Command1_Click() If Command1.Caption = 最大化(&L) Then Form1.WindowState = 2 Command1.Caption = 还原(&B) Else Form1.WindowState = 0 Command1.Caption = 最大化(&L) End IfEnd SubPrivate Sub Form_Resize() Command1.Left = (F
8、orm1.ScaleWidth - Command1.Width) / 2 Command1.Top = (Form1.ScaleHeight - Command1.Height) / 2End Sub4. 新建一个工程，完成“判断质数”应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2在请输入文本框中输入一个数字后,单击判断,可在结果为显示判断结果。3若输入的不是数字,则弹出消息框,提示信息是输入的不是数字,无法计算。Private Sub Command1_Click() Dim n As Integer, i As Integer, y As Boolean y =
9、True n = Val(Text1.Text) For i = 2 To Sqr(n) If n Mod i = 0 Then y = False Exit For End If Next i If y = True Then Label3.Caption = n & 是质数 Else Label3.Caption = n & 不是质数 End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii 57 Then KeyAscii = 0 MsgBox 输入的不是数字，无法计算, , designEnd IfE
10、nd Sub5. 新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2在输入或修改单科成绩的同时计算平均分,即在高数,英语和计算机文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。3“平均成绩”文本框不允许编辑，即不能手工修改。4各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。Private Sub Form_Load() Form1.Caption = 计算平均成绩 Text4.Locked = TrueEnd SubPrivate Sub Text1_KeyPress(Key
11、Ascii As Integer) If KeyAscii 48 And KeyAscii 8 Or KeyAscii 57 Then KeyAscii = 0 不能输入字母汉字，只能输数字 Beep End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 48 And KeyAscii 8 Or KeyAscii 57 Then KeyAscii = 0 Beep End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAsc
12、ii 48 And KeyAscii 8 Or KeyAscii 57 Then KeyAscii = 0 Beep End IfEnd SubPrivate Sub Text1_Change() Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3End SubPrivate Sub Text2_Change() Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3End SubPrivate Sub Text3_Chan
13、ge() Text4.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3End Sub6. 新建一个工程，完成“收款计算”程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2窗体上有三个文本框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在下面一个文本框中。3最下面一个文本框不能直接输入。4单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。Private Sub Form_Load() Text3.Locked = TrueEnd SubPrivate Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click() Dim dj As Single, sl As Integer If Text1.Text = Then MsgBox 请输入单价！, 48, 警告！ Else dj = Val(Trim(Text1.Text) sl = Val(Trim(Text2.Text) If sl = 0 Then Text2.Te
