vb程序設(shè)計基礎(chǔ)習(xí)題答案(參考版)
2025-06-29 04:42本頁面
【正文】 Chr(10) Loop Close 1End Sub。 s amp。判斷為非數(shù)字鍵 KeyAscii = 0 39。 Next iEnd SubPrivate Sub Form_Click() Dim a(20) As Integer, score(5) As Integer For i = 1 To 20 a(i) = Int(Rnd * 101) Print a(i)。 Next iEnd Sub選擇法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i)。 minEnd Sub3.冒泡法：Private Sub Form_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i)。 Next i For i = 1 To n If a(i) Mod 2 = 0 Then min = a(i) Else max = a(i) If min 0 And max 0 Then Exit For Next i For i = 1 To n If a(i) Mod 2 = 0 And min a(i) Then min = a(i) ElseIf a(i) Mod 2 = 1 And max a(i) Then max = a(i) End If Next i Print max=。 Min, average=。 If i Mod 5 = 0 Then Print Next i Min = a(1): Max = a(1): s = 0 For i = 2 To 50 If Min a(i) Then Min = a(i) If Max a(i) Then Max = a(i) s = s + a(i) Next i Print max=。 For j = 1 To 2 * i 1 Print *。 For j = 1 To 2 * i 1 Print *。 i * j。 j。 sEnd Sub4.Private Sub Command1_Click() For i = 1 To 9 For j = 1 To i Print i。 Sum=i四， 1，Private Sub Form_Click() Dim x As Single, f As Single x = InputBox(輸入x: ) If x 5 Then f = 3 * x * x + 2 * x 1 ElseIf x = 5 Then f = x * Sin(x) + 2 ^ x Else f = Sqr(x 5) + Log(x) / Log(10) End If = fEnd Sub2.Private Sub Form_Click()Dim i As Integer, flag As IntegerDim t As Double, y As Doubley = 0flag = 1t = i = 1While Abs(t) = t = 1 / i / (i + 1) y = y + flag * t flag = flag i = i + 1WendPrint y=。 Sum=Sum+j m To n m=n 3, s=s+t Abs(t)=1e5 s=1 Double t cHINA！三， 4， 12345654321 12321 121 3， y=KIGECA 1， 二， 4，A 2，B一， yEnd Sub 2. Private Sub Form_Click() Dim r As Integer, s As
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1