華北科技學(xué)院計算機(jī)系綜合性實驗.doc

華北科技學(xué)院安全工程學(xué)院綜合性

實 驗 報 告

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

實驗學(xué)期 2011 至 2012 學(xué)年 第 2 學(xué)期

學(xué)生所在系部 安全工程學(xué)院

年級 大一 專業(yè)班級 安全B116班

學(xué)生姓名 胡海波 學(xué)號 201110044604

任課教師 狐為民

實驗成績

1先進(jìn)入歡迎界面，在屏幕上顯示"歡迎您使用"，并彈出密碼框，等待輸入密碼。(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密碼正確后進(jìn)入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單，并提供相關(guān)工具欄或命令按鈕。

(1)“數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”對話框，如圖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 & "個數(shù)")

If Not IsNumeric(a(i)) Then

MsgBox "輸入必須為數(shù)字", , "警告"

End If

Next i

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = False

Command6.Enabled = True

Command1.Enabled = True

For i

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。