VB上机操作题综合 - 图文(2)

运行

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

参考代码：

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