VB上机操作题综合 - 图文

更新时间:2024-04-12 19:30:02 阅读量: 综合文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

VB程序设计—《暴风影音》

程序运行前:

程序运行后:

说明:当用户双击窗体任意区域时,播放器窗口最大化。 提示:窗体最大化可使用语句:Form1.windowstate = 2 详细内容:

程序使用控件如下:

窗体(Form)1个。 控件属性设置:

Form1 Caption BackColor

暴风影音 黑色

1 / 44

参考代码:

Private Sub Form_DblClick() Form1.WindowState = 2 End Sub

VB程序设计—《登录框》

程序运行:

说明:制作如图所示登录框,其中,用户名限制输入6位长度,密码以“*”号显示。

详细内容:

程序使用控件如下:

窗体(Form)1个,标签(Label)2个,文本框(TextBox)2个,按钮(Command Button)2个。 控件属性设置:

Form1 Caption Label1 Caption Font Text1 Text

登录框 用户名 小三 清空

Label2 Caption Font Text2 Text

2 / 44

密 码 小三 清空

Font

MaxLength Command1 Caption Font

小三 6 登录 小三

Font

Passwordchar Command2 Caption Font

小三 *

退出 小三

VB程序设计—《静夜思》

程序运行:

说明:当用户点击程序中的“显示诗句”按钮时,程序相应位置显示对应诗句.

程序使用控件如下:

窗体(Form)1个,标签(Label)5个,按钮(CommandButton)4个。 控件属性设置:

Form1 Caption Label2 Caption Font Visible

诗词记忆练习

床前明月光, 小二,隶书 False

Label1 Caption Font Label3 Caption Font Visible

静夜思 一号,隶书 疑是地上霜。 小二,隶书 False

Label4 Caption Font Visible Command1

举头望明月, 小二,隶书 False

Label5 Caption Font Visible Command2

3 / 44

低头思故乡。 小二,隶书 False

Caption Font Command3 Caption Font

显示诗句 三号 显示诗句 三号

Caption Font Command4 Caption Font

显示诗句 三号 显示诗句 三号

参考代码:

Private Sub Command1_Click() Label2.Visible = True End Sub

Private Sub Command2_Click() Label3.Visible = True End Sub

Private Sub Command3_Click() Label4.Visible = True End Sub

Private Sub Command4_Click() Label5.Visible = True End Sub

Private Sub Form_Load() End Sub

VB订餐

4 / 44

运前 运行

功能:当单击窗体上的“计算金额”命令按钮时,弹出如图所示消息框MsgBox,并显示相应消费金额。

参考代码:

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, d As Integer, S As Integer a = Val(Text1) b = Val(Text2) c = Val(Text3)

S = 10 * a + 12 * b + 2 * c

MsgBox \您好!您本次消费共计\元\欢迎使用\End Sub

VB简单加法计算器

5 / 44

运行

功能:当单击窗体上的命令按钮时,窗体上最右侧文本框输出如图所示运算结果。

参考代码:

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single a = Val(Text1) b = Val(Text2) c = a + b Text3 = c End Sub

VB程序设计—《字体设置》

程序运行:

6 / 44

详细内容:

程序使用控件如下:

窗体(Form)1个,框架(Frame)2个,标签(Label)4个,组合框(ComboBox)2个,复选框(CheckBox)1个。

控件属性设置:

Form1 Caption Frame1 Caption Label1 Caption Label3 Caption

字体 字体设置 字体(&T): 字形(&Y):

Frame2 Caption Label2 Caption Label4 Caption Font Combo2 Text List

预览 大小(&S): 北华大学 三号

Combo1 Text List

宋体 宋体 黑体 隶书 加粗

20 10 20 30

Check1 Caption

参考代码:

7 / 44

Private Sub Check1_Click()

Label4.FontBold = Not Label4.FontBold End Sub

Private Sub Combo1_Click() Label4.FontName = Combo1.Text End Sub

Private Sub Combo2_Click() Label4.FontSize = Combo2.Text End Sub

VB程序设计—《电子表》

出题人:柳崧轶

程序运行:

说明:设计电子表程序实现如下功能:1.电子表能根据系统自动显示当前时间;2.电子表具有定时功能如上图所示,在电子表到达预设时间时,程序闪烁闹铃图标并发出提示音。

详细内容: 程序使用控件如下:

8 / 44

窗体(Form)1个,图片框(PictureBox)1个,标签(Label)1个,按钮(CommandButton)2个,计时器(Timer)1个。 控件属性设置:

Form1 Caption Label1 BackColor ForeColor Font 电子表 浅绿色 深蓝色 Arial、初号 Picture1 Picture AutoSize Timer1 Interval Command2 Caption Font 250 \\素材\\闹钟.jpg True Command1 Caption 定时 Font 楷体、三号 关闭 楷体、三号 参考代码:

Dim tx As Date

Private Sub Command1_Click()

Tx = InputBox(\请输入闹铃时间,如8:00\闹钟设置\End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() End Sub

Private Sub Timer1_Timer() Label2.Caption = Time If tx = Label2.Caption Then Beep

9 / 44

Picture1.Visible = Not Picture1.Visible End If End Sub

VB程序设计—《读心术》

程序运行:

说明:设计读心术小游戏,程序功能如上图中规则所示。 详细内容: 程序使用控件如下:

窗体(Form)1个,图片框(PictureBox)2个,标签(Label)1个,文本框(TextBox)1个,按钮(CommandButton)2个 控件属性设置:

Form1 Caption

读心术 10 / 44

BackColor Picture Label1 Caption ForeColor Font BackStyle Picture1 Picture AutoSize 白色 \\素材\\背景.jpg 看穿你的心声 深紫色 华文行楷、小一、加粗倾斜 Text 0 \\素材\\0.jpg True Text1 MultiLine Font True 幼圆、小四 如上图所示 Picture2 Picture AutoSize Command2 Caption Font \\素材\\00.jpg True 显示结果 隶书、小三 Command1 Caption 开始测试 Font 隶书、小三 重要提示:

由于程序运行过程中要加载图片,因此请将素材文件夹复制到程序存储根目录中。

参考代码:

Private Sub Command1_Click()

Picture2.Picture = LoadPicture(App.Path & \素材\\00.jpg\Randomize r = Int(Rnd * 4 + 1) Select Case r Case 1

Picture1.Picture = LoadPicture(App.Path & \素材\\1.jpg\Case 2

Picture1.Picture = LoadPicture(App.Path & \素材\\2.jpg\Case 3

11 / 44

Picture1.Picture = LoadPicture(App.Path & \素材\\3.jpg\Case 4

Picture1.Picture = LoadPicture(App.Path & \素材\\4.jpg\End Select End Sub

Private Sub Command2_Click() Command1.Caption = \再来一次\Select Case r Case 1

Picture2.Picture = LoadPicture(App.Path & \素材\\11.jpg\Case 2

Picture2.Picture = LoadPicture(App.Path & \素材\\22.jpg\Case 3

Picture2.Picture = LoadPicture(App.Path & \素材\\33.jpg\Case 4

Picture2.Picture = LoadPicture(App.Path & \素材\\44.jpg\End Select End Sub

VB程序设计—《三角形面积》

出题人:胡智鹏

程序运行,单击窗体:

12 / 44

说明:编写程序,当单击窗体时,首先根据输入框提示输入任意三角形三边长,再计算相应三角形面积,最后将计算结果显示到窗体上。 要求:

1.数据输入使用InputBox函数,样式如截图所示; 2.面积值存入变量s中;

2.数据输出使用窗体的Print方法,内容如截图所示。 测试数据(边长分别为3、4、5的三角形面积是6)

相关知识:面积公式:s?p?(p?a)*(p?b)*(p?c) 其中:

p?a?b?c 2

参考代码:

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single, p As Single, s As Single a = Val(InputBox(\请输入边长一\输入框\b = Val(InputBox(\请输入边长二\输入框\

13 / 44

c = Val(InputBox(\请输入边长三\输入框\p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c)) Print \三角形的面积是:\End Sub

VB程序设计—《圆周长面积》

出题人:蔡国欣

程序运行,单击窗体:

说明:编写程序,当单击窗体时,首先根据输入框提示输入任意圆半径,再计算相应圆的周长和面积,最后将计算结果显示到窗体上。

要求:

1.数据输入使用InputBox函数,样式如截图所示; 2.周长值存入变量c中,面积值存入变量s中; 2.数据输出使用窗体的Print方法,内容如截图所示。

程序中π取3.14

参考代码:

Private Sub Form_Click()

Dim R As Single, C As Single, S As Single pi = 3.14

R = Val(InputBox(\请输入半径R\输入框\

14 / 44

C = 2 * pi * R S = pi * R * R Print \周长是\Print \面积是\End Sub

VB程序设计—《长方形周长》

出题人:蔡国欣

程序运行,单击窗体:

说明:编写程序,在文本框1和文本框2内分别输入长方形两边边长,当单击“计算周长”按钮时,在文本框3中显示长方形周长值。 要求:在“试题程序”文件夹中打开工程文件,根据给定事件补充完整程序。

15 / 44

参考代码:

Private Sub Command1_Click() Dim a!, b!, C! a = Val(Text1.Text) b = Val(Text2.Text) C = 2 * a + 2 * b Text3.Text = C End Sub

VB程序设计—《货币兑换》

出题人:王冬梅

程序运行,单击窗体:

16 / 44

说明:编写程序,当单击窗体时,根据输入框提示输入兑换人民币数和外币种类,将兑换结果显示到窗体上。 要求:

1.程序必须使用多分支Select Case语句实现; 2.数据输入使用InputBox函数,样式如截图所示;

3.转换后外币值存入变量S中;

4.数据输出使用窗体的Print方法,内容如截图所示。

汇率:美元—— 0.161 欧元—— 0.116 日元—— 16.361

注意:部分机器在InputBox输入汉字时显示乱码,这不影响运算结果。

参考代码:

Private Sub Form_Click()

Dim a As Single, S As Single, c As String

a = InputBox(\请输入要兑换的人民币数量\人民币\

c = InputBox(\请输入要兑换的币种:美元、欧元、日元\外币种类\Select Case c Case \美元\S = 0.161 * a

Print a; \人民币可兑换\美元\Case \欧元\

17 / 44

Print a; \人民币可兑换\欧元\S = 0.116 * a Case \日元\

Print a; \人民币可兑换\日元\S = 16.361 * a End Select End Sub

VB程序设计—《奇偶判断》

出题人:蔡国欣

程序运行,单击窗体:

说明:编写程序,当单击窗体时,首先根据输入框提示输入任意一个整数,再判断输入数是奇数还是偶数,最后将结果显示到窗体上。

要求:

1.数据输入使用InputBox函数,样式如截图所示; 2.奇数值存入变量JS1中,偶数值存入变量OS1中; 3.数据输出使用窗体的Print方法,内容如截图所示。

参考代码:

18 / 44

Private Sub Form_Click()

Dim a As Integer, JS1 As Integer, OS1 AsInteger a = InputBox(\请输入一个整数\输入\If a Mod 2 = 1 Then JS1 = a

Print \此项是奇数\Else OS1 = a

Print \此项是偶数\End If End Sub

VB程序设计—《三角形面积》

出题人:柳崧轶

程序运行,单击窗体: 情况1:

19 / 44

情况2:

说明:编写程序,当单击

窗体时,根据输入框提示输入任意三角形三边长,若输入数据可以构成三角形则计算相应三角形面积;若输入数据不能构成三角形则显示相应提示。将结果显示到窗体上。 要求:

1.打开“试题程序”文件夹中的工程文件;

2.对原有程序进行修改,增加不能构成三角形判断; 3.若不能构成三角形输出判断结果,内容如截图所示。

提示:构成三角形条件为,任意两边之和大于第三边。

20 / 44

参考代码:

Private Sub Form_Click()

Dim a As Single, b As Single, c As Single, p As Single, s As Single a = InputBox(\请输入边长一\输入框\b = InputBox(\请输入边长二\输入框\c = InputBox(\请输入边长三\输入框\If a + b > c And a + c > b And b + c > a Then p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c)) Print \三角形的面积是:\Else

Print \输入数据不能构成三角形!\End If End Sub

VB程序设计—《1~100求和》

出题人:柳崧轶

程序运行,,单击窗体:

说明:编写程序,当单击窗体时,分别计算1~100之间的整数和、奇

21 / 44

数和与偶数和,将计算结果显示到窗体上。 要求:

1.1~100的整数和存入变量SUM1中; 2.1~100的奇数和存入变量SUM2中;

3.1~100的偶数和存入变量SUM3中;

4.数据输出使用窗体的Print方法,内容如截图所示。

参考代码:

Private Sub Form_Click()

Dim i As Integer, sum1 As Integer, sum2 As Integer, sum3 As Integer For i = 1 To 100 sum1 = sum1 + i If i Mod 2 = 1 Then sum2 = sum2 + i Else

sum3 = sum3 + i End If Next

Print \的和是:\Print \的奇数和是:\Print \的偶数和是:\End Sub

VB程序设计—《阶乘计算》

出题人:胡智鹏

22 / 44

程序运行,单击窗体:

说明:编写程序,当单击窗体时,首先根据输入框提示输入任意一个整数,再计算该整数的阶乘值,最后将结果显示到窗体上。

要求:

1.数据输入使用InputBox函数,样式如截图所示; 2.阶乘值存入变量P中;

3.数据输出使用窗体的Print方法,内容如截图所示。

参考代码:

Private Sub Form_Click()

Dim n As Integer, p As Long, i As Integer n = InputBox(\请输入一个整数\输入框\p = 1 For i = 1 To n p = p * i Next

23 / 44

Print n & \的阶乘是:\End Sub

VB程序设计—《小猫钓鱼》

出题人:胡智鹏

程序运行,单击窗体:

说明:小猫钓鱼,它第一天钓1条鱼,此后每天比前一天多钓3条。问,小猫想钓20条鱼,需要几天?(事件:窗体单击)

要求:

1.打开“试题程序”文件夹中的工程文件;

2.需要天数存入变量X中,总钓鱼数存入变量SUM中; 3.程序输出使用Print方法,内容如截图所示。

参考代码:

Private Sub Form_Click() Dim i As Integer, sum As Integer i = 1 sum = 1

Do While sum < 20 sum = sum + 3

24 / 44

i = i + 1 Loop

Print \小猫共钓鱼\天,钓到\条鱼。\End Sub

VB程序设计—《数组最大值》

出题人:胡智鹏

程序运行,单击窗体:

说明:编写程序,当单击窗体时,将数组元素中的最大值显示到窗体上。 要求:

1.数组元素使用array函数初始化,数值为:{2,4,3,8,5,1}; 2.数组元素存入数组a( )中; 3.最大值存入变量max中;

4.数据输出使用窗体的Print方法,内容如截图所示。

其中:初始化array函数注意事项:

1.初始化数组必须为动态数组; 2.初始化数组必须为变体类型。

参考代码:

Private Sub Form_Click()

Dim a(), i As Integer, max As Integer

25 / 44

a = Array(2, 4, 3, 8, 5, 1) max = a(LBound(a)) Print \

For i = LBound(a) To UBound(a) Print a(i); If max < a(i) Then max = a(i) End If Next Print \

Print \数组元素最大值是:\End Sub

VB程序设计—《随机数组》出题人:胡智鹏

程序运行,单击窗体:

说明:编写程序,当单击窗体时,首先定义有10个元素组成的一维数组,数组元素值为1~9之间随机整数,最后将数组元素输出到窗体

26 / 44

上。 要求:

1.将产生的随机整数存入数组a( ) 中;

2.数据输出使用窗体的Print方法,内容如截图所示。

其中:随机函数 Rnd()的初值范围是:[ 0 , 1 )

参考代码:

Private Sub Form_Click()

Dim a(1 To 10) As Integer, i As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 9 + 1) Print \Next End Sub

VB程序设计—《违章查询》

出题人:胡智鹏

程序运行,单击窗体:

27 / 44

说明:编写程序,当单击窗体时,根据输入框提示内容输入查询车牌号码,(如:吉BW6850),确定后显示相应查询车辆的违章记录。(违章1次罚款200元)

要求:

1.打开“试题程序”文件夹中的工程文件; 2.数据输入使用InputBox函数,样式如截图所示;

3.需要交纳罚款金额存入变量S中;

4.数据输出使用窗体的Print方法,内容如截图所示。

参考代码:

Private Sub Form_Click() Dim id$, c%, s%, a()

a = Array(\吉BL5898\\吉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\吉BS7845\吉BS7845\\吉BK7026\吉BW6850\吉BC1346\

id = InputBox(\请输入要查询的车牌号码:\违章记录查询系统\吉BW6850\For i = LBound(a) To UBound(a) If id = a(i) Then c = c + 1 End If

28 / 44

Next s = c * 200

Print \尊敬的 < \车主您好!\Print \到目前为止,您共违章\次。\Print \需缴纳罚款\元人民币。\End Sub

VB程序设计—《登录框》

出题人:胡智鹏

程序运行:

说明:设计如图所示程序界面,当账号文本框失去焦点时判断,若账号不全为数字,则弹出如图所示错误提示,清空账号文本框并将焦点定位到账号文本框以便用户再次输入。

程序使用控件如下:

窗体(Form)1个,标签(Label)2个,文本框(TextBox)2个,按钮(CommandButton)2个。 控件属性设置: Form1 Caption BorderStyle Picture Icon MouseIcon

登录框 3 \\素材\\背景.jpg \\素材\\1.ico \\素材\\mouse01.ico 29 / 44

MousePointer Label1 Caption ForeColor BackStyle Font Text1 Text BackColor Font MaxLength Command1 Caption Default Style BackColor Font 99 账号 白色 0 华文楷体、二号 “空白” 灰色 小三 8 登录 True 1 浅蓝色 小三 Label2 Caption ForeColor BackStyle Font Text2 Text BackColor Font PasswordChar Command2 Caption Cancel Style BackColor Font 密码 白色 0 华文楷体、二号 “空白” 灰色 小三 * 退出 True 1 浅红色 小三 参考代码:

Private Sub Text1_LostFocus() If Not IsNumeric(Text1) Then

MsgBox \账号应该为纯数字!\提示框\ Text1 = \ Text1.SetFocus End If End Sub

VB程序设计—《模拟考试》

出题人:胡智鹏

程序运行:

30 / 44

说明:设计如图所示程序,“模拟考试系统”包括选择题和判断题,选择题共1题40分,判断题共2题60分,合计100分。当使用者点击“交卷”按钮时,程序对作答情况进行判断并将结果分数显示到相应位置。

要求:

1.选择题答案为C,填空题答案为鲁迅、老舍; 2.将总分数存入变量S中;

3.当分数大于等于60分时,输出图示蓝字结果;

31 / 44

4.当分数小于60分时,输出图示红字结果。

详细内容:

程序使用控件如下:

窗体(Form)1个,框架(Frame)2个,标签(Label)4个,单选框(OptionButton)4个,文本框(TextBox)2个,按钮(CommandButton)1个。

控件属性设置:

Form1 Caption Frame1 Caption Font Frame2 Caption Font Label1 Caption Font Label2 Caption Font Label3 Caption Font Label4 Caption Font BackColor Option1 Caption Font Option3 Caption Font Text1 Text Font Command1 Caption

模拟考试系统 1.选择题(每题40分,共40分) 小三 2.填空题(每题30分,共60分) 小三 (1)“李杜文章在,光芒万丈长”中“李杜”是指: 小三 (1)小说《阿Q正传》的作者是: 小三 (2)小说《骆驼祥子》的作者是: 小三 “空白” 小三、加粗、倾斜 白色 A.李白和杜牧 小三 C.李白和杜甫 小三 “空白” 小三 交卷 32 / 44

Option2 Caption Font Option4 Caption Font Text2 Text Font B.李商隐和杜牧 小三 D.李商隐和杜甫 小三 “空白” 小三 Font 小三、隶书

参考代码:

Private Sub Command1_Click() Dim s As Integer

If Option3.Value = True Then s = s + 40 If Text1 = \鲁迅\If Text2 = \老舍\If s >= 60 Then

Label4.ForeColor = vbBlue

Label4 = \恭喜您!您的成绩是:\分。\Else

Label4.ForeColor = vbRed

Label4 = \很遗憾!您的成绩是:\分。\End If End Sub

VB程序设计—《组合计算》

出题人:胡智鹏

程序运行:

33 / 44

说明:补全程序,当单击窗体时,将组合C42的值显示到窗体上。 要求:

1.打开“试题程序”中工程文件,编写代码补全函数fact; 2.fact的功能是:计算任意数的阶乘值。

其中:

参考代码:

Dim i% fact = 1 For i = 1 To n fact = fact * i Next End Function

m!C?n!(n?m)!mnFunction fact(n%) As Long

Private Sub Form_Click() Dim m%, n%, cnm% m = 2

34 / 44

n = 4

cnm = fact(n) / fact(m) / fact(n - m) Print \组合的值是:\End Sub

VB程序设计—《菜单编辑器》

出题人:蔡国欣

程序运行界面:

说明:设计如图所示窗体界面。 详细内容:

窗体(Form)1个,标签(Label)6个,文本框(TextBox)4个,按钮(CommandButton)2个,组合框(ComboBox)2个,复选框(CheckBox)4个,列表框(List)1个。 控件属性设置:

35 / 44

Form1 Caption Name Label1 Caption Label3 Caption Label5 Caption Text1 Text Text3 Text Command1 Caption Default Check1 Caption Check3 Caption Combo1 Text List1 List

菜单编辑器 Form26 标题(&P): 索引(&X): 快捷键(&S): “空白” “空白” 确定 True 复选(&C) 可见(&V) Ctrl+A 菜单列表

Label2 Caption Label4 Caption Label6 Caption Text2 Text Text4 Text Command2 Caption Cancel Check2 Caption Check4 Caption Combo2 Text

名称(&M):

帮助上下文 ID(&H): 协调位置(&O): “空白” 0 取消 True 有效(&E)

显示窗口列表(&W) 3 - Right

VB程序设计—《计算机采购》

出题人:柳崧轶

程序运行前:

36 / 44

程序运行后:

说明:设计如图所示程序界面,当“计算机”和“操作系统”未被选定时,他们所在框架中的其他控件不能使用,如果单击“采购清单”按钮,则在下面的标签中显示用户所选择的信息。

详细内容:

程序使用控件如下:

37 / 44

窗体(Form)1个,框架(Frame)2个,标签(Label)3个,单选框(OptionButton)2个,复选框(CheckBox)2个,组合框(ComboBox)1个,文本框(TextBox)1个,按钮(CommandButton)1个。

控件属性设置:

Form1 Caption Frame1 Caption Label1 Caption Font Label2 Caption Font Label3 Caption Font BorderStyle Option1 Caption Font Enabled Check1 Caption Font Combo1 List Font Text1 Text Font Command1 Caption Font 计算机采购 为空 品牌 四号,粗体 数量 四号,粗体 为空 四号,粗体 1-Fixed Single Windows XP 四号,粗体 False 计算机 四号,粗体 联想 戴尔 惠普 宏基 四号,粗体 为空 四号,粗体 采购清单 四号,粗体 Option2 Caption Font Enabled Check2 Caption Font Windows 7 四号,粗体 False 操作系统 四号,粗体 Frame2 Caption 为空 参考代码:

Private Sub Check1_Click() Combo1.Enabled = True Text1.Enabled = True End Sub

Private Sub Check2_Click()

38 / 44

Option1.Enabled = True Option2.Enabled = True End Sub

Private Sub Command1_Click() If Check1.Value = 1 Then

If Option1.Value = True Then

Label3.Caption = Combo1.Text & Text1.Text & \台\安装\操作系统\ ElseIf Option2.Value = True Then

Label3.Caption = Combo1.Text & Text1.Text & \台\安装\操作系统\End If End If End Sub

VB程序设计—《选项》

出题人:蔡国欣

程序运行界面:

说明:设计如图所示窗体界面。

详细内容:

程序使用控件如下:

39 / 44

窗体(Form)1个,框架(Frame)1个,标签(Label)2个,单选框(OptionButton)5个,按钮(CommandButton)1个。 控件属性设置:

Form1 Caption Name Frame1 Caption Label1 Caption Label2 Caption Option1 Caption Option2 Caption Option3 Caption Value Option4 Caption Option5 Caption Command1 Caption

选项 Form24 操作系统

您选中了一个 Pentium Pro 运行在 Windows 95 选择处理器和操作系统 486(&4) Pentium(&P) Pentium Pro(&E) True

Windows 95(&W) Windows NT(&N) 关闭(&C)

VB程序设计—《VB菜单》

出题人:胡智鹏

程序运行界面:

40 / 44

说明:设计如图所示窗体界面。

详细内容:

1.窗体设置:

标题(Caption):工程1 - Microsoft Visual Basic [设计]

2.菜单设置:

主菜单——文件:

标题:文件(&F)

名称:mFile 名称:mmNew

快捷键:Ctrl + N 快捷键:Ctrl + O

菜单项——新建工程:

标题:新建工程(&N) 菜单项——打开工程:

标题:打开工程(&O)… 名称:mmOpen 菜单项——生成工程组:

标题:生成工程组(&G)…名称:mmCreate 有效:否 标题:退出(&X) 标题:编辑(&E) 标题:视图(&V)

名称:mmQuit 名称:mEdit 名称:mView

菜单项——退出:

主菜单——编辑: 主菜单——视图:

VB程序设计—《我的电脑》

出题人:胡智鹏

程序运行界面:

41 / 44

说明:设计如图所示窗体界面。 详细内容:

1.窗体设置:

标题(Caption):我的电脑

2.菜单设置:

主菜单——文件:

标题:文件(&F) 标题:编辑(&E) 标题:查看(&V)

名称:mFile 名称:mEdit 名称:mView 名称:mmTool

名称:mmmStandard 复选:是

主菜单——编辑: 主菜单——查看:

菜单项——工具栏:

标题:工具栏(&T)

标题:标准按钮(&S) 子菜单项——标准按钮:

子菜单项——链接:

标题:链接(&L)

名称:mmmLink

子菜单项——自定义:

标题:自定义(&C)…

名称:mmmCustom

菜单项——状态栏:

标题:状态栏(&B) 标题:浏览器栏(&E)

名称:mmStatus

复选:是

菜单项——浏览器栏:

名称:mmExplorer

菜单项——刷新:

42 / 44

标题:刷新(&R) 名称:mmRefresh

VB程序设计—《字体》

出题人:蔡国欣

程序运行界面:

说明:设计如图所示窗体界面。

详细内容:

程序使用控件如下:

窗体(Form)1个,标签(Label)6个,组合框(ComboBox)3个,复选框(CheckBox)2个,文本框(Text)1个,按钮(CommandButton)2个。

控件属性设置:

Form1 Caption Name Label1 Caption BorderStyle Label2 Caption Label5 Caption Combo1 Text

字体 Form22 字体 1 字符间距 间距 75% Label3 Caption BorderStyle Label4 Caption Label6 Caption Combo2 Text 43 / 44

文字效果 1 缩放 位置 加宽 Combo3 Text Command1 Caption Check1 Caption Check2 Caption

提升 确定

调整字体的字间距

Text1 Text Command2 Caption

12 取消

如果定义了网格,则对齐网格

网络教学平台:http://59.72.128.9:7001/homework

44 / 44

本文来源:https://www.bwwdw.com/article/hc0p.html

Top