实验四 VB语言基础
4.1 知识要点
1.
标准
excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载
数据类型
标准数据类型是系统定义的数据类型。主要包括:Integer(整型)、 Long(长整型)、Single(单精度型)、 Double(双精度型)、Currency(货币型)、字节型(Byte)、字符型(String)、布尔型(Boolean)、日期型(Date)、变体类型(Variant)、对象类型(Object)
2 常量
(1)直接常量:数值常量、字符串常量、日期常量、布尔常量等。例如:123,12E-5(单精度常量)、True(布尔常量),#11/18/1965#(日期常量),-8.57326D-45(双精度型常量),“Visual Basic”(字符常量)。
(2)符号常量:也叫自定义常量。其语法为:
[ Public | Private ] Const 符号常量名 [As 数据类型] =
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
达式
(3)系统常量:系统提供的常量。比如 vbRed代表红色。
3 变量
变量是用来存储值的所在处,每个变量都有惟一的名字标识和确定变量能够存储的数据的数据类型。
显式声明变量的语法为:Dim|Private|Static|Public 变量名 [As 类型]
隐式声明的变量都是Variant类型的,相当于显式声明中的Dim x语句。
强制声明变量语句是: Option Explicit
4 运算符与表达式
VB的运算符号包括算术运算符、关系运算符、连接运算符、逻辑运算符以及日期运算符等。表达式的数据类型是通过数据和运算符共同决定的。表达式中的括号最优先计算;当一个表达式中有多种类型的运算符时,它们的优先级按照从高到低排列顺序为:
算术运算符、字符串运算符、关系运算符、布尔运算符
5 常用内部函数
VB中的内部函数包括数学函数、字符函数、日期与时间函数、类型转换函数、判断函数\格式输出函数Format等等。
6 编码规则
4.2 实验目的
(1)掌握VB常量、变量、表达式的定义与使用以及VB常用函数的使用方法。
(2)了解VB的代码编写方法。
4.3 实验参考题
【参考题4-1】输入角度计算并显示其正弦、余弦、正切、余切值。用户界面如图4-1所示,属性设置如表4-1所示。
SHAPE \* MERGEFORMAT
该程序首先在文本框Text1中输入角度,单击按钮Command1进行三角函数的运算,将结果显示在Text2~Text4中。
代码中先声明变量,输入角度变量x和三角函数值变量a、b、c、d;然后从文本框输入数据,将文本框的字符串型数据用Val函数转换为数值型;再进行三角函数的运算;最后将计算的结果显示在各文本框中。由于三角函数和角度都可以有小数,因此使用Single型。
另外,由于三角函数使用的都是弧度,因此必须转换为角度。余切没有专门函数,用正切来求。
Private Sub Command1_Click()
Dim x As Single
Dim a As Single, b As Single, c As Single, d As Single
x = Val(Text1.Text)
a = Sin(x * 3.1415926 / 180)
b = Cos(x * 3.1415926 / 180)
c = Tan(x * 3.1415926 / 180)
d = 1 / c
Text2.Text = a
Text3.Text = b
Text4.Text = c
Text5.Text = d
End Sub
本例题完成后,请继续进行如下练习:
(1)使用VB的书写
规范
编程规范下载gsp规范下载钢格栅规范下载警徽规范下载建设厅规范下载
· 给程序语句后面添加注释。
· 将多行语句放在一行上或者将一行长语句分成两行。
(2)使用符号常量
在程序中多处使用到常量3.14和180,可以使用符号常量来表示。Const PI = 3.1415926, Const ANGLE = PI / 180。修改程序并运行。
(3)使用Option Explicit语句
在代码窗口的对象列表框中选择“通用”,在模块的最前面输入:
Option Explicit
修改程序并运行。
【参考题4-2】输入三角形三条边的长度a,b,c计算并显示三角形的面积。公式为:
,其中,
,对象属性如表4-2所示。参考界面如图4-2。
表4-2 【参考题4-2】对象属性设置
对象
Caption
Text
Label1
边长a:
Label2
边长b:
Label3
边长c:
Label4
三角形面积为:
Text1
空
Text2
空
Text3
空
Text4
空
Command1
计算
Command2
清除
Command3
退出
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim l As Single, s As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
l = (a + b + c) / 2
s = Sqr(l * (l - a) * (l - b) * (l - c))
Text4.Text = Str(s)
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
4.4 实验题
【实验题4-1】编写一个摄氏温度与华氏温度转换的程序。公式为:
,其中 c为摄氏温度,f为华氏温度。参考界面如图4—3。
【实验题4-2】随机产生一个两位的正整数,编写程序把该两位数的十位与个位互换。比如,对于两位数据45,互换的结果为54。参考界面如图4-4。(提示:用Randomize语句设置随机种子。)
图4-3 【实验题4-1】界面 图4-4 【实验题4-2】界面
4.5 选作题
【选作题4-1】在文本框中输入一句英文,把它全部转换为大写,并求这句英文包含字符的个数和第一个字符的ASCII码值,最后查找空格“ ”在字符串中第一次出现的位置。界面如图4-5所示。
图4-5 【选作题4-1】界面
【选作题4-2】从系统获取当前日期,判断该日期是一个星期的哪一天。运行界面如图4-6所示。
图4-6 【选作题4-2】界面
�
图4-1 【参考题4-1】界面
表4-1 【参考题4-1】属性设置
控件名�
属性名�
属性值�
�
Form1�
Caption�
计算三角函数�
�
Label1�
Caption�
输入角度=�
�
Label2�
Caption�
Sin(x)=�
�
Label3�
Caption�
Cos(x)=�
�
Label4�
Caption�
Tan(x)=�
�
Label5�
Caption�
Atn(x)=�
�
Text1�
Text�
空�
�
Text2�
Text�
空�
�
Text3�
Text�
空�
�
Text4�
Text�
空�
�
Text5�
Text�
空�
�
Command1�
Caption�
计算�
�
Command2�
Caption�
退出�
�
�图4-2 【参考题4-2】界面
PAGE
4
_1219128956.unknown
_1219129059.unknown
_1219129233.unknown
_1064924826.unknown