sysu计算机程序设计VB编程.doc

顺序结构：Dim var1 As Integer, var2 As String var1 = 12345 var2 = InputBox(输入Var2=, 输入对话框) MsgBox(var2 & Chr(13) + Chr(10) & var1= & Str(var1) MsgBox(var2 & vbCrLf & var1= & Str(var1)赋值类型一、模仿第1题的实验，通过编程运行，理解变量、表达式和函数的定义、书写规则。(1)在变量说明语句中，将变量A、变量B变量J分别说明成什么类型，才能与下列的值匹配。325、546.2、5383149、2003-12-31、“ABCDEF”、 false 、“123456”、3.2434E+100、1.2563E+12Dim a As Short Dim b As Single Dim c As Integer Dim d As Date Dim e1 As String Dim f As Boolean Dim g As String Dim h As Double Dim i As Single Dim j(4, 3) As Integer a = 3.25 b = 546.2 c = 5383149 d = #12/31/2003# e1 = ABCDEF f = False g = 123456 h = 3.24E+100 i = 1.2563E+15 j(0, 0) = 456 MsgBox(a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e1 & vbCrLf & f & vbCrLf & g & vbCrLf & h & vbCrLf & i & vbCrLf & j(0, 0)二、分析下列表达式的运算结果，在窗体单击事件过程中，通过定义与运算结果类型相符合的变量，并将运算结果赋值给已定义的对应变量。观察程序编写过程中的语法编译提示。1) 2) + |0.123-3| 3) - sin(300 ) 4) e6+ln( +2.135) 5) 89&128912 6) AB+STR(32.56)+ CD7) mid(student”,5)= “ent” And(52) 8) Not (62) Or (79) Dim x21, x22, x23, x24 As Single Dim x25, x27, x28 As Boolean Dim x26 As String x21 = Sqrt(3 2 / (2 * 4) x22 = +Abs(0.123 - 3) x23 = -Sin(30 * PI / 180) x24 = Exp(6) + Log(2.135) x25 = 89 & 12 8912 x26 = AB + Str(32.56) + CD x27 = Mid(student, 5) = ent And (5 2) x27 = Microsoft.VisualBasic.Right(student, 3) = ent And (5 2) x28 = Not (6 2) Or (7 b Then x = a y = b Else x = b y = a End If If c a Then x = c Else If c b Then y = c End If End If MsgBox(最大数 & x & 最小数 & y)7、计算f=0.06t+2 (t=120）Dim t As Single, f As Single t = InputBox(请输入t) If t = 90 Then y = A ElseIf x = 80 Then y = B ElseIf x = 70 Then y = C ElseIf x = 60 Then y = D Else y = E End If MsgBox(成绩 & x & 等级为 & y) End Sub9、SELECT CASE END SELECT语句计算y=x(x+2) (0x=10) =2x (-1x=2) =x-1 (x=-1)Dim x As Single, y As Single x = InputBox(请输入x) Select Case x Case Is = -1 y = x - 1 Case Is = 2 y = 2 * x Case Is = 10 y = x * (x + 2) Case Else y = 0 End Select MsgBox(y= & y) End Sub 循环结构1、ForNext语句计算 + + . Dim i As Integer Dim n As Integer Dim s As Single s = 0 n = InputBox(请输入n) For i = 1 To n s = s + 1 / (i * (i + 1) Next MsgBox(s= & s) End Sub2、利用Inputbox函数给一个10元素的数组赋10个任意数据类型的值，分别计算下标为奇数的元素之和、下标为偶数的元素之和Dim a(10) As Integer Dim i As Integer Dim x As Integer Dim y As Integer x = 0 y = 0 For i = 1 To 10 a(i) = InputBox(请输入第 & i & 个数) If i Mod 2 = 0 Then x = x + a(i) Else y = y + a(i) End If Next MsgBox(下标为奇数的元素和为 & y & 下标为偶数的元素和为 & x) End Sub3、等腰三角形Dim r As Integer, s As Integer, c As Integer, y(5) As String, j As Integer, ys As String ys = r = 1 Do While r = 4 c = 10 - r : s = 1 y(r) = y(r) & Space(c + s) Do While s = 1 c = 10 - r : s = 1 ys = ys & Space(c + s) Do While s = 2 * r - 1 ys = ys & * s = s + 1 Loop r = r - 1 ys = ys & Chr(10) Loop MsgBox(ys) End Sub5、产生20个0100的随机数，并统计50的个数Dim a(19) As Integer Dim s As String Dim i As Integer Dim x As Integer Dim y As Integer x = 0 y = 0 s = For i = 0 To 19 a(i) = Int(Rnd() * 100) s = s & a(i) & , If a(i) 50 Then x = x + 1 ElseIf a(i) 10 Then y = y + 1 End If Next MsgBox(s & vbCrLf & 50万元以上的业务人数为 & x & ,10万元以下的业务人数为 & y) End Sub6、产生20个0100的随机数，并将其从大到小排序Dim a(19) As Integer Dim t As Integer Dim i As Integer Dim j As Integer Dim x As String Dim y As String x = y = For i = 0 To 19 a(i) = Int(Rnd() * 100) x = x & a(i) & , Next For i = 0 To 19 For j = 19 To i + 1 Step -1 If a(j) = 0.000001 s = s + t i = i + 1 t = 1 / (i * (i + 1) Loop MsgBox(s= & s) End Sub自定义函数1、 在InputBox中输入n，求Y=2！+4！+6！+8！+n！Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer n = InputBox(请输入需求阶乘之和的任意整数n) If n Mod 2 = 0 Then MsgBox(偶数序列 & Str(n) & 的阶乘之和： & Str(factorial(n) Else MsgBox(请输入偶数) End If End Sub Public Function factorial(ByVal x) As Integer Dim s As Integer Dim t As Integer Dim i As Integer Dim j As Integer s = 0 For i = 1 To x Step 2 t = 1 For j = 1 To i t = t * j Next s = s + t Next Return s End Function2、已知半径、高，求圆面积、圆周长、圆柱体积Dim r As Single Dim h As Single r = InputBox(请输入半径：) h = InputBox(请输入高度：) Formula(r, h) End Sub Public Sub Formula(ByVal r As Single, ByVal h As Single) Dim x As Single Dim y As Single Dim z As Single x = Math.PI * r 2 y = 2 * Math.PI * r z = Math.PI * r 2 * h MsgBox(圆面积： & x & ,圆周长： & y & ,圆柱体积： & z) End Sub3、将输入的字符串颠倒顺序Dim s As String s = InputBox(请输入一个字符串) MsgBox( & Inverse(s) End Sub4、通过递归形式计算 Dim m As Integer Dim n As Integer Dim s As Integer m = InputBox(请输入一个数m) n = InputBox(请输入一个数n) s = cmn(m, n) MsgBox(该组合数为 & s) End Sub Public Function cmn(ByVal m As Integer, ByVal n As Integer) As Integer If n = 0 Then Return 1 ElseIf n = 1 Then Return m ElseIf n m / 2 Then Return cmn(m, m - n) Else Return cmn(m - 1, n) + cmn(m - 1, n - 1) End If End Function窗口控件1、 计算汽油升数汽油升数：La