高中會考程序調(diào)試題設(shè)計題例題

1、會考形式：上機，45分鐘，100分滿分題型及分值必修（信息技術(shù)基礎(chǔ)） 共58分選擇題 3分×6小題18分操作題 excel操作題 5分×4小題20分網(wǎng)頁制作 5分×4小題20分選修（算法與程序設(shè)計） 共42分選擇題 3分×8小題24分操作題 6分填空題3題 3分×2小題6分×1小題12分一、按程序語言在form上添加控件1、在窗體中添加一個命令按鈕，然后編寫如下程序： Private Sub Command1_Click(Dim iFor i = 1 To 10 Step 2i = i + 1Print i;Next iEnd Sub

2、單擊命令按鈕，程序的執(zhí)行結(jié)果為（ ）。求循環(huán)過程中i值A(chǔ)2 4 6 8 10 12 B1 3 5 7 9 11C2 5 8 D2 5 8 11 2、閱讀下列程序并寫出程序的運行結(jié)果Private Sub Command1_Click(Text1.Text=2Text2.Text=3Text3.Text= Text1.Text+ Text2.TextText4.Text= Val(Text1.Text+ Val(Text2.TextEnd Sub文本框Text3和Text4的結(jié)果分別是：3、當(dāng)執(zhí)行以下過程時，Private Sub Command1_Click( Text1.Text="

3、;努力"End SubPrivate Sub Command2_Click( Text1.Text="學(xué)習(xí)"End Sub單擊Command2按鈕，又單擊Command1按鈕，在文本框中顯示什么？4、閱讀下列程序并寫出程序的運行結(jié)果Private Sub Form_Click(Static Sum As IntegerFor I = 1 To 2Sum = Sum + INext IPrint SumEnd Sub點擊窗體兩次后，變量Sum的值是：二、自己添加命令按鈕控件5、程序執(zhí)行后，輸出的結(jié)果是（ ）a = 1: b = 2: c = 3a = b: b =

4、c: c = alabel1.caption=str(cA0 B1 C2 D36、當(dāng)執(zhí)行以下過程時，在窗體上將顯示（ ）Print “VB”Print“Hello!”；Print “VB”A、 VB Hello! VBB、 VB Hello!VBC、 VBHello! VB D、 VBHello!VB7、下列是一段Visual Basic程序y=1For i=1 To 7 Step 3y=y*iNext iMsgbox (Str$(y該程序運行結(jié)果是：（A） 1 （B） 4 （C） 7 （D） 288、文本框Text1的輸出結(jié)果是： a = 1 b = 2 c = 3 Text1.Text =

5、 c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2 9、運行下列程序x = Val(InputBox("請輸入一個正整數(shù)="If x < 5 Thens = s * xElses = s + xEnd IfText1.Text = "s=" & Str(s程序連續(xù)運行3次，分別輸入：6、5、4時，分別寫出文本框Text1的值。10、有如下Visual Basic程序段：x = -1.1If x > 0 Then Label1.Caption = &qu

6、ot;Positive"If x = 0 Then Label1.Caption = "Zero"If x < 0 Then Label1.Caption = "Negative"該程序段運行后, Label1標(biāo)簽上顯示為_。11、有如下Visual Basic程序段：Dim x As Single, c As Stringx=Val(Text1.TextIf x>12 Then c= "PM"Elsec= "AM"End IfLabel1.Caption=c該程序段運行時，在文本框Text1

7、中輸入15.6，Label1標(biāo)簽上將顯示的是_。三、在以上基礎(chǔ)上，添加輸出語句print 變量12、有如下Visual Basic程序段： k = 0For i = 1 To 10If i Mod 3 = 0 Then k = k + 1Next i該程序段運行后，變量k的值為_。13、有如下Visual Basic程序段：a = 10b = 20c = 5m=aIf b > m Then m = bIf c > m Then m = c該程序段運行后，變量m的值為_。14、下列程序運行后，S的結(jié)果為_。S = 1 For i = 1 To 5 S = S * i Next i 1

8、5、語句Print 5* 55/5的輸出結(jié)果是( A. 5 B25 C. 0 D116、在Visual Basic表達(dá)式中，Int(Abs(-5.1的值是 （A）-5.1 （B）-6 （C）5 （D） 17、 在Visual Basic中，若x=5，y=2，則邏輯表達(dá)式 Not(x 的值是 （A）True （B）False （C）0 （D）118、在Visual Basic中，若x是正數(shù)，則下列邏輯表達(dá)式值一定為真的是（A）Not(x>0 （B）x<0 （C）Not(x<>0 D）Not(x<=019、如果a=3，b=4，c=6，那么下列表達(dá)式值為真的是 （A）(

9、a>b And (b>c （B）(a>c And (b>a （C）(a>b Or (b>c （D）(a>c Or (b>a20、求表達(dá)式的值（如果結(jié)果為真填TRUE，如果結(jié)果為假填FALSE）。（1）、not (“b”< “a”and(“yes”>“no”（2）、(6>=3 and (7<4 or (1<=321、表達(dá)式16/2-23*7 MOD 9的值是_。22、表達(dá)式2*32+2*8/4+32的值為（ ）。 A、64 B、31 C、49 D、4223、設(shè)A=2，B=3，C=4，D=5，則表達(dá)式 Not A<

10、=C Or 4*C=B2 And B<>A+C的值為 。四、添加計數(shù)器語句24、有如下Visual Basic程序段：s = 10For i = 1 To 20 Step 3s = s + iNext iFor j = 1 To 3s = s * jNext j問：該程序段運行后，（1）語句“s=s*j”執(zhí)行的次數(shù)為_。 （2）變量s的值為_。25、有如下Visual Basic程序段：s = 150: i = 1Do While s > 100s = s - i + 1i = i + 20Loop問：該程序段運行后，（1）變量i的值是_。 （2）變量s的值為_。26、有如下

11、Visual Basic程序段：Dim a As Integer, b As Integer, c As Integera = 20b = 0c = 2Do While a > b And a > cb = b + 1c = c + bLoop問：該程序段運行后，（1）語句“b=b+1”執(zhí)行的次數(shù)為_。 （2）變量c的值為_。 27、有如下Visual Basic程序段：s = 0a = 5For i = 1 To 10 Step 2a = a + is = a * iNext i問：該程序段運行后，（1）變量i的值是_11_。 （2）變量s的值是_270_28、在下面的程序段中其

12、中d ( j > d ( j 1 所在的句子執(zhí)行的次數(shù)為（ ）for I = 1 to 5for j = 6 to I+1 step 1if d ( j > d (j 1 then t= d ( j : d ( j = d (j - 1 : d ( j 1 = tend if next jnext IA 5B6C15D3029/下列VB程序運行時，單擊命令按鈕Command1后，文本框Text1中顯示的內(nèi)容是_，文本框Text2中顯示的內(nèi)容是_。Private Sub Command1_Click( Dim a(1 To 5 As Integer, i As Integer, s

13、As Integera(1=5a(2=10For i = 3 To 5a(i = a(i-1-a(i-2Next iText1.Text = Str(a(5s = 0For i = 1 To 5If a(i>0 then s = s + 1Next iText2.Text = Str(sEnd Sub30、在Visual Basic中，有如下程序：Private Sub Command1_Click(Dim a As Integer, b As Integer, c As IntegerDim d As Integer, z As Integera = Val(Text1.Text: b = Val(Text2.Text: c = Val(Text3.Textd = max(a, bz = max(d, cText4.Text = Str(dText5.Text