《高级语言程序设计(VB)实验报告------VB编程基础及顺序结构》由会员分享，可在线阅读，更多相关《高级语言程序设计(VB)实验报告------VB编程基础及顺序结构（8页珍藏版）》请在金锄头文库上搜索。
1、高级语言程序设计（ VB）实验报告实验日期： 年 月 日姓 名 学号 成绩实验名称： VB 编程基础及顺序结构一实验目的：掌握 VB 编程基础 及顺序结构 二实验内容和步骤： 1、程序运行界面w=10:x=8:y=3:z=7print wx and yyFalseprint xz orw=y and yy and x=z)Trueprint not(yz)Trueprint int(abs(99-100)/2)0 print sqr(sqr(64)2.82842712474619 print fix(-3.1415926)-3 print sgn(7*3+2)1 2.界面运行图程序代码Priv
2、ate Sub Form_Click()Dim a As Integer, h As Integer, t As Integer, n As IntegerRandomizea = Int(999 - 100) * Rnd + 100)h = Int(a 100)t = Int(a - h * 100) 10)n = Int(a - h * 100 - t * 10)Print a, 的逆序为 :, n & t & hEnd Sub程序运行代码Private Sub Command1_Click()f = Text1.TextText2.Text = (5 / 9) * (f - 32)End
3、 SubPrivate Sub Command2_Click()Text2 = End Sub5、拓展题1)界面运行图程序代码Private Sub Form_Click()Static a As IntegerDim b As Integera = a + 1b = b + 1Print a=; a, b=; bEnd Sub因为他们的变量声明格式不同。Dim 声明变量为普通变量，而 srtatic 声明的变量为静态变量。 2) 界面运行图程序代码Private Sub Command1_Click()i = Shell(C:Program FilesMicrosoft OfficeOffi
4、cewinword.exe, 1)End SubPrivate Sub Command2_Click()i = Shell(C:Program FilesMicrosoft OfficeOfficeexcel.exe, 1)End SubPrivate Sub Command3_Click()i = Shell(C:Program FilesMicrosoft OfficeOfficepowerpnt.exe, 1)End SubPrivate Sub Command4_Click()i = Shell(C:Program FilesMicrosoft OfficeOfficefrontpg.
5、exe)End Sub书后习题1) 界面运行图程序代码Private Sub Form_Load()Dim a#, b#, c#, y#a = Val(InputBox(输入 a)b = Val(InputBox(输入 b)c = Val(InputBox(输入 c)y = a 2 + 2 * b 2 + 3 * c 2MsgBox 结果 y 等于: & yEnd Sub2) 界面运行图程序代码Private Sub Command1_Click()a = Text1.TextText2 = Sin(a / 180 * 3.1415926)End SubPrivate Sub Command2
6、_Click()a = Text1.TextText3.Text = Cos(a * 3.1415926 / 180)End SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()Dim a#Text1.Text = aEnd Sub3) 界面运行图程序代码Private Sub Form_Load()a = 1.2b = 2.3Cosd = (3.1415926 / 180
7、 * 36)c = Sqr(a 2 + b 2 - 2 * a * b * Cosd)MsgBox c= & cEnd Sub三疑问：四课后练习：判断题：1、 错2、 错 3、 对4、 对 5、 对 6、 对7、 对8、 对 9、 错10、对 二、选择题1、C2、A3、B4、C5、B6、D7、C8、D9、B10、A11、ABCCD12、B13、A14、B15、A16、A17、C18、D19、B20、B三、填空题1、str2、43、!4、1455、56、37、False8、x-(Int(x/10)*10*10+Int(x/10)9、Mod(a*b/2)10、日期11、(x=5*b)Or(x=9*b)12、Int(300*Rnd)13、双引号、#14、Unicod 1 215、A2+B*C(X+Y)/(A+B)五学习心得：指导教师： 对象名 属性名 属性值
