VB上机操作题综合.docxVIP

VB程序设计—《暴风影音》程序运行前：程序运行后：说明：当用户双击窗体任意区域时，播放器窗口最大化。提示：窗体最大化可使用语句：Form1.windowstate = 2详细内容：程序使用控件如下：窗体（Form）1个。控件属性设置：Form1Caption暴风影音BackColor黑色参考代码：Private Sub Form_DblClick()Form1.WindowState = 2End SubVB程序设计—《登录框》程序运行：说明：制作如图所示登录框，其中，用户名限制输入6位长度，密码以“*”号显示。详细内容：程序使用控件如下：窗体（Form）1个，标签（Label）2个，文本框（TextBox）2个，按钮（Command Button）2个。控件属性设置：Form1Caption登录框Label1Label2Caption用户名Caption密码Font小三Font小三Text1Text2Text清空Text清空Font小三Font小三MaxLength6Passwordchar*Command1Command2Caption登录Caption退出Font小三Font小三VB程序设计—《静夜思》程序运行：说明：当用户点击程序中的“显示诗句”按钮时，程序相应位置显示对应诗句. 程序使用控件如下：窗体（Form）1个，标签（Label）5个，按钮（CommandButton）4个。控件属性设置：Form1Label1Caption诗词记忆练习Caption静夜思Font一号，隶书Label2Label3Caption床前明月光，Caption疑是地上霜。Font小二，隶书Font小二，隶书VisibleFalseVisibleFalseLabel4Label5Caption举头望明月，Caption低头思故乡。Font小二，隶书Font小二，隶书VisibleFalseVisibleFalseCommand1Command2Caption显示诗句Caption显示诗句Font三号Font三号Command3Command4Caption显示诗句Caption显示诗句Font三号Font三号参考代码：Private Sub Command1_Click()Label2.Visible = TrueEnd SubPrivate Sub Command2_Click()Label3.Visible = TrueEnd SubPrivate Sub Command3_Click()Label4.Visible = TrueEnd SubPrivate Sub Command4_Click()Label5.Visible = TrueEnd SubPrivate Sub Form_Load()End SubVB订餐运前运行功能：当单击窗体上的“计算金额”命令按钮时，弹出如图所示消息框MsgBox，并显示相应消费金额。参考代码：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integer, S As Integera = Val(Text1)b = Val(Text2)c = Val(Text3)S = 10 * a + 12 * b + 2 * cMsgBox 您好！您本次消费共计 S 元, vbOKOnly, 欢迎使用End SubVB简单加法计算器运行功能：当单击窗体上的命令按钮时，窗体上最右侧文本框输出如图所示运算结果。参考代码：Private Sub Command1_Click()Dim a As Single, b As Single, c As Singlea = Val(Text1)b = Val(Text2)c = a + bText3 = cEnd SubVB程序设计—《字体设置》程序运行：详细内容：程序使用控件如下：窗体（Form）1个，框架（Frame）2个，标签（Label）4个，组合框（ComboBox）2个，复选框（CheckBox）1个。控件属性设置：Form1Caption字体Frame1Frame2Caption字体设置Caption预览Label1Label2Caption字体(T):Caption大小(S):Label3Label4Caption字形(Y):Caption北华大学Font三号Combo1Combo2Text宋体Text20List宋体黑体隶书List102030Check1Caption加粗参考代码：Private Sub Check1_Click()Label4.FontBold = Not Label4.FontBoldEnd SubPrivate Su