Lab1VB.NET编程Lab12—Msgbox的使用和LostFocus事件驱动PublicFunctionMsgBox(Prompt,Buttons,Title)AsMsgBoxResultPrompt必选项。以消息形式显示在对话框中的String表达式。Prompt的最大长度大约为1024个字符，具体取决于所用字符的宽度。如果Prompt中包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))分隔各行。Buttons可选项。数值表达式，它是值的总和，指定显示的按钮数目及按钮类型，使用的图标样式，默认按钮的标识以及消息框的样式等。如果省略Buttons，则默认值为零。Title可选项。显示在对话框标题栏中的String表达式。如果省略Title，则将应用程序名放在标题栏中。MsgBoxMsgBoxPrivateSubTextBox1_LostFocus(…)HandlesTextBox1.LostFocusDimresponseAsMsgBoxResultresponse=MsgBox("请输入信息！",MsgBoxStyle.OkCancel)Ifresponse=MsgBoxResult.OkThenTextBox2.Text="OK"ElseTextBox2.Text="Cancel”EndIfEndSubPrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)IfAsc(e.KeyChar)=13ThenTextBox2.Text="OK"EndIfEndSubKeyPress如何判断输入数值的正确性如果输入了小数、非数字字符该如何处理？IfIsNumeric(Me.TextBox1.Text)=FalseThenMsgBox(“请输入整数！")Me.TextBox1.Clear()EndIfIfInt(Val(Me.TextBox1.Text))<>Val(Me.TextBox1.Text)ThenMsgBox("请输入整数！")Me.TextBox1.Clear()EndIfLab13数值类型的转换Val(TextBox1.Text)→数值类型数据输出格式控制Format(193.2345,“0.00”)→输出结果：193.23TextBox4.Text=y&"+"&x&"i"TextBox5.Text=y&"-"&x&"i"Lab16ListBox和ComboBoxLab16ListBox和ComboBox通过控件属性Items手工赋值Lab16ListBox和ComboBox1.为ListBox和ComboBox赋值2.获取选中的当前值3.清空通过控件属性Items的Add方法编程赋值﹜Lab17多个窗体之间的数据传递创建模块ModuleModule1Publica(10)AsIntegerPublicmax,min,avgAsIntegerEndModulePrivateSubMenuItem2_Click(…)HandlesMenuItem2.ClickDimiAsIntegerReDima(10)'初始化处理n=10'初始化处理avg=0'初始化处理Randomize()TextBox1.Clear()Fori=1To10a(i)=Int(Rnd()*101)TextBox1.Text=TextBox1.Text&a(i)&vbCrLfavg=avg+a(i)Nextavg=avg/10max=a(1)min=a(1)Fori=2To10Ifmax
a(i)Thenmin=a(i)EndIfNextEndSubForm4改...
