高级语言程序设计(VB)实验报告------VB编程基础及顺序结构.docVIP

高级语言程序设计（VB）实验报告 实验日期： 年 月 日 姓 名 学号 成绩 实验名称： VB编程基础及顺序结构 一．实验目的： 掌握VB编程基础 及顺序结构 二．实验内容和步骤： 1、程序运行界面 w=10:x=8:y=3:z=7 print wx and y=z or xy False print xz orw=y and yx FalseFalse print not(wy and x=z) True print not(yx or w*3z) True print int(abs(99-100)/2) 0 print sqr(sqr(64)) 2.82842712474619 print fix(-3.1415926) -3 print sgn(7*3+2) 1 2.界面运行图 程序代码 Private Sub Form_Click() Dim a As Integer, h As Integer, t As Integer, n As Integer Randomize a = 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 h End Sub 程序运行代码 Private Sub Command1_Click() f = Text1.Text Text2.Text = (5 / 9) * (f - 32) End Sub Private Sub Command2_Click() Text2 = End Sub 5、拓展题 1)界面运行图 程序代码 Private Sub Form_Click() Static a As Integer Dim b As Integer a = a + 1 b = b + 1 Print a=; a, b=; b End Sub 因为他们的变量声明格式不同。Dim 声明变量为普通变量，而srtatic声明的变量为静态变量。 2) 界面运行图 程序代码 Private Sub Command1_Click() i = Shell(C:\Program Files\Microsoft Office\Office\winword.exe, 1) End Sub Private Sub Command2_Click() i = Shell(C:\Program Files\Microsoft Office\Office\excel.exe, 1) End Sub Private Sub Command3_Click() i = Shell(C:\Program Files\Microsoft Office\Office\powerpnt.exe, 1) End Sub Private Sub Command4_Click() i = Shell(C:\Program Files\Microsoft Office\Office\frontpg.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 ^ 2 MsgBox 结果y等于: y End Sub 2) 界面运行图 程序代码 Private Sub Command1_Click() a = Text1.Text Text2 = Sin(a / 180 * 3.1415926) End Sub Private Sub Command2_Click() a = Text1.Text Text3.Text = Cos(a * 3.1415926 / 180) End Sub Private Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command4_Click() End End Sub Private Sub Form_Load() Dim a# Text1.Text = a End Sub 3) 界面运行图 程序代码 Private Sub Form_Load() a = 1.2 b = 2.3 Cosd = (3.1415926 / 180 * 36) c = Sqr(a ^ 2