計(jì)算機(jī)基礎(chǔ)知識(shí)與visualbasic程序設(shè)計(jì)(參考版)
2025-06-21 19:01本頁(yè)面
【正文】 s。 s Next i If k Mod 2 = 0 Then 30 Else s = 0 amp。 s Next iEnd SubPrivate Sub convert(ch As String, s As String) Dim m As Integer, k As Integer, n As Integer, i As Integer s = 28 n = Asc(ch) Do While n 0 29 s = m amp。Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, s As String Dim str As String, ch As String str = For i = 1 To Len(str) 27 Call convert(ch, s) ch amp?！癆”的傳輸碼為“10100001”。有奇數(shù)個(gè)1，則最高位為0。 Next iEnd SubPrivate Sub statistic(a() As Integer, right As Integer) Dim Left As Integer, k As Integer, i As Integer right = 23 Left = 2 Do While Left = right k = 24 For i = k To 1 Step 1 If a(Left) = a(i) Then Exit For Next i If 25 Then Left = Left + 1 Else a(Left) = a(right) 26 End If LoopEnd Sub9．在計(jì)算機(jī)中用一個(gè)字節(jié)（8位）來(lái)存儲(chǔ)一個(gè)字符的ASCII碼，其中低7位二進(jìn)制數(shù)對(duì)應(yīng)字符的編碼，每個(gè)字節(jié)的最高位保持為“0”，在數(shù)據(jù)傳輸時(shí)可用作奇偶校驗(yàn)位。 個(gè)不同的數(shù): For i = 1 To op text2 = text2 amp。 Next i Call statistic(a, op) text2 = 有 amp。Option ExplicitOption Base 1Private Sub Command1_Click() Dim a() As Integer, n As Integer, i As Integer Dim op As Integer n = InputBox(請(qǐng)輸入數(shù)據(jù)個(gè)數(shù), , 10) ReDim a(n) Randomize For i = 1 To n a(i) = Int(Rnd * 10) + 1 text1 = text1 amp。若a(Left)與排在它前面的某個(gè)數(shù)組元素值相同，就用數(shù)組元素a(Right)的值來(lái)替換a(Left)的值，同時(shí)將變量Right的值減1；否則將變量Left的值加1，處理數(shù)組下一個(gè)元素，重復(fù)以上過(guò)程，直到LeftRight為止。 scor Next iEnd Sub8．下列程序的功能是：統(tǒng)計(jì)存放在數(shù)組A中的N個(gè)數(shù)有多少個(gè)是不同的。標(biāo)準(zhǔn)答案 For i = 19 anw = 20 studId = Left(anw, 6) anw = Right(anw, Len(anw) 8) 21 For j = 1 To Len(anw) If 22 Then scor = scor + 1 End If Next j studId amp。標(biāo)準(zhǔn)答案存放在變量Exact中。 其中： a1=1, a2=2, , n = 3,4,5,…請(qǐng)完善如下程序：Option ExplicitPrivate Sub Command1_Click() Dim x As Single, fx As Single Dim a As Single, a1 As Single, a2 As Single
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1