計(jì)算機(jī)基礎(chǔ)知識(shí)與visualbasic程序設(shè)計(jì)-文庫(kù)吧資料
2025-06-24 19:01本頁(yè)面
【正文】 Dim t As Single a1 = 1: a2 = 2 x = text1 If 16 Then MsgBox (x必須在1～1之間) Exit Sub End If fx = a1 * x a2 * x * x t = (1) * x * x Do a = 1 / (a1 + a2) t = (1) * t * x fx = 17 a1 = a2 18 Loop Until Abs(a * t) text2 = fxEnd Sub7．學(xué)生的某次課程測(cè)驗(yàn)中，選擇題的答案已記錄在列表框List1中，其數(shù)據(jù)行格式是：學(xué)號(hào)為6個(gè)字符長(zhǎng)度、2個(gè)空格、選擇題的答案為15個(gè)字符長(zhǎng)度。 f(i) Print st Next iEnd SubPrivate Function f(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i f = sEnd Function6．用以下公式求f(x)的值。 CStr(i) Next i Print s Call test(n 2) Else Print OVER End IfEnd Sub5．執(zhí)行下列程序，單擊Command1，在窗體上顯示的第一行內(nèi)容是 13 ，第二行的內(nèi)容是 14 ，第三行的內(nèi)容是 15 。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n k fun = n + k + aEnd Function4．執(zhí)行下面的程序，單擊Command1，窗體上顯示的第一行是 9 ，第二行是 10 ，第四行是 11 ，最后一行是 12 。Option ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i = 1 To n Print a(i)。Private Sub Command1_Click() Dim a(3, 3) As Integer, j As Integer For i = 1 To 3 For j = 3 To 1 Step 1 If i = j Then a(i, j) = i j Else a(i, j) = j i End If Next j Next i For i = 1 To 3 For j = 3 To 1 Step 1 a(i, j)。 A．x = y = z = 4 B．x = y = z = 2 C．x = y = z = 2 D．x = y = z = 230．在一個(gè)多窗體程序中，可以僅將窗體Form2從內(nèi)存中卸載的語(yǔ)句是 30 。 A．窗體中凡是用Preserve聲明的變量只能在某個(gè)指定的過(guò)程中使用 B．模塊級(jí)變量只能用Dim語(yǔ)句聲明 C．凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語(yǔ)句聲明的變量都是全局變量 D．當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪問(wèn)局限性小的變量28．表達(dá)式Cint()+CInt()+Int()+Int()+Fix() + 0 Mod 2的運(yùn)算結(jié)果是 28 。 A．在Sub或Function過(guò)程內(nèi)部
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1