VB上机操作题综合(优选.)

最新文件---------------- 仅供参考--------------------已改成-----------word文本 --------------------- 方便更改

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

程序运行前：

程序运行后：

说明：当用户双击窗体任意区域时，播放器窗口最大化。

提示：窗体最大化可使用语句：Form1.windowstate = 2

详细内容：

程序使用控件如下：

窗体（Form）1个。控件属性设置：

Form1

Caption 暴风影音

BackColor 黑色

参考代码：

Private Sub Form_DblClick()

Form1.WindowState = 2

End Sub

VB程序设计—《登录框》

程序运行：

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

详细内容：

程序使用控件如下：

窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（Command Button）2个。

控件属性设置：

Form1

Caption 登录框

Label1 Label2

Caption 用户名Caption 密码

Font 小三Font 小三

Text1 Text2

Text 清空Text 清空

Font 小三Font 小三

MaxLength 6 Passwordchar *

Command1 Command2

Caption 登录Caption 退出

Font 小三Font 小三

VB程序设计—《静夜思》

程序运行：

说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下：

窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。控件属性设置：

Form1 Label1

Caption 诗词记忆练习Caption 静夜思

Font 一号，隶书

Label2 Label3

Caption 床前明月光，Caption 疑是地上霜。Font 小二，隶书Font 小二，隶书Visible False Visible False

Label4 Label5

Caption 举头望明月，Caption 低头思故乡。Font 小二，隶书Font 小二，隶书Visible False Visible False

Command1 Command2

Caption 显示诗句Caption 显示诗句Font 三号Font 三号Command3 Command4

Caption 显示诗句Caption 显示诗句Font 三号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订餐

功能：当单击窗体上的“计算金额”命令按钮时，弹出如图所示消息框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 "您好！您本次消费共计" & S & "元", vbOKOnly, "欢迎使用" End Sub

VB 简单加法计算器

运前运行

运行

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

参考代码：

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程序设计—《字体设置》

程序运行：

详细内容：

程序使用控件如下：

窗体（Form）1个，框架（Frame）2个，标签（Label）4个，组合框（ComboBox）2个，复选框（CheckBox）1个。

控件属性设置：

Form1

Caption 字体

Frame1 Frame2

Caption 字体设置Caption 预览

Label1 Label2

Caption 字体(&T): Caption 大小(&S):

Label3 Label4

Caption 字形(&Y): Caption 北华大学

Font 三号Combo1 Combo2

Text 宋体Text 20

List 宋体

黑体

隶书List 10

20

30

Check1

Caption 加粗

参考代码：

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.电子表具有定时功能如上图所示，在电子表到达预设时间时，程序闪烁闹铃图标并发出提示音。

详细内容：

程序使用控件如下：

窗体（Form）1个，图片框（PictureBox）1个，标签（Label）1个,按钮（CommandButton）2个，计时器（Timer）1个。

控件属性设置：

Form1Picture1

Picture \素材\闹钟.jpg

Caption 电子表

AutoSize True

Label1Timer1

BackColor 浅绿色

ForeColor 深蓝色

Interval 250

Font Arial、初号

参考代码：

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

Picture1.Visible = Not Picture1.Visible

End If

End Sub

VB程序设计—《读心术》

程序运行：

说明：设计读心术小游戏，程序功能如上图中规则所示。

详细内容：

程序使用控件如下：

窗体（Form）1个，图片框（PictureBox）2个，标签（Label）1个,文本框（TextBox）1个，按钮（CommandButton）2个

控件属性设置：

Form1

Caption 读心术

BackColor 白色

Picture \素材\背景.jpg

重要提示：

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

参考代码：

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

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程序设计—《三角形面积》

出题人：胡智鹏

程序运行,单击窗体：

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

要求： 1.数据输入使用InputBox函数，样式如截图所示；

2.面积值存入变量s中；

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

测试数据（边长分别为3、4、5的三角形面积是6）

相关知识：面积公式：)

(*)

(*)

(c

p

b

p

a

p

p

s-

-

-

*

=其中：

2c

b

a

p +

+ =

参考代码：

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("请输入边长二", "输入框"))

c = Val(InputBox("请输入边长三", "输入框"))

p = (a + b + c) / 2

s = Sqr(p * (p - a) * (p - b) * (p - c))

Print "三角形的面积是:" & s

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", "输入框"))

C = 2 * pi * R

S = pi * R * R

Print "周长是" & C

Print "面积是" & S

End Sub

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

出题人：蔡国欣程序运行,单击窗体：

说明：编写程序，在文本框1和文本框2内分别输入长方形两边边长，当单击“计算周长”按钮时，在文本框3中显示长方形周长值。

要求：在“试题程序”文件夹中打开工程文件，根据给定事件补充完整程序。

参考代码：

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程序设计—《货币兑换》

出题人：王冬梅

程序运行,单击窗体：

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

要求： 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; "人民币可兑换" & c & "美元"

Case "欧元"

Print a; "人民币可兑换" & c & "欧元"

S = 0.116 * a

Case "日元"

Print a; "人民币可兑换" & c & "日元"

S = 16.361 * a

End Select

End Sub

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

出题人：蔡国欣程序运行,单击窗体：