vb課程設(shè)計b類實驗說明書(編輯修改稿)
2025-07-09 05:59 本頁面
【文章內(nèi)容簡介】 a6(1, 1) = 1: a6(1, 0) = 1 For i = 2 To n + 1 For j = 2 To i a6(i, j) = a6(i 1, j 1) + a6(i 1, j) a6(i, j)。 。 Next j Next End Sub 9 代碼如下： Private Sub Form_Load() 大學(xué)計算機基礎(chǔ) C/C++程序設(shè)計 VB程序設(shè)計 Web程序設(shè)計 多媒體技術(shù)與應(yīng)用 數(shù)據(jù)庫技術(shù)與應(yīng)用 網(wǎng)絡(luò)技術(shù)與應(yīng)用 硬件技術(shù)基礎(chǔ) 軟件技術(shù)技術(shù)基礎(chǔ) End Sub Private Sub List1_Click() 10 If = 5 Then MsgBox (超過 5門課程，不能再選 ) Exit Sub Else End If End Sub 代碼如下： Private Sub Command1_Click() Dim mm%, nn% mm = Val(Text1) nn = Val(Text2) mm。 Tab(6)。 nn。 Tab(12)。 gcd(mm, nn) End Sub Function gcd%(ByVal m%, ByVal n%) 11 If m n Then t = m: m = n: n = t r = m Mod n Do While (r 0) m = n: n = r: r = m Mod n Loop gcd = n End Function 代代 碼如下： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Not IsNumeric(Text1) Then MsgBox 輸入非數(shù)字串，重新輸入 = Else 12 If IsH(Text1) Then Text1。 ★ Else Text1 End If Text1 = End If End If End Su
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1