vb綜合練習(xí)題目word版-文庫(kù)吧資料
2025-01-15 17:24本頁(yè)面
【正文】 i End Sub 運(yùn)行上面的程序，單擊命令按鈕，輸出結(jié)果為： 20．閱讀程序 Sub Sabp(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 Sabp a() For i = 1 To 4 Print a(i) Next i End Sub 運(yùn)行上面的程序后，單擊命令按鈕，輸出結(jié)果為： 21．假定有下面的過(guò)程： Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b Func = m End Function 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Dim k As Integer Dim p As Integer Dim q As Integer k = 4 q = 1 p = Func(k, q) Print p p = Func(k, q) Print p End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為： 22． 假定有以下函數(shù)過(guò)程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1＝ UCase(Mid(S,i,1))+s1 Next I Fun＝ s1 End Function 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox(請(qǐng)輸入一個(gè)字符串 ) Str2 = Fun(Str1) Print Str2 End Sub 程序運(yùn)行后，如果在輸入對(duì)話框中輸入字符串 “abcdefg”，則單擊 “確定 ”按鈕后在窗體上的輸出結(jié)果為 ： 23．建立一個(gè)窗體，并把窗體的 KeyPreview 屬性設(shè)置為 True，然后編寫如下代碼： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情況下（即不按住 Shift 鍵和鎖定大寫）運(yùn)行程序，如果按“ A”鍵，則程序的輸出是： 24．在窗體上畫一個(gè)命令按鈕，然后編寫如下程序： Function fun(ByVal num As Long) As Long Dim k As Long k = 1 num = Abs(num) Do While num k = k * (num Mod 10) num = num \ 10 Loop fun = k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n = InputBox(請(qǐng)輸入一個(gè)數(shù) ) n = CLng(n) r = fun(n) Print r End Sub 程序運(yùn)行后單擊命令按鈕，在輸入對(duì)話框中輸入“ 234”，輸出結(jié)果為 __________。 1 2 3 1 4 1 16．在窗體上畫一個(gè)命令按鈕 (其 Name 屬性值為 Command1)，然后編寫如下代碼： Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12k Next k x=6 Print M(2+M(x)) End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是 ___4_____。s 13．在窗體上畫一個(gè)命令按鈕（其 Name 屬性值為 Command1），然后編寫如下代碼： Private Sub Command1_Click() Dim a(10),p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是： 33 14．在窗體上畫一個(gè)命令按鈕（其 Name 屬性為 Command1），然后編寫如下代碼： Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For j=1 To 4 a(i,j)=(i1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(i,j)。 第 二 部分 分析程序，寫出程序的運(yùn)行結(jié)果或功能 1．下面程序 X$=a Y$=b Z$=c For i=1 To 2 X$=Y$ Y$=Z$ Z$=X$ Next i Print X$+Y$+Z$ 運(yùn)行后的輸出結(jié)果是： cbc 2．下面程序 For i=10 To 40 step 6 Print i Next i 的循環(huán)次數(shù)為： 6 3．下面程序 For i=1 To 2 s=1 For j=0 To i1 s=s+s*1 Next j Print s Next i 執(zhí)行后輸出的結(jié)果為： 2 4 4．下面程序 i=0 n=0 Do while i32 i=(i+1)*(i+1) n=n+1 Loop Print n 運(yùn)行后的結(jié)果為“ 4 5．下面程序 For I=1 To 3 If I=1 Then a=3 If I=2 Then a=2 If I=3 Then a=1 Print a Next I Print I 運(yùn)行時(shí)輸出的結(jié)果是： 1
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1