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