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

程序运行:

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

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4