vb程序設(shè)計(jì)考試題庫(kù)——考試專(zhuān)用-wenkub
2023-04-08 05:07:21 本頁(yè)面
【正文】 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next NextNext6題 Dim i, j, k As IntegerFor i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + kNextPrint (CStr(s))7題Dim a(9) As IntegerDim i, s As Integera(0) = 15：a(1) = 23：a(2) = 72a(3) = 43：a(4) = 96：a(5) = 23a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：max = a(0)：min = a(0)s = 0For i = 0 To 9 If a(i) max Then max = a(i) End If If a(i) min Then min = a(i) End Ifs = s + a(i)Nextaver = Int(s / 10)Print (CStr(max))Print (CStr(min))Print (CStr(aver))8題 Dim i, j, s As IntegerFor i = 100 To 200 For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print (CStr(i)) sum = sum + i Exit For End If NextNextPrint sum9題Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20 For j = 2 To i 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = FalseNextPrint Str(l)10題Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j 1 / i End If Next Print j1題目： (事件)單擊窗體。請(qǐng)編寫(xiě)一個(gè)程序，求出500以?xún)?nèi)最大的完全數(shù)。使用for...next語(yǔ)句完成程序。**********Program**********39。 \ For Output As fOut For i = 1 To 10 Line Input fIn, a(i) Print fOut, fun(a(i)) Next Close fIn Close fOutEnd Sub1題目：編寫(xiě)函數(shù)fun，函數(shù)的功能是：根據(jù)一個(gè)百分制成績(jī)mark（整數(shù)），顯示對(duì)應(yīng)五級(jí)制的評(píng)定。mark小于80且大于等于70顯示中等39。Private Function fun(mark As Integer) As String39。 \ For Output As fOut For i = 1 To 10 Line Input fIn, s a(i) = Val(s) Print fOut, fun(a(i)) Next Close fIn Close fOutEnd Sub1題目：編寫(xiě)函數(shù)fun，函數(shù)的功能是：當(dāng)x的初值為10，每年增長(zhǎng)率為千分之八，計(jì)算多少年以后x的值能達(dá)到y(tǒng)，并顯示所需年數(shù)的值（變量名必須為n）。**********Program**********
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1