VB实验G.docVIP

实验G 实验目的 掌握常用控件的使用 学会使用通用对话框控件进行编程 掌握下拉式菜单和弹出式菜单的设计方法 掌握创建多重窗体程序的有关技术 了解鼠标和键盘事件及其事件过程的编写 综合应用所学的知识，编写具有可视化界面的应用程序 实验内容 设计一个应用程序，能利用LostFocus事件过程对输入的内存大小进行合法性检查，确保最后两个字符是“MB”，其余都是数字字符。当用户单击“OK”按钮后，在右边的文本框中显示所选择的信息。 代码：Private Sub Command1_Click() List1.Clear List1.AddItem Combo1 If Option1 Then List1.AddItem Pentium II If Option2 Then List1.AddItem Pentium I If Option3 Then List1.AddItem Celeron Combo1.AddItem Text1 If Check1 Then List1.AddItem 声卡 If Check2 Then List1.AddItem Modem If Check3 Then List1.AddItem 网络适配器 End Sub Private Sub Text1_LostFocus() st = UCase(Trim(Text1)) le = Len(st) If Not IsNumeric(Left(st, le - 2)) Or Right(st, 2) MB Then MsgBox 有不合法字符！ Text1 = Text1.SetFocus End If End Sub 设计如下图示的计算程序 编写利息计算程序。当通过滚动条改变本金、月份或年利率时，能立即计算出利息及本息合计的值 代码：Private Sub HScroll1_Change() Text1 = VScroll1.Value Text2 = HScroll1.Value Text3 = HScroll2.Value Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), 0.00) Text5 = Format(Val(Text4) + Val(Text1), 0.00) End Sub Private Sub HScroll2_Change() Text1 = VScroll1.Value Text2 = HScroll1.Value Text3 = HScroll2.Value Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), 0.00) Text5 = Format(Val(Text4) + Val(Text1), 0.00) End Sub Private Sub VScroll1_Change() Text1 = VScroll1.Value Text2 = HScroll1.Value Text3 = HScroll2.Value Text4 = Format(Val(Text1) * (Text3 / 100) * (Text2 / 12), 0.00) Text5 = Format(Val(Text4) + Val(Text1), 0.00) End Sub 设计一个带有进度条的倒计时程序，要求倒计时时间是以分为单位输入，以秒为单位显示，进度条指示的是倒数读秒的剩余时间，即填充块数目随时间减少 代码：Dim t As Single Private Sub Command1_Click() t = InputBox(输入倒计时分钟数) t = t * 60 ProgressBar1.Min = 0 ProgressBar1.Max = t ProgressBar1.Value = t End Sub Private Sub Command2_Click() Timer1.Interval = 1000 ProgressBar1.Visible = True End Sub Private Sub Timer1_Timer() Dim m%, s% t = t - 1 ProgressBar1.Value = t m = t \ 60 s = t Mod 60 Label1 = m 分 s 秒 If t = 0 Then MsgBox 时间到！ Timer1.Interval = 0 ProgressBar1.Visible = False End If End Sub 设计一个应用程序，当单击“设置表浅颜色”按钮后，弹出“颜色”