華北科技學院計算機系綜合性實驗.doc

華北科技學院安全工程學院綜合性

實 驗 報 告

課程名稱 程序設計語言(VB)

實驗學期 2011 至 2012 學年 第 2 學期

學生所在系部 安全工程學院

年級 大一 專業班級 安全B116班

學生姓名 胡海波 學號 201110044604

任課教師 狐為民

實驗成績

1先進入歡迎界面，在屏幕上顯示"歡迎您使用"，并彈出密碼框，等待輸入密碼。(5％)(密碼為123456)

程序代碼如下

Private Sub Command1_Click()

If Text1.Text <> "123456" Then

Text1.SetFocus

Text1.Text = ""

Else

Unload Me

Form2.Show

End If

End Sub

Private Sub Text1_Change()

Text1.PasswordChar = "*"

End Sub

2密碼正確后進入系統主界面，主界面包括“數組應用”、“過程應用”、“控件應用”和“退出”等菜單，并提供相關工具欄或命令按鈕。

(1)“數組應用”菜單中包括“數組操作”子菜單，單擊此菜單，彈出“數組操作”對話框，如圖1所示。(35％，每個按鈕功能為5％)。

程序界面及代碼如下

Dim a(1 To 10) As Long

Private Sub Command1_Click()

For i = 1 To 10

For j = i + 1 To 10

If a(j) < a(i) Then

t = a(j): a(j) = a(i): a(i) = t

End If

Next j

Next i

Text1.Text = ""

For i = 1 To 10

Text1.Text = Text1.Text + Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 10

For j = i + 1 To 10

If a(j) > a(i) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

Text2.Text = ""

For i = 1 To 10

Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

Private Sub Command3_Click()

Max = a(1)

For i = 2 To 10

If Max < a(i) Then Max = a(i)

Next i

Text3.Text = Max

End Sub

Private Sub Command4_Click()

Min = a(1)

For i = 2 To 10

If a(i) < Min Then Min = a(i)

Next i

Text4.Text = Min

End Sub

Private Sub Command5_Click()

Dim i As Long

For i = 1 To 10

a(i) = Rnd * 100

a(i) = InputBox("請輸入第" & i & "個數")

If Not IsNumeric(a(i)) Then

MsgBox "輸入必須為數字", , "警告"

End If

Next i

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = False

Command6.Enabled = True

Command1.Enabled = True

For i

總結

以上是生活随笔為你收集整理的华北科技学院计算机系综合性实验,华北科技学院计算机系综合性实验.doc的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。