《vb綜合練習(xí)題目》word版-全文預(yù)覽
【正文】 ( ) 29． 在窗體上畫一個(gè)文本框（其中 Name屬性為 Text1），然后編寫如下事件過程： Private Sub Form_Load( ) = For i=1 To 10 Sum=Sum+i Next i =Sum End Sub 上述程序的運(yùn)行結(jié)果是 ( ) 。 1 2 3 2 4 6 18．假定有如下的 Sub 過程： Sub s(x As Single,y As Single) t=x x=t/y y=t Mod y End Sub 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a,b Print a,b End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為： 19．閱讀程序 Function F(a As Integer) b = 0 Static c b = b + 1 c = c + 1 F = a + b + c End Function Private Sub mand1_click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next 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．假定有下面的過程： 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è)命令按鈕，然后編寫如下事件過程： 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ù)過程： 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è)命令按鈕，然后編寫如下事件過程： 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é)果為 __________。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)。 注意：回車鍵的 ASCII 碼是 13，其掃描碼也是 13 10．設(shè)計(jì)一個(gè)程序，每間隔 1 秒，在文本框中顯示數(shù)字，依次是： 1 2 3 4 5 6 7 8 9 1
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1