实验三VB语言基础.docVIP

第 PAGE \* Arabic 5 页第 PAGE \* Arabic 5 页 实验三 Visual Basic语言基础 （4学时） 一、实验目的与要求： 1、掌握数据类型的使用方法 2、掌握变量与常量的命名、定义和书写方式； 3、掌握常用函数的使用方法； 4、掌握表达式的使用方法； 二、实验内容： 1、上机验证下表中每个表达式的值，并将结果填入表中。 要求：先自行分析表中表达式的值，再上机到“立即窗口”中或者自己设计程序验证，如果结果与自己分析的结果有出入，请分析原因。 表达式 结果 表达式 结果 10\2.5 5 85 or not 1012+3 True 10/2.5 4 EFGefg abc True 8*3+2 mod 3/2 24 Not 5=4 And 54*2 True 1012+3 and True and 23 False 62*3 or 78 and 8=2*4 not 72*4 or not 52+3 and False True #10/11/2010#+30 分析结果：10\2.5：表示整除，Text1.Text =10\2.5 Text1.Text =10/2.5 Text1.Text =8*3+2 mod 3/2 Text1.Text =1012+3 and True and 23 Text1.Text = not 72*4 or not 52+3 and False 2、上机验证下表中每个表达式的值，并将结果填入表中。 要求：先自行分析表中表达式的值，再上机到“立即窗口”中验证，如果结果与自己分析的结果有出入，请分析原因。 语句 运行结果 语句 运行结果 print chr$(65) print fix(-3.5) Print asc(“B”) Print int(-3.5) Print str$(123.45) Print round(-3.5) Print val(“123AB”) Print hex(100) Print Lcase(“ABC”) Print oct(100) Print Ucase(“abc”) 3、请编写程序完成简单的四则运算，界面如下： 界面说明： 1）在窗体上放置3个文本框，2个用于输入，1个用于输出； 2）窗体上有4个命令按钮，标题分别为“+”、“-”、“*”和“/”； 3）窗体上有2个标签，其中Label1标题与4个命令按钮单击时的标题一致（当单击“+”按钮时，Label1标题为“+”，单击“*”按钮时，Label1标题为“*”）；另一个标签Label2标题为“=”。 编写代码：程序运行后，单击4个命令按钮，分别用于加、减、乘、除运算。 Option Explicit Private Sub Command1_Click() Label1.Caption = + Dim intx%, inty%, intz% intx = Text1.Text inty = Text2.Text intz = intx + inty Text3.Text = intz End Sub Private Sub Command2_Click() Label1.Caption = - Dim intx%, inty%, intz% intx = Text1.Text inty = Text2.Text intz = intx - inty Text3.Text = intz End Sub Private Sub Command3_Click() Label1.Caption = * Dim intx%, inty%, intz% intx = Text1.Text inty = Text2.Text intz = intx * inty Text3.Text = intz End Sub Private Sub Command4_Click() Label1.Caption = / Dim intx%, inty%, intz% intx = Text1.Text inty = Text2.Text intz = intx / inty Text3.Text = intz End Sub 4、设计程序，界面如下。程序运行后，单击确定按钮，随机产生一个3位整数放在Text1中，并在Text2中生成其逆序数。 方法：把原数用取整和取余的方法，取出其3位数字存放在a,b,c三个变量中，则逆序数为c*100+b*10+a。