VB上机操作题综合

1、VB程序设计暴风影音程序运行前：程序运行后：说明：当用户双击窗体任意区域时，播放器窗口最大化。提示：窗体最大化可使用语句：Form1.windowstate = 2详细内容：程序使用控件如下：窗体（Form）1个。 控件属性设置：Form1Caption暴风影音BackColor黑色参考代码：Private Sub Form_DblClick()Form1.WindowState = 2End SubVB程序设计登录框程序运行：说明：制作如图所示登录框，其中，用户名限制输入6位长度，密码以“*”号显示。详细内容：程序使用控件如下：窗体（Form）1个，标签（Label）2个，文本框（TextB

2、ox）2个，按钮（Command Button）2个。控件属性设置：Form1Caption登录框Label1Label2Caption用户名Caption密 码Font小三Font小三Text1Text2Text清空Text清空Font小三Font小三MaxLength6Passwordchar*Command1Command2Caption登录Caption退出Font小三Font小三VB程序设计静夜思程序运行：说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下：窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。 控

3、件属性设置：Form1Label1Caption诗词记忆练习Caption静夜思Font一号，隶书Label2Label3Caption床前明月光，Caption疑是地上霜。Font小二，隶书Font小二，隶书VisibleFalseVisibleFalseLabel4Label5Caption举头望明月，Caption低头思故乡。Font小二，隶书Font小二，隶书VisibleFalseVisibleFalseCommand1Command2Caption显示诗句Caption显示诗句Font三号Font三号Command3Command4Caption显示诗句Caption显示诗句Fon

4、t三号Font三号参考代码：Private Sub Command1_Click()Label2.Visible = TrueEnd SubPrivate Sub Command2_Click()Label3.Visible = TrueEnd SubPrivate Sub Command3_Click()Label4.Visible = TrueEnd SubPrivate Sub Command4_Click()Label5.Visible = TrueEnd SubPrivate Sub Form_Load()End SubVB订餐运前运行功能：当单击窗体上的“计算金额”命令按钮时，弹出

5、如图所示消息框MsgBox，并显示相应消费金额。参考代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, S As Integera = Val(Text1)b = Val(Text2)c = Val(Text3)S = 10 * a + 12 * b + 2 * cMsgBox 您好！您本次消费共计 & S & 元, vbOKOnly, 欢迎使用End SubVB简单加法计算器运行功能：当单击窗体上的命令按钮时，窗体上最右侧文本框输出如图所示运算结果。参考代码：Pr

6、ivate Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1)b = Val(Text2)c = a + bText3 = cEnd SubVB程序设计字体设置程序运行：详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）2个，标签（Label）4个，组合框（ComboBox）2个，复选框（CheckBox）1个。控件属性设置：Form1Caption字体Frame1Frame2Caption字体设置Caption预览Label1Label2Caption字体(&T):Capti

7、on大小(&S):Label3Label4Caption字形(&Y):Caption北华大学Font三号Combo1Combo2Text宋体Text20List宋体黑体隶书List102030Check1Caption加粗参考代码：Private Sub Check1_Click()Label4.FontBold = Not Label4.FontBoldEnd SubPrivate Sub Combo1_Click()Label4.FontName = Combo1.TextEnd SubPrivate Sub Combo2_Click()Label4.FontSize = Combo2.T

8、extEnd SubVB程序设计电子表出题人：柳崧轶程序运行：说明：设计电子表程序实现如下功能：1.电子表能根据系统自动显示当前时间；2.电子表具有定时功能如上图所示，在电子表到达预设时间时，程序闪烁闹铃图标并发出提示音。详细内容：程序使用控件如下：窗体（Form）1个，图片框（PictureBox）1个，标签（Label）1个,按钮（CommandButton）2个，计时器（Timer）1个。控件属性设置：Form1Picture1Caption电子表Picture素材闹钟.jpgAutoSizeTrueLabel1Timer1BackColor浅绿色Interval250ForeColor

9、深蓝色FontArial、初号Command1Command2Caption定时Caption关闭Font楷体、三号Font楷体、三号参考代码：Dim tx As DatePrivate Sub Command1_Click()Tx = InputBox(请输入闹铃时间,如8:00, 闹钟设置)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Label2.Caption = TimeIf tx = Label2.Caption ThenBee

10、pPicture1.Visible = Not Picture1.VisibleEnd IfEnd SubVB程序设计读心术程序运行：说明：设计读心术小游戏，程序功能如上图中规则所示。详细内容： 程序使用控件如下：窗体（Form）1个，图片框（PictureBox）2个，标签（Label）1个,文本框（TextBox）1个，按钮（CommandButton）2个控件属性设置：Form1Caption读心术BackColor白色Picture素材背景.jpgLabel1Text1Caption看穿你的心声MultiLineTrueForeColor深紫色Font幼圆、小四Font华文行楷、小一、

11、加粗倾斜Text如上图所示BackStyle0Picture1Picture2Picture素材0.jpgPicture素材00.jpgAutoSizeTrueAutoSizeTrueCommand1Command2Caption开始测试Caption显示结果Font隶书、小三Font隶书、小三重要提示：由于程序运行过程中要加载图片，因此请将素材文件夹复制到程序存储根目录中。参考代码：Private Sub Command1_Click()Picture2.Picture = LoadPicture(App.Path & 素材00.jpg)Randomizer = Int(Rnd * 4 +

12、1)Select Case rCase 1Picture1.Picture = LoadPicture(App.Path & 素材1.jpg)Case 2Picture1.Picture = LoadPicture(App.Path & 素材2.jpg)Case 3Picture1.Picture = LoadPicture(App.Path & 素材3.jpg)Case 4Picture1.Picture = LoadPicture(App.Path & 素材4.jpg)End SelectEnd SubPrivate Sub Command2_Click()Command1.Caption

13、 = 再来一次Select Case rCase 1Picture2.Picture = LoadPicture(App.Path & 素材11.jpg)Case 2Picture2.Picture = LoadPicture(App.Path & 素材22.jpg)Case 3Picture2.Picture = LoadPicture(App.Path & 素材33.jpg)Case 4Picture2.Picture = LoadPicture(App.Path & 素材44.jpg)End SelectEnd SubVB程序设计三角形面积出题人：胡智鹏程序运行,单击窗体：说明：编写程序

14、，当单击窗体时，首先根据输入框提示输入任意三角形三边长，再计算相应三角形面积，最后将计算结果显示到窗体上。要求：1.数据输入使用InputBox函数，样式如截图所示；2.面积值存入变量s中；2.数据输出使用窗体的Print方法，内容如截图所示。测试数据（边长分别为3、4、5的三角形面积是6）相关知识：面积公式： 其中：参考代码：Private Sub Form_Click()Dim a As Single, b As Single, c As Single, p As Single, s As Singlea = Val(InputBox(请输入边长一, 输入框)b = Val(InputBo

15、x(请输入边长二, 输入框)c = Val(InputBox(请输入边长三, 输入框)p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print 三角形的面积是: & sEnd SubVB程序设计圆周长面积出题人：蔡国欣程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意圆半径，再计算相应圆的周长和面积，最后将计算结果显示到窗体上。要求：1.数据输入使用InputBox函数，样式如截图所示；2.周长值存入变量c中，面积值存入变量s中；2.数据输出使用窗体的Print方法，内容如截图所示。程序中取3.14

16、参考代码：Private Sub Form_Click()Dim R As Single, C As Single, S As Singlepi = 3.14R = Val(InputBox(请输入半径R, 输入框)C = 2 * pi * RS = pi * R * RPrint 周长是 & CPrint 面积是 & SEnd SubVB程序设计长方形周长出题人：蔡国欣程序运行,单击窗体：说明：编写程序，在文本框1和文本框2内分别输入长方形两边边长，当单击“计算周长”按钮时，在文本框3中显示长方形周长值。要求：在“试题程序”文件夹中打开工程文件，根据给定事件补充完整程序。参考代码：Priva

17、te Sub Command1_Click()Dim a!, b!, C!a = Val(Text1.Text)b = Val(Text2.Text)C = 2 * a + 2 * bText3.Text = CEnd SubVB程序设计货币兑换出题人：王冬梅程序运行,单击窗体：说明：编写程序，当单击窗体时，根据输入框提示输入兑换人民币数和外币种类，将兑换结果显示到窗体上。要求：1.程序必须使用多分支Select Case语句实现；2.数据输入使用InputBox函数，样式如截图所示；3.转换后外币值存入变量S中；4.数据输出使用窗体的Print方法，内容如截图所示。汇率：美元 0.161欧元

18、 0.116日元 16.361注意：部分机器在InputBox输入汉字时显示乱码，这不影响运算结果。参考代码：Private Sub Form_Click()Dim a As Single, S As Single, c As Stringa = InputBox(请输入要兑换的人民币数量, 人民币)c = InputBox(请输入要兑换的币种：美元、欧元、日元, 外币种类)Select Case cCase 美元S = 0.161 * aPrint a; 人民币可兑换 & c & 美元Case 欧元Print a; 人民币可兑换 & c & 欧元S = 0.116 * aCase 日元Pri

19、nt a; 人民币可兑换 & c & 日元S = 16.361 * aEnd SelectEnd SubVB程序设计奇偶判断出题人：蔡国欣程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意一个整数，再判断输入数是奇数还是偶数，最后将结果显示到窗体上。要求：1.数据输入使用InputBox函数，样式如截图所示；2.奇数值存入变量JS1中，偶数值存入变量OS1中；3.数据输出使用窗体的Print方法，内容如截图所示。参考代码：Private Sub Form_Click()Dim a As Integer, JS1 As Integer, OS1 AsIntegera =

20、 InputBox(请输入一个整数, 输入)If a Mod 2 = 1 ThenJS1 = aPrint 此项是奇数ElseOS1 = aPrint 此项是偶数End IfEnd SubVB程序设计三角形面积出题人：柳崧轶程序运行,单击窗体：情况1：情况2：说明：编写程序，当单击窗体时，根据输入框提示输入任意三角形三边长，若输入数据可以构成三角形则计算相应三角形面积；若输入数据不能构成三角形则显示相应提示。将结果显示到窗体上。要求：1.打开“试题程序”文件夹中的工程文件；2.对原有程序进行修改，增加不能构成三角形判断；3.若不能构成三角形输出判断结果，内容如截图所示。提示：构成三角形条件为，

21、任意两边之和大于第三边。参考代码：Private Sub Form_Click()Dim a As Single, b As Single, c As Single, p As Single, s As Singlea = InputBox(请输入边长一, 输入框)b = InputBox(请输入边长二, 输入框)c = InputBox(请输入边长三, 输入框)If a + b c And a + c b And b + c a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Print 三角形的面积是： & sEl

22、sePrint 输入数据不能构成三角形！End IfEnd SubVB程序设计1100求和出题人：柳崧轶程序运行，,单击窗体：说明：编写程序，当单击窗体时，分别计算1100之间的整数和、奇数和与偶数和，将计算结果显示到窗体上。要求：1.1100的整数和存入变量SUM1中；2.1100的奇数和存入变量SUM2中；3.1100的偶数和存入变量SUM3中；4.数据输出使用窗体的Print方法，内容如截图所示。参考代码：Private Sub Form_Click()Dim i As Integer, sum1 As Integer, sum2 As Integer, sum3 As IntegerF

23、or i = 1 To 100sum1 = sum1 + iIf i Mod 2 = 1 Thensum2 = sum2 + iElsesum3 = sum3 + iEnd IfNextPrint 1100的和是： & sum1Print 1100的奇数和是： & sum2Print 1100的偶数和是： & sum3End SubVB程序设计阶乘计算出题人：胡智鹏程序运行,单击窗体：说明：编写程序，当单击窗体时，首先根据输入框提示输入任意一个整数，再计算该整数的阶乘值，最后将结果显示到窗体上。要求：1.数据输入使用InputBox函数，样式如截图所示；2.阶乘值存入变量P中；3.数据输出使用

24、窗体的Print方法，内容如截图所示。参考代码：Private Sub Form_Click()Dim n As Integer, p As Long, i As Integern = InputBox(请输入一个整数, 输入框)p = 1For i = 1 To np = p * iNextPrint n & 的阶乘是： & pEnd SubVB程序设计小猫钓鱼出题人：胡智鹏程序运行,单击窗体：说明：小猫钓鱼，它第一天钓1条鱼，此后每天比前一天多钓3条。问，小猫想钓20条鱼，需要几天？（事件：窗体单击）要求：1.打开“试题程序”文件夹中的工程文件；2.需要天数存入变量X中，总钓鱼数存入变量S

25、UM中；3.程序输出使用Print方法，内容如截图所示。参考代码：Private Sub Form_Click()Dim i As Integer, sum As Integeri = 1sum = 1Do While sum 20sum = sum + 3i = i + 1LoopPrint 小猫共钓鱼 & i & 天，钓到 & sum & 条鱼。End SubVB程序设计数组最大值出题人：胡智鹏程序运行,单击窗体：说明：编写程序，当单击窗体时，将数组元素中的最大值显示到窗体上。要求：1.数组元素使用array函数初始化，数值为：2,4,3,8,5,1；2.数组元素存入数组a( )中；3.最

26、大值存入变量max中；4.数据输出使用窗体的Print方法，内容如截图所示。其中：初始化array函数注意事项：1.初始化数组必须为动态数组；2.初始化数组必须为变体类型。参考代码：Private Sub Form_Click()Dim a(), i As Integer, max As Integera = Array(2, 4, 3, 8, 5, 1)max = a(LBound(a)Print a()=;For i = LBound(a) To UBound(a)Print a(i);If max a(i) Thenmax = a(i)End IfNextPrint Print 数组元素

27、最大值是： & maxEnd SubVB程序设计随机数组出题人：胡智鹏程序运行,单击窗体：说明：编写程序，当单击窗体时，首先定义有10个元素组成的一维数组，数组元素值为19之间随机整数，最后将数组元素输出到窗体上。要求：1.将产生的随机整数存入数组a( ) 中；2.数据输出使用窗体的Print方法，内容如截图所示。其中：随机函数 Rnd（）的初值范围是： 0 , 1 )参考代码：Private Sub Form_Click()Dim a(1 To 10) As Integer, i As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 9 + 1

28、)Print a( & i & )= & a(i)NextEnd SubVB程序设计违章查询出题人：胡智鹏程序运行,单击窗体：说明：编写程序，当单击窗体时，根据输入框提示内容输入查询车牌号码，（如：吉BW6850），确定后显示相应查询车辆的违章记录。（违章1次罚款200元）要求：1.打开“试题程序”文件夹中的工程文件；2.数据输入使用InputBox函数，样式如截图所示；3.需要交纳罚款金额存入变量S中；4.数据输出使用窗体的Print方法，内容如截图所示。参考代码：Private Sub Form_Click()Dim id$, c%, s%, a()a = Array(吉BL5898, 吉

29、B99999, 吉BS7845, 吉BK7026, 吉BW6850, 吉BC1346, 吉BW6850, 吉BS7845, 吉BK7026, 吉BS7845, 吉BK7026, 吉BW6850, 吉BS7845, 吉BW6850, 吉BS7845, 吉BS7845, 吉BK7026, 吉BS7845, 吉BK7026, 吉BL5898, 吉BK7026, 吉BS7845, 吉BL5898, 吉BK7026, 吉BS7845, 吉BK7026, 吉BW6850, 吉BC1346, 吉BW6850, 吉BS7845, 吉BK7026, 吉BS7845, 吉BK7026, 吉BW6850, 吉BS7

30、845, 吉BS7845, 吉BK7026, 吉BW6850, 吉BC1346)id = InputBox(请输入要查询的车牌号码：, 违章记录查询系统, 吉BW6850)For i = LBound(a) To UBound(a)If id = a(i) Then c = c + 1End IfNexts = c * 200Print 尊敬的 车主您好！Print 到目前为止，您共违章 & c & 次。Print 需缴纳罚款 & s & 元人民币。End SubVB程序设计登录框出题人：胡智鹏程序运行：说明：设计如图所示程序界面，当账号文本框失去焦点时判断，若账号不全为数字，则弹出如图所示错

31、误提示，清空账号文本框并将焦点定位到账号文本框以便用户再次输入。程序使用控件如下：窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（CommandButton）2个。 控件属性设置：Form1Caption登录框BorderStyle3Picture素材背景.jpgIcon素材1.icoMouseIcon素材mouse01.icoMousePointer99Label1Label2Caption账号Caption密码ForeColor白色ForeColor白色BackStyle0BackStyle0Font华文楷体、二号Font华文楷体、二号Text1Text2

32、Text“空白”Text“空白”BackColor灰色BackColor灰色Font小三Font小三MaxLength8PasswordChar*Command1Command2Caption登录Caption退出DefaultTrueCancelTrueStyle1Style1BackColor浅蓝色BackColor浅红色Font小三Font小三参考代码：Private Sub Text1_LostFocus()If Not IsNumeric(Text1) Then MsgBox 账号应该为纯数字！, vbExclamation, 提示框 Text1 = Text1.SetFocusEn

33、d IfEnd SubVB程序设计模拟考试出题人：胡智鹏程序运行： 说明：设计如图所示程序，“模拟考试系统”包括选择题和判断题，选择题共1题40分，判断题共2题60分，合计100分。当使用者点击“交卷”按钮时，程序对作答情况进行判断并将结果分数显示到相应位置。要求：1.选择题答案为C，填空题答案为鲁迅、老舍；2.将总分数存入变量S中；3.当分数大于等于60分时，输出图示蓝字结果；4.当分数小于60分时，输出图示红字结果。详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）2个，标签（Label）4个,单选框（OptionButton）4个，文本框（TextBox）2个，按钮（C

34、ommandButton）1个。控件属性设置：Form1Caption模拟考试系统Frame1Caption1.选择题（每题40分，共40分）Font小三Frame2Caption2.填空题（每题30分，共60分）Font小三Label1Caption（1）“李杜文章在，光芒万丈长”中“李杜”是指：Font小三Label2Caption（1）小说阿Q正传的作者是：Font小三Label3Caption（2）小说骆驼祥子的作者是：Font小三Label4Caption“空白”Font小三、加粗、倾斜BackColor白色Option1Option2CaptionA.李白和杜牧CaptionB.李

35、商隐和杜牧Font小三Font小三Option3Option4CaptionC.李白和杜甫CaptionD.李商隐和杜甫Font小三Font小三Text1Text2Text“空白”Text“空白”Font小三Font小三Command1Caption交卷Font小三、隶书参考代码：Private Sub Command1_Click()Dim s As IntegerIf Option3.Value = True Then s = s + 40If Text1 = 鲁迅 Then s = s + 30If Text2 = 老舍 Then s = s + 30If s = 60 Then Lab

36、el4.ForeColor = vbBlue Label4 = 恭喜您！您的成绩是： & s & 分。Else Label4.ForeColor = vbRed Label4 = 很遗憾！您的成绩是： & s & 分。End IfEnd SubVB程序设计组合计算出题人：胡智鹏程序运行：说明：补全程序，当单击窗体时，将组合的值显示到窗体上。要求：1.打开“试题程序”中工程文件，编写代码补全函数fact；2.fact的功能是：计算任意数的阶乘值。其中： 参考代码：Function fact(n%) As LongDim i%fact = 1For i = 1 To n fact = fact *

37、 iNextEnd FunctionPrivate Sub Form_Click()Dim m%, n%, cnm%m = 2n = 4cnm = fact(n) / fact(m) / fact(n - m)Print 组合的值是： & cnmEnd SubVB程序设计菜单编辑器出题人：蔡国欣程序运行界面：说明：设计如图所示窗体界面。详细内容：窗体（Form）1个，标签（Label）6个，文本框（TextBox）4个，按钮（CommandButton）2个，组合框（ComboBox）2个，复选框（CheckBox）4个，列表框（List）1个。控件属性设置：Form1Caption菜单编辑器

38、NameForm26Label1Label2Caption标题(&P):Caption名称(&M):Label3Label4Caption索引(&X):Caption帮助上下文 ID(&H):Label5Label6Caption快捷键(&S):Caption协调位置(&O):Text1Text2Text“空白”Text“空白”Text3Text4Text“空白”Text0Command1Command2Caption确定Caption取消DefaultTrueCancelTrueCheck1Check2Caption复选(&C)Caption有效(&E)Check3Check4Caption

39、可见(&V)Caption显示窗口列表(&W)Combo1Combo2TextCtrl+AText3 - RightList1List菜单列表VB程序设计计算机采购出题人：柳崧轶程序运行前：程序运行后： 说明：设计如图所示程序界面，当“计算机”和“操作系统”未被选定时，他们所在框架中的其他控件不能使用，如果单击“采购清单”按钮，则在下面的标签中显示用户所选择的信息。详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）2个，标签（Label）3个,单选框（OptionButton）2个，复选框（CheckBox）2个，组合框（ComboBox）1个，文本框（TextBox）1个，

40、按钮（CommandButton）1个。控件属性设置：Form1Caption计算机采购Frame1Frame2Caption为空Caption为空Label1Caption品牌Font四号，粗体Label2Caption数量Font四号，粗体Label3Caption为空Font四号，粗体BorderStyle1-Fixed SingleOption1Option2CaptionWindows XPCaptionWindows 7Font四号，粗体Font四号，粗体EnabledFalseEnabledFalseCheck1Check2Caption计算机Caption操作系统Font四号，

41、粗体Font四号，粗体Combo1List联想 戴尔 惠普 宏基Font四号，粗体Text1Text为空Font四号，粗体Command1Caption采购清单Font四号，粗体参考代码：Private Sub Check1_Click()Combo1.Enabled = TrueText1.Enabled = TrueEnd SubPrivate Sub Check2_Click()Option1.Enabled = TrueOption2.Enabled = TrueEnd SubPrivate Sub Command1_Click()If Check1.Value = 1 Then If

42、 Option1.Value = True Then Label3.Caption = Combo1.Text & Text1.Text & 台 & vbCrLf & 安装 & Option1.Caption & 操作系统 ElseIf Option2.Value = True Then Label3.Caption = Combo1.Text & Text1.Text & 台 & vbCrLf & 安装 & Option2.Caption & 操作系统End IfEnd IfEnd SubVB程序设计选项出题人：蔡国欣程序运行界面：说明：设计如图所示窗体界面。详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）1个，标签（Label）2个,单选框（OptionButton）5个，按钮（CommandButton