VB实践教程第2章-实验.docVIP

实验1 表达式和内部函数的使用 一、实验目的 1．2．3?+?O13 mod 2^2 2）Sqr(3^2?+?4^2) 3）3?+?4+1 2 4）35 OR ba 5）Chr(122)?+?Left(abcd, 3) 6）Year(Now) 1．分析 在VB编程环境，在菜单栏选择“视图”→“立即窗口”，或按快捷键“Ctrl?+?G”，运行立即窗口。在立即窗口中为了观察表达式运算结果，需要在表达式前加“?”号，按回车键后便得到表达式的结果。 2．上述表达式运行结果如图2.2所示。 【例题2.2】 令x?=?3，y?=?4，z?=?5，a?=?Visual Basic，b?=?basic；在立即窗口中输入下列表达式和赋值语句，并观察变量re的输出结果。 1）re= x^2?+?y^2?+?Int(z mod 2) 2）re?=?Chr(2*x*y*z)?+?Right(a,5) 3）re?=?Sqr(x^2?+?y^2)?=?z And Mid(a,7)?=?b 4）re?=?Left(a,1)?+?Space(3)?+?Mid(b,1) 运行结果如图2.3所示。 提示：每输入一行，要按回车键，否则该行语句没有执行。 【例题2.3】 在窗体上添加一个文本框和一个“确定”按钮。要求程序运行后，单击按钮，在窗体上显示文本框输入字符串的第一个字符的ASC码、前3个字符、反串、字符串长度，并判断输入字符串是否是数字字符串，将结果显示在窗体上。程序设计界面如图2.4所示，运行界面如图2.5所示。 图2.4 程序设计界面 图2.5 程序运行界面 1．分析 可使用Mid()函数或Left()函数得到字符串的前3个字符，可使用StrReverse()函数得到反串，判断是否为数字字符串需要IsNumeric()函数。 2．参考程序代码如下： Private Sub Command1_Click() Dim st As String st = Text1.Text If IsNumeric(st)Then MsgBox 输入的是数字字符串 End If a = Asc(st) str1 = Mid(st,1,3) str2 = StrReverse(st) sl = Len(st) Print 输入字符串第一个字符ASC码是: a Print 输入字符串前三个字符是: str1 Print 输入字符串反串是: str2 Print 输入字符串的长度是: sl End Sub 三、实验内容 1．在立即窗口中输入下列表达式，并观察输出结果 （1）3?+?H13 mod 2^2 （2）Int(Rnd * 5 ^ 2)+ 3 （3）Asc(B)?+?4+1 2 （4）Not (a b) （5）Mid(abc, 2)+ String(5, A) （6）Hour(Time) 2．令a?=?2，b?=?5，c?=?2，st?=?；在立即窗口中输入下列表达式和赋值语句，并观察变量re的输出结果。 （1）re= （2）re= （3）re= Mid(st, 5, 3)+ Asc(Z) （4）re= Len(Mid(st, 1)) 9 3．按下列要求，在立即窗口完成相应操作。 （1）令y?=?2012，在立即窗口写出恰当语句判断y是否是闰年。 （2）在立即窗口写出恰当语句，判断系统当前年份是否是3或5的倍数。 4．在窗体上画3个文本框和一个按钮，文本框初始值为空，按钮标题为“计算”。在3个文本框中输入方程 3个系数a，b，c的值。单击按钮，计算方程的实根并显示在窗体上，显示结果精确到小数点后两位。输入值时注意：a≠0且。 程序设计运行界面如图2.6所示。 图2.6 程序设计运行界面 图2. 立即窗口运行结果 图2