实验二VB语言基础及内部函数解析.docVIP

实验二 VB 语言基础及内部函数（4个学时） 一 、实验目的 掌握不同数据类型合法表达式的构成。 掌握各种表达式的优先级别和运算。 掌握内部函数的使用 掌握数据的输入和输出地方法 二 、实验内容 1. 上机验证下表中个表达式的值，并将结果填入表中。 要求：先自行分析上表中表达式的之，再上机到“立即窗口”中验证，如果有错，清分析原因。 表达式 值 表达式 值 10\2.5 “EFG””efg” “ abc“ 10/2.5 Not 5 = 4 And 54*2 8*3+2 Mod 3/2 63*2 Or 7 8 And 8 = 2*4 1012+3 And True And 23 Not 72*4 Or Not 5 2+3 And False 85 Or Not 1012+3 # 10/11/2010# +30 2. 设计一个程序进行选票统计，共有三位候选人(名字自拟)，如果同意某人，就单击一下某人的按钮，在其对应的文本框中显示已得的票数。 1）界面设计 （将设计好的界面截下来粘贴在下面） 2）以表格形式进行属性设置（写出所有非默认属性值的设置） 3）代码设计 Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, x As Single a = Val(Text1.Text) x = a + 1 Text1.Text = x End Sub Private Sub Command2_Click() Dim a As Single, b As Single, c As Single, x As Single a = Val(Text2.Text) x = a + 1 Text2.Text = x End Sub Private Sub Command3_Click() Dim a As Single, b As Single, c As Single, x As Single a = Val(Text3.Text) x = a + 1 Text3.Text = x End Sub 4）调试过程记录（错误情况及改正方法，不得少于三条） 3．设计一个能够进行加、减、乘、除运算的简易计算器。 要求： 首先在两个文本框中输入操作数，然后单击4个运算符按钮，其运行结果显示在一个标签中，当单击“清除”按钮时可清除上次的运算结果，可以进行多次运算。 1) 创建界面（将设计好的界面截下来粘贴在下面） 以表格形式进行属性设置（写出所有非默认属性值的设置） 代码设计 Private Sub Command1_Click() Text3.Text = + End Sub Private Sub Command2_Click() Text3.Text = - End Sub Private Sub Command3_Click() Text3.Text = * End Sub Private Sub Command4_Click() Text3.Text = / End Sub Private Sub Command5_Click() a = Val(Text1.Text) b = Val(Text2.Text) If Text3.Text = + Then Text4.Text = a + b End If If Text3.Text = - Then Text4.Text = a - b End If If Text3.Text = * Then Text4.Text = a * b End If If Text3.Text = / Then Text4.Text = a / b End If 调试过程记录（错误情况及改正方法，不得少于三条） 4. 设计一个程序随机产生一个三位正整数显示在文本框中，然后在另一个文本框中逆序输出。 1) 创建界面（将设计好的界面截下来粘贴在下面） 以表格形式进行属性设置（写出所有非默认属性值的设置） 代码设计 Private Sub Command1_Click() Text1.Text = Int((999 - 100 + 1) * Rnd) + 100 End Sub Private Sub Command2_Click() Text2.Text = StrReverse(Text1.Text) End Sub 调试过程记录（错误情况及改正方法） 5 编写一个可以将两个数据进行交换程序。 要求: 当用户点击“输入”按钮时，清空两个文本框，然后分别在两个文本框中输入任意数据，当用户点击“交换”按钮时，两个数据将被交换。 1）界面设计 （将设计好的界面截下来粘贴在下面） 2