VB设计题.doc

13第二部分 VB上机考试模拟试题程序设计题1. 新建一个工程，完成“加法器”程序的设计。具体要求如下：1窗体的标题为“加法器“，固定边框。2在窗体上从上到下依次引入TEXT1、TEXT2、TEXT3三个文本框，三个文本框的对齐方式均为右对齐。3从上面两个文本框用于输入加数，要求不接受非数字键。4下面一个文本框用于显示和，它不能进行编辑操作。5单击“=“按钮（COMMAND1），将两个加数的各显示在下面一个文本框中。6单击“清空“按钮（COMMAND2），三个文本框内容都被清空，同时第一个文本框获得焦点。Private Sub Form_Load() Text1.Alignment = 1 Text2.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(Text1.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将两个文本框文字对齐方式均设置为右对齐，最多接受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 = 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 = Val(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 当窗体大小改变后，总是让命令按钮位于窗口的中央。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 = (Form1.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 = 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 IfEnd Sub5. 新建一个工程，完成“计算平均成绩”应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2在输入或修改单科成绩的同时计算平均分,即在高数,英语和计算机文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。3“平均成绩”文本框不允许编辑，即不能手工修改。4各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。Private Sub Form_Load() Form1.Caption = 计算平均成绩 Text4.Locked = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii 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 KeyAscii 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_Change() 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.Text = 1: sl = 1 Text3.Text = dj * sl End IfEnd Sub7. 新建一个工程，完成“编辑”程序的设计。具体要求如下：1窗体的标题为“编辑”。2窗体中有以下控件：一个文本框、四个命令按钮。3完成以下功能：文本框实现文本编辑功能，单击按钮实现相应功能。Dim X As StringPrivate Sub Form_Load() Form1.Caption = 编辑 Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Command1_Click() X = Text1.SelText Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = FalseEnd SubPrivate Sub Command2_Click() X = Text1.SelText Text1.SelText = Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = FalseEnd SubPrivate Sub Command3_Click() Text1.SelText = XEnd SubPrivate Sub Command4_Click() Text1.SelText = Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Text1.SelText = Then Command1.Enabled = False Command2.Enabled = False Command4.Enabled = False Else Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = True End IfEnd Sub8. 新建一个工程，完成“密码检验”程序的设计。具体要求如下：1窗体的标题为“密码检验”，固定边框。2窗体上有一个标签Label1，标题为“输入密码后按回车提示：密码1234567”。3标签Label1旁边有一个文本框Text1，用于输入密码。文本框中输入的字符显示为*，并且最多可以接受7个字符。4窗体的下半部有一个标签控件Label2，用来显示密码输入后的提示信息。它的文字对齐方式为居中对齐，文字颜色为红色，Font设置为：宋体、常规、三号；标签的大小随字体自动调整，并设置为不可见。5当在文本框中输入密码“1234567”，并按回车后，标签Label2显示为“欢迎光临！”；如果输入的密码与“1234567”不吻合，标签Label2显示为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；如果第二次输入的密码仍然与“1234567”不吻合，标签Label2显示为“非法用户，请退出程序！”，文本框就不能使用了。Private Sub Form_Load() Form1.Caption = 密码检验 Label1.Caption = 输入密码后按回车 & vbCrLf & (提示：密码1234567) Text1.MaxLength = 7 Text1.PasswordChar = * Label2.Caption = Label2.Alignment = 2 Label2.ForeColor = vbRed Label2.AutoSize = True Label2.Visible = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Static n As Integer If KeyAscii = 13 Then n = n + 1 If Text1.Text = 1234567 Then Label2.Visible = True Label2.Caption = 欢迎光临！ Text1.Enabled = FalseElse If n 2 Then Label2.Visible = True Label2.Caption = 密码不符，请再输入一遍！ Text1.Text = Else Label2.Visible = True Label2.Caption = 非法用户，请退出程序！ Text1.Text = Text1.Enabled = False End If End If End IfEnd Sub9. 新建一个工程，完成应用程序的设计。具体要求如下：1按照下图所示在窗体上放置按钮和控件。2当单击确定按钮后,首先比较用户名和原密码是否一致，若一致且都为admin,则继续执行步骤3；否则弹出消息框,提示用户出错,并让用户重新输入；3比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。4当单击“取消”按钮时,程序终止执行。5当按Tab键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。Private Sub Command1_Click() If Text1.Text = Text2.Text And Text1.Text = admin Then If Text3.Text = Text4.Text Then MsgBox 密码修改成功!, , 修改密码 Else MsgBox 新密码有误,请重试!, , 修改密码 End If Else MsgBox 用户名或密码无效,请重试!, , 修改密码 End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Text2.PasswordChar = * Text3.PasswordChar = * Text4.PasswordChar = *End Sub10. 新建一个工程，完成应用程序的设计。具体要求如下：11. 新建一个工程，完成“替换”程序的设计。具体要求如下：1窗体的标题为“替换”。2窗体中有以下控件：一个文本框可以多行编辑，两个文本框，两个标签框，一个命令按钮。3完成以下功能：输入查找内容，把编辑框中所有与查找内容一样的部分替换成另外一个内容。单击“替换”按钮执行。Private Sub Command1_Click()Dim len1 As Integer, len2 As Integer, len3 As Integer len1 = Len(Text1.Text) len2 = Len(Text2.Text) len3 = Len(Text3.Text) Do While i 0 Then n = n - 1 mm = n 60 ss = n Mod 60 Label1.Caption = mm & 分 & ss & 秒 Else Label1.Caption = 时间到! Timer1.Enabled = False Command1.Enabled = True Frame1.Enabled = True End IfEnd Sub27. 新建一个工程，完成“字幕闪烁”程序的设计。具体要求如下：1窗体的标题为“字幕闪烁”，固定边框。2在属性窗口中将标签（Label1）的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”，格式设置为在窗体中水平居中对齐。3单击“开始”按钮（Command1），标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。4单击“停止”按钮，标签文字停止闪烁，同时“停止”按钮变为“开始”按钮。5定时器（Timer1）的时间间隔为0.3秒。28. 新建一个工程，完成“字幕滚动”程序的设计。将工程文件以Design.vbp窗体文件以Design.frm保存到考生目录下。具体要求如下： 29. 新建一个工程，完成“字幕放大”程序的设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考生目录下。具体要求如下：1窗体的标题为“字幕放大”，固定边框。2单击“开始”按钮（Command1），标签“欢迎光临”（Label1）文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。3单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮为“开始”按钮。4要求标签文字在放大时保持水平居中。5定时器（Timer1）的时间间隔为0.2秒。 30. 新建一个工程，完成“拨号盘”程序的设计。具体要求如下：31. 新建一个工程，完成“简单动画演示”应用程序的设计。具体要求如下：32. 新建一个工程，完成“改变大小”程序的设计。具体要求如下：33. 新建一个工程，完成“作图”程序的设计。具体要求如下：34. 新建一个工程，完成“画板”程序的设计。具体要求如下：35. 新建一个工程，完成“反弹球”程序的设计。具体要求如下：1窗体的标题为“反弹球“，固定边框。2设计两个菜单项，MNUSTART的标题为“启动“，MNUSTOP的标题为”停止“。3在窗体中引入一个形状控件SHAPE1，形状为圆，圆直径为500TWIPS，填充色为红色。36. 新建一个工程，完成“字体设置”程序的设计具体要求如下：1窗体的标题为“字体设置”，固定边框。2窗体上引入一个通用对话框控件Commondialog1。3窗体上设计三个菜单项：mnufont，标题为“字体“、mnufore，标题为“文字颜色”、mnuback，标题为“背景颜色”。4窗体中有一个文本框Text1，将它设计为带垂直滚动条。5单击菜单“字体”，通用对话框控件显示为字体对话框，并对文本框字体进行修饰。6单击菜单“文字颜色”，通用对话框控件显示为颜色对话框，并对文本框文字颜色进行修饰。7单击菜单“背景颜色”，通用对话框控件显示为颜色对话框，并对文本框背景颜色进行修饰。37. 新建一个工程，完成“图片欣赏”程序的设计。具体要求如下：1窗体的标题为“图片欣赏”，固定边框。2窗体上有驱动器列表框（Drive1）、目录列表框（Dir1）和文件列表框（File1）三个控件，要求三个控件能够联动。3窗体的右半部有一个图像框Image1，将它的Stretch属性设置为True。4设置文件列表框只显示*.bmp和*.jpg类型的图片文件。5单击文件列表框上的图片文件名时，图片显示在图像框中。Private Sub Form_Load() Image1.Stretch = True File1.Pattern = *.bmp;*.jpgEnd SubPrivate Sub Drive1