vb实验 程序代码.docx

1、vb实验 程序代码AP1-2Private Sub Form_Click() Print Print Print Print 欢迎使用visual basic！End SubPrivate Sub Form_Load() FontSize = 20 FontBold = True ForeColor = vbRed Picture = LoadPicture(App.Path + imaget1.gif)End SubP2-1Private Sub Command1_Click() Label1 = Text1End SubPrivate Sub Form_Load() Text1.Passw

2、ordChar = * Text1.FontSize = 20 Label1.FontSize = 20 Label1.Alignment = 2 Label1.BorderStyle = 1 Label1.BackColor = vbWhite Command1.FontSize = 20End SubP2-2Private Sub Command1_Click() Label1 = 欢迎来到重庆 Command1.Visible = False Command2.Visible = True End SubPrivate Sub Command2_Click() Label1 = welc

3、ome to ChongQing Command2.Visible = False Command1.Visible = TrueEnd SubPrivate Sub Form_Load() Label1 = 欢迎来到重庆 Label1.Alignment = 2 Command1.Visible = False Command2.Visible = TrueEnd SubP2-3Private Sub Form_Load() Label1.BackColor = vbRed Label2.BackColor = vbBlue Label3.BackColor = vbGreen Label4

4、.BackColor = vbYellowEnd SubPrivate Sub Label1_Click() Text1.ForeColor = Label1.BackColorEnd SubPrivate Sub Label2_Click() Text1.ForeColor = Label2.BackColorEnd SubPrivate Sub Label3_Click() Text1.ForeColor = Label3.BackColorEnd SubPrivate Sub Label4_Click() Text1.ForeColor = Label4.BackColorEnd Sub

5、P2-4Private Sub Command1_Click() Dim Shu As Double Shu = Val(Text1) Label5 = Fix(Shu) Label6 = Int(Shu) Label7 = Round(Shu)End SubP2-5Private Sub Command1_Click() Randomize Label1 = Int(Rnd() * 899 + 100) Label2 = End SubPrivate Sub Command2_Click() Dim Zh As String Zh = Label1 Label2 = Right(Zh, 1)

6、 & Mid(Zh, 2, 1) & Left(Zh, 1)End SubPrivate Sub Command3_Click() Dim Yh As Integer Dim A As Integer Dim B As Integer Dim C As Integer Yh = Val(Label1) A = Yh 100 B = (Yh Mod 100) 10 C = Yh Mod 10 Label2 = C * 100 + B * 10 + AEnd SubPrivate Sub Form_Load()End SubP3-1Private Sub Command1_Click() Dim

7、R As Single Const Pi As Single = 3.1415926 R = Val(Text1) Label3 = Int(2 * Pi * R * 1000 + 0.5) / 1000 Label5 = Int(Pi * R 2 * 1000 + 0.5) / 1000End SubPrivate Sub Form_Load()End SubP3-2Private Sub Command1_Click() Dim Lx As Long, Ux As Long Lx = Val(Text1) Ux = Val(Text2) Randomize Label3 = Int(Ux

8、- Lx) * Rnd + Lx)End SubPrivate Sub Form_Load()End SubP4-1Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerDim d As Single, r1 As Single, r2 As Singlea = Val(Text1)b = Val(Text2)c = Val(Text3)If a = 0 Then If b = 0 Then MsgBox (方程无解) Else r1 = -c / b MsgBox (方程有一个根为： + Str(r1)

9、 End IfElse d = b * b - 4 * a * c If d 0 Then r1 = (-b + Sqr(d) / (2 * a) r2 = (-b - Sqr(d) / (2 * a) MsgBox (方程有两个根为： + Str(r1) + Chr(13) + + Str(r2) ElseIf d = 0 Then r1 = -b / (2 * a) MsgBox (方程有两个相同根为： + Str(r1) Else MsgBox (方程无实根) End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate

10、 Sub Form_Load()End SubP4-2Private Sub Command1_Click()Dim a As Double, b As DoubleDim ys As String * 1a = Val(Text1)b = Val(Text3)ys = Text2Select Case ys Case + Label4 = a + b Case - Label4 = a - b Case * Label4 = a * b Case / If b = 0 Then MsgBox 除数不能为0！重新输入 Text3.SetFocus Text3.SelStart = 0 Text

11、3.SelLength = Len(Text3) Else Label4 = a / b End IfEnd SelectEnd SubPrivate Sub Form_Load()End SubP4-3Private Sub Command1_Click()Dim a As SingleDim b As SingleDim c As SingleDim t As Singlea = Val(InputBox(请输入第一个数：)b = Val(InputBox(请输入第二个数：)c = Val(InputBox(请输入第三个数：)Label1 = 输入的三个数为： & a & 、 & b &

12、、 & cIf a b Then t = a: a = b: b = tIf a c Then t = c: c = b: b = a: a = tElse If b = Asc(A) And za = Asc(a) And za 1000Label2 = n= & nEnd SubPrivate Sub Form_Load()End SubP5-2Private Sub Command1_Click()Dim n As Integer, i As IntegerDim sum As Single, mid As Singlen = Val(InputBox(请输入n值)sum = 0mid

13、= 0For i = 1 To n mid = mid + i sum = sum + midNext iLabel4 = nLabel5 = sumEnd SubPrivate Sub Form_Load()End SubP5-3Private Sub Command1_Click()Dim x As Integer, max As Integer, min As IntegerDim k As IntegerRandomizePicture1.Clsmax = 100min = 999For k = 1 To 10 x = Int(Rnd * 900 + 100) If max x The

14、n min = x Picture1.Print xNext kText1 = maxText2 = minEnd SubPrivate Sub Form_Load()End SubP5-4Private Sub Form_Click()Dim i As IntegerDim aa As IntegerClsPrint: PrintPrint Tab(5);For i = 1 To 36 aa = i + Asc(A) - 1 If aa = Asc(Z) Then Print Chr(aa); ; Else Print Chr(aa - 26); ; End If If i Mod 6 =

15、0 Then Print Print Tab(5 + i / 6); End IfNextEnd SubPrivate Sub Form_Load()ShowDim i As IntegerDim j As IntegerDim aa As IntegerPrint: PrintFor i = 0 To 5 Print Tab(5 + i); For j = 0 To 5 aa = Asc(A) + i * 6 + j If aa = Asc(Z) Then Print Chr(aa); ; Else Print Chr(aa - 26); ; End If Next j PrintNext

16、i End SubP6-1Private Sub Command1_Click()Dim cj(1 To 10) As SingleDim sum As Single, i As Integersum = 0ClsFor i = 1 To 10 cj(i) = Val(InputBox(请输入第 & i & 位同学的成绩：) sum = sum + cj(i)Next iPrint 这10位同学的成绩如下：For i = 1 To 10 Print cj(i); If i Mod 5 = 0 Then PrintNext iPrintPrint 平均成绩为：; Spc(3); sum / iE

17、nd SubPrivate Sub Form_Load()End SubP6-1Private Sub Command1_Click()Dim a(5, 5) As IntegerDim s As IntegerClsFor i = 1 To 5 Print Tab(10); For j = 1 To 5 a(i, j) = Int(Rnd * 10) Print a(i, j); Next j PrintNext is = 0For i = 2 To 5 For j = 1 To i - 1 s = s + a(i, j)Next j, iPrintPrint 下三角元素之和为：; ss =

18、 0For i = 1 To 4 For j = i + 1 To 5 s = s + a(i, j)Next j, iPrint 上三角元素之和为：; ss = 0For i = 1 To 5 s = s + a(i, i)Next iPrint 主对角线元素之和为：; sEnd SubPrivate Sub Form_Load()End SubP6-3Private Sub Command1_Click()ReDim sl(1 To 6)Dim i As Integer, j As Integer, t As IntegerClsFor i = 1 To 6 sl(i) = Int(90

19、* Rnd + 10)Next iFor i = 1 To 5 For j = i + 1 To 6 If sl(i) sl(j) Then t = sl(i) sl(i) = sl(j) sl(j) = t End If Next jNext iPrint 原数据序列是：For i = 1 To 6 Print sl(i);Next iPrintEnd SubPrivate Sub Command2_Click()ReDim Preserve sl(1 To 7)Dim n As Integern = Val(InputBox(请输入一个两位数：)Print 插入的数为：; nFor i =

20、 6 To 1 Step -1 If n = Y And X = Z Then Max3 = X ElseIf Y = Z Then Max3 = Y Else Max3 = Z End IfEnd FunctionPrivate Sub Form_Load()End SubP7-3Private Sub Command1_Click() Dim a As String * 1 a = InputBox(请输入一个字符：) Print 输入的字符是： ; a Print 它是： ; Call Pd(a)End SubSub Pd(ByVal Os As String) Dim a As Int

21、eger a = Asc(Os) Select Case a Case 48 To 57 Print 数字字符 Case 65 To 90 Print 大写字母 Case 97 To 122 Print 小写字母 Case Else Print 其它字符 End SelectEnd SubPrivate Sub Form_Load()End SubP7-4Private Sub Command2_Click() Dim a As Long Dim res As Boolean a = Val(Text1) Ws2 a, res If res = True Then Label2 = a & 是完数 Else Label2 = a & 不是完数 End IfEnd SubSub Ws2(ByVal X As Long, ByRef Y As Boolean) Dim i As Intege