24套vb試題

2022.06.15 浙江

第一套

試題一：（30分）

用VB編制一個程序，初始界面如圖1，文本框顯示程序運行輸入的文本（文本框有垂直滾動條，文本為紅色）。程序運行時可通過復選框?qū)ξ谋咀中芜M行設置，效果如圖2，只有當文本框內(nèi)容非空時“結(jié)束”按鈕才有效，單擊“結(jié)束”按鈕結(jié)束程序運行。

圖1

圖2

操作要求：

1．（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到考生文件夾下。

2.（12分）參照圖1和圖2完成界面設計：按表添加相關對象并設置相關的屬性：

表1 （每個屬性1分，共12分）

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

字體效果

Label1

name

lab1

Label1

caption

請您留下寶貴意見

Text1

name

txt1

Text1

multiline

true

Text1

scrollbars

2

Text1

forecolor

&H000000FF&

Check1

caption

加粗

Command1

name

cmd1

Check2

caption

斜體

Command1

caption

結(jié)束

Command1

enabled

false

3.（1）（4分）編寫適當?shù)氖录?分）：只有當文本框內(nèi)容非空時“結(jié)束”按鈕才有效。

（不用能VB函數(shù)）（代碼2分）

（2）（4分）單擊“加粗”復選框時，文本框中的文字顯示加粗效果；否則取消；

（要求不能用IF語句來實現(xiàn)）（事件2分，一條代碼2分）

（3）（4）單擊“斜體”復選框時，文本框中的文字顯示斜體效果，否則取消。

（要求不能用IF語句來實現(xiàn)）（事件2分，一條代碼2分）

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

試題二（25分）

1．（13分）有一個VB程序，其功能是：根據(jù)身高和體重判斷胖瘦，程序運行界面如圖3和圖4所示。胖瘦條件：如果身高與體重之差大于等于110，則表示“你太瘦了！”；如果身高與體重之差小于等于100，則表示“你太胖了！”；如果身高與體重之差在100――110之間，則表示“你的身材真好！”

圖1

圖2

打開某路徑下的工程文件test2-1.vbp，完成下列操作：

（1）（3分）當用戶在文本框1輸入身高時，命令按鈕command1有效，添加適當?shù)氖录痛a實現(xiàn)此功能。(事件1分，一句代碼2分)

（2）（8分）完成相應注釋1和注釋2處的修改，實現(xiàn)根據(jù)身高和體重判斷胖瘦的功能并顯示“退出”按鈕注釋3處添加一條代碼（2分），同時“計算”按鈕無效注釋4處添加一條代碼（2分）。（每格2分，共4分）

（3）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題一”文件夾。

Private SubCommand1_Click()

Dim h AsSingle, w As Single, x As Single

h =Val(Text1.Text)

w =Val(Text2.Text)

x = w -h '注釋1：身高與體重之差

If x >=110 Then

Label4.Caption = "你太瘦了！"

ElseIf x >100 Then

Label4.Caption = "你真好" '注釋2：顯示結(jié)果

Else

Label4.Caption = "你太胖了！"

End If

'注釋3

'注釋4

End Sub

Private SubCommand2_Click()

End

End Sub

2．（12分）填空完成VB程序，其功能是求某一天是這一年的第幾天，界面設計和程序運行效果如圖5所示。

圖5

打開某路徑下的工程文件test2-2.vbp，完成下列操作：

（1）10分）輸入某一天（年、月、日），單擊“開始”按鈕，計算這一天在本年中的天數(shù)（第幾天）完成注釋（1）（2）（3）（4）（5）填空實施此功能。（每空2分，共10分）

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。

Option Base 1

Private SubCommand1_Click()

Dim a, T%, y%

a = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

y = Val((1)) '注釋1：取年份

If y Mod 400 = 0 Or (y Mod 4 = 0 And y Mod 100 <> 0) Then

a(2) = (2) '注釋2：判斷是否閏年

End If

n = Val((3)) '注釋3：取組合框當前月份

For i = 1 To n - 1

T = T + (4) '注釋4：每月的天數(shù)

Next i

Text2.Text = T + Val((5)) '注釋5：取列表框當日

End Sub

Private SubCommand2_Click()

End

End Sub

Private SubForm_Load()

For i = 1 To12

Combo1.AddItem i

Next i

For i = 1 To31

List1.AddItem i

Next i

End Sub

試題三、（20分）

修改考生文件夾下的VB程序使其具有下列功能：

在明文文本框中輸入一串字串，在密文文本框中輸出密文，加密規(guī)則：若字符為字母，將每個字母向后移1、3、5，結(jié)果仍是字母，其它字符保持不變。界面設計和運行效果如圖4和圖5所示。

圖4

圖5

打開“試題三”文件夾中的工程文件test3.vbp，并完成下列操作：

1. （3分）單擊單選按鈕的控件數(shù)組中任一個單選按鈕，決定移動位數(shù)N，添加適當?shù)氖录痛a實現(xiàn)此功能（注：變量N設置通用變量）

2. （15分）將3.txt文件復制到“加密”按鈕的事件中，完成相應的（1）、（2）（3）填空及在注釋1所在行添加一條代碼，并修改“注釋2”所在行的代碼，讓程序正確執(zhí)行，刪除所有注釋。

3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Dim n%

3.txt:

Dim m%,s$, x$

m = Len((1))

For i = 1 To m

x = Mid$(Text1.Text, i,1)

If x >= "A"And x <= "Z" Or (2) Then

x =Chr(Asc(x) + n)

If x> "z" Or x > "Z" And x < "a" Then

x = Chr(Asc(x) - （3）)

'注釋1：選擇結(jié)構(gòu)的格式

End If

s = s +val(x) '注釋2：處理后的字符連接

Next i

Text2.Text = s

第二套

試題一（30分）

設計一個模擬中獎號碼的VB程序。界面設計和運行效果如圖1和圖2所示

圖1

圖2

1．（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾下。

2.（14分）參照圖1和圖2完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

隨機抽數(shù)

Label1

caption

福利彩票抽獎程序

Label1

fontname

幼圓

Label1

fontsize

29

Label1

forecolor

&H000000FF&

Frame1

caption

中獎號碼

Text1(0)-text1(7)

fontsize

24（修改）

Frame1

name

Fr1

Command1

caption

開始&S

Text1(0)-text1(7)

backcolor

&H00C0C0FF&

Timer1

Enabled

false

Command2

caption

停止&X

Timer1

interval

100

Command2

Enabled

false

3.操作要求：

（1）（2分）將1.txt文件復制到適當?shù)氖录?分）中。

（2）（4分）完成“開始”按鈕的代碼，功能具有定時器開始工作，命令按鈕command1無效，命令按鈕command2有效。

(3) (4分)完成“停止”按鈕的代碼，功能具有定時器停止工作，命令按鈕command1有效，命令按鈕command2無效。

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

1.txt:

Randomize

For i = 0 To 7

Text1(i).Text = int(10*rnd)

Next i

試題二（25分）

1.（12分）下列VB程序段實現(xiàn)如下功能：加載窗體后（從鍵盤上輸入項數(shù)N）如圖3所示，輸出S的計算結(jié)果。請根據(jù)要求，將程序補充完整。S的值用消息框顯示

操作要求：

（1）（10分）打開工程文件test2-1.vbp，將2.txt文件復制到窗體加載事件中（2分），完成（1）、（2）、（4）的填空及注釋1的（3）代碼；讓程序正確運行。用消息框顯示結(jié)果如圖3所示：（每空2分，共8分）

圖3

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。

2-1txt

Dim s As Single，N%,t!

S=0:t=0

N= （1）

For i=1 to （2）

t=(-1)^(i+1)/i^2

（3） '將某項添加到S的累加器

next i

(4)

2. （13分）數(shù)列1，1，3, 5, 9,,15 , 25, 41…的規(guī)律是從第3個數(shù)開始，每個數(shù)是它前面兩個數(shù)的和加1。在考生文件夾中有一個工程文件test2-2.vbp (相應的窗體文件為test2-2.frm)。窗體Form1 中己經(jīng)給出了所有控件。編寫適當?shù)膩~件過程實現(xiàn)以下功能：在Txt1中輸入整數(shù)（例如30）,單擊“計算”按鈕，則在Txt2中顯示該數(shù)列第30項的值，如圖4所示

圖4

操作要求：

（1）（11分）打開工程文件test2-2.vbp，將2-2.txt文件復制適事件中（1分），把程序中的問號（1）（2）（3）（4）(5)改為正確的內(nèi)容，使其實現(xiàn)上述功能，但不得修改程序的其他部分，也不得修改控件的其他屬性。

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。

2-2txt

Dim n%, t&, a&, b&

n = Val(Text1.Text)

a = 1: b=1 '表示第一項和第二項

For i = (1) To n

t = (2) 't表示每一項的值

a = b

b = (3)

Next i

(4).Caption = "第" & n & "項的值"

Text2.Text =(5)

試題三（20分）

編寫模擬比賽評分的程序，功能為：單擊窗體，由鍵盤輸入10位評委的打分，

圖4

輸入時用動態(tài)提示如圖4所示。并在窗體中顯示，當輸入完第10位評委的打分后，在窗體顯示“去掉一個最高分：“和“去掉一個最低分：”及”最后得分：”的文字及數(shù)字。其中最后得分的計算公式為：去掉一個最分，去掉一個最低分后的8位評委的平均分（保留小數(shù)點一位）。效果為圖5所示。

圖5

1. （2分）打開工程文件test2.vbp，將3.txt文件復制到適當?shù)氖录?div style="height:15px;">

2. （16分）根據(jù)題意完善（1）（3）（6）（7）（8）的填空；根據(jù)注釋1、注釋2、注釋3的分別添加表達式、修改和一條代碼；讓程序正確執(zhí)行，刪除所有注釋。（考試素材處已修改）

3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Dim k As Single, i%, s As Single

Dim max As Single, min As Single

k = Val(InputBox("請輸入第1位評委打分"))

Print "評委打分："; k;

max = k: min = k: s =k

For i = 2 To (1)

k = '注釋1：鍵盤上輸入相應的評委打分

Print k;

If max<=(3) Then max =k

If min >= k Then min=k

s = s +i '注釋2：添加評委的分數(shù)到S累加器

Next i

'注釋3：換行

Print "去掉一個最高分："; (6)

Print "去掉一個最低分："; (7)

Print "最后得分"; (8)

第三套

試題一（30分）

1. （14分）在名為Forml的窗體上繪制一個名為Txt1的文本框控件和一個名為Tmr1的計時器控件，程序運行后，文本框中居中18號顯示的是當前的時間.而且文本框中所顯示的時間會隨時間的變化而改變，程序運行效果圖1所示:

圖1

（1）（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-1.frm、test1-1.vbp為文件名保存到試題一的文件夾下。

(2)（6））參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

name

me

Text1

Alignment

2

Text1

name

txt1

Text1

fontsize

18

Timer1

name

tmr1

Timer1

interval

1000

(3) （4分）編寫適當事件（2分），使文本框中所顯示的時間會隨時間的變化而改變（2分））

注意：程序中不得使用任何變量：文件必須存放在考生文件夾中，窗體文件名為 test1-1.frm，工程文件名為 test1-1.vbp。

2. (16分)在窗體上繪制兩個名稱分別為Lab1和Lab2的標簽，它們的標題分別為“請輸入一個正整數(shù)N”和“1+2+3+-+N=”；繪制兩個名稱分別為Txt1和Txt2的文本框，它們的內(nèi)容都設為空白：繪制一個名為Cmdl的命令按鈕，其標題為“計算”。編寫適當?shù)某绦颍钩绦蜻\行時.在Txtl中輸入一個正整數(shù)N,單擊“計算”按鈕，計箅出1+2+3+… +N的和顯示在Txt2中。程序運行結(jié)果如圖2所示。

圖2

（1）（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-2.frm、test1-2.vbp為文件名保存到試題一的文件夾下。

(2)（8））參照圖2完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Text1

name

txt1

Text2

name

txt2

Label1

name

lab1

Label2

name

lab2

Label1

caption

請輸入一個正整數(shù)N

Label2

caption

1+2+3+……+N=

Command1

name

cmd1

Command1

caption

計算

(3) （4分）編寫適當事件（2分），使程序運行時.在Txtl中輸入一個正整數(shù)N,單擊“計算”按鈕，計箅出1+2+3+… +N的和顯示在Txt2中。(要求用FOR語句結(jié)構(gòu))

注意：程序中不得使用任何變量：文件必須存放在考生文件夾試題一中，窗體文件名為 test1-2.frm，工程文件名為 test1-2.vbp。

試題二（25分）

1.（13分）有一個VB程序其功能：實施字幕滾動。界面設計和運行效果如圖3和圖4所示

圖3

圖4

操作要求：

（1）（4分）添加適當事件，定時器間隔時間（interval）由滾動條事件決定，當拖動滾動塊時來改變字符滾動速度；（事件2分，一條代碼2分）

（2）（4）單擊“開始”按鈕，定時器工作且“停止”按鈕顯示，單擊“停止”按鈕，定時器不工作，且“停止”按鈕隱藏。（每一句代碼1分，共4分）

（3）（5分）定時器事件是將標簽1每隔一定時間始終從左向右以每200緹移動；將2-1.txt文件復制到相應的事件（1分）完成（1）（2）填空（每格2分，共4分）

（4）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。

2-1txt

If Label1.Left <= (1) Then

Label1.Left = Label1.Left +(2)

Else

Label1.Left = -Label.Width

end if

2．（12分）有一個VB程序功能是：找出此號碼，有一張單據(jù)上有一個五位數(shù)的號碼67**8，其中百位和十位上的數(shù)字看不清了，但知道該數(shù)能被78整除，也能被67整除，求出該號碼。運行結(jié)果圖5所示。

圖5

打開某路徑下試題二文件夾下工程文件test2-2.vbp，完成下列操作：

（1）（10分）完善“填數(shù)字”事件（1）（2）（3）（4）（5）的代碼，（考試素材已修改）

3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。

Private SubCommand1_Click()

Dim x%, y%,a&

For x =0 To (1) 'X表示百位

For y = 0 To (2) 'Y表示十位

a = 67008 + (3)

If a mod 78=0 (4) a mod 67=0 Then

Label3.Caption = x

Label4.Caption = y

End If

(5)

Next x

End Sub

試題三（20分）

用VB設計一個成績統(tǒng)計程序。程序運行后，先后出現(xiàn)如下圖4和圖5的對話框，最后運行效果如圖5所示。（參考答案已修改好）

圖4

圖5

圖6

1. （4分）當窗體啟動時（2分），要求先輸入需要統(tǒng)計的學生人數(shù)，輸入時要有文字提示，如圖4所示，再輸入各學生分數(shù)，如圖5所示；將3.txt文件復制到相應的事件中；完成（1）填空的代碼（每格2空，共4分），調(diào)試程序，讓程序正確執(zhí)行。

2. （8分）單擊“統(tǒng)計”按鈕，統(tǒng)計出合格人數(shù)、不合格人數(shù)及平均分（保留1位小數(shù)）；完成相應的注釋1、2、3、4填空，其中在注釋3處添加一條代碼。

3. （6分）單擊“排序”按鈕，在窗體上顯示分數(shù)由高到低的排序，要求每行顯示4個，如圖5所示；完成（5）（6）填空，在注釋5處添加一條代碼（2分）。

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

3txt

n = Val(InputBox("請輸入學生人數(shù)："))

ReDim a(n)

For i = 1 To n

a(i) = (1)

Next i

Dim a() As Single, n%

Private Sub Command1_Click()

Dim s!, avg!, k%

For i = 1 To (1) '注釋1：學生人數(shù)

s = s + (2) '注釋2：將每個學生成績添加到累加器S

'注釋3：統(tǒng)計判斷成績大于和等于60的學生人數(shù)存放在變量K

Next i

Text1.Text = k

Text2.Text = n - k

Text3.Text = (4) '注釋4：求平均分的表達式

End Sub

Private Sub Command2_Click()

For i = 1 To n - 1 '冒泡法排序從大到小

For j = 1 To (5)

If (6) Then

t = a(j): a(j) = a(j + 1): a(j+ 1) = t

End If

Next j

Next i

Print "成績排序："

For i = 1 To n

Print a(i),

'注釋5：按每行4個成績換行格式打印

Next i

End Sub

Private Sub Command3_Click()

End

End Sub

第四套

試題一（30分）

設計一個VB程序其功能：實施字體設置。界面設計和運行效果如圖1和圖2所示

圖1

圖2

1．（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾下。

2. (14分）參照圖1和圖2完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

字體設置

Text1

text

VB程序設計

Frame1

caption

顏色

HScroll1

min

10

Label2

caption

大小

HScroll1

max

30

Label1

caption

字體

Command1

caption

閉關窗口

Option1(0)

caption

紅色

Option1(0)

backcolor

&H000000FF&

Option1(1)

caption

綠色

Option1(1)

backcolor

&H0000FF00&

Option1(2)

caption

藍色

Option1(2)

backcolor

&H00FF0000&

3. (1) （2分）窗體加載后，在組合框中添加字體：黑體、隸書、幼圓，添加適當?shù)氖录崿F(xiàn)此功能。(添加內(nèi)容1分，事件1分)

(2)（2分）對option1控件數(shù)組添加代碼，要求單擊相應的顏色后文本框里的文字顏色發(fā)生相應變化。（程序中不得使用任何變量，用動態(tài)屬性語句格式來編寫）

（3）（4分）對combo1添加適當?shù)氖录筮x擇字體后，文本框中的文字的字體發(fā)生相應的變化。

（4）（2分）對hscroll1添加代碼，要求點擊滾動條默認事件后，文本框中的文字大小發(fā)生相應的變化。

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

試題二（25分）

用VB編制一個程序，初始界面如圖3所示。當用戶從鍵盤輸入任意字符到文本框后，單擊“統(tǒng)計”按鈕，則對其中的字母、數(shù)字進行分類統(tǒng)計，并將統(tǒng)計結(jié)果分別顯示在2個相應的

圖3 圖4

標簽（label4、label5）中，如圖4所示；單擊“退出”按鈕，則關閉窗口退出程序。（注：不能用大小寫函數(shù)）

1. （5分）打開工程文件test2.vbp，修改相應的屬性，完成如圖3界面；

2. (18分)

（1）將文本文件2.txt復制到適當?shù)氖录校?分），根據(jù)題意完成（1）的填空及注釋1處（2）、注釋2處（3）的填空，修改注釋3處代碼中的條件。（填空及修改各3分，共12分）

（2）（2分）單擊“退出”按鈕，程序結(jié)束。

3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。

2txt

Dim x$,N%, p%, k%

N =Len(Text1.Text)

For i = 1To（1）

x=mid(（2）) '注釋1：獲取一個字符

Ifx>="A" and x<="Z" and ( 3)Then '注釋2：判斷是否為字母,但不能用大小寫函數(shù)

k = k + 1

ElseIf x>=0 or x<=9 Then '注釋3：判斷是否為數(shù)字

p = p + 1

EndIf

Next i

Label4.Caption= k

Label5.Caption= p

試題三（20分）

用VB語言編寫一個程序其功能：產(chǎn)生30個[]300，500]的隨機整數(shù)，找其中的素數(shù)并將素數(shù)進行排序。程序運行界面圖3、圖4、圖5、圖6所示，窗體上有三個文本框（從上到下依次為text1、text2和text3，三個文本框均允許自動換行），三個命令按鈕（從上到下依次為command1、command2和command3）并command2和command3無效。

圖5 圖6

圖7 圖8

1．（6分）打開工程文件test3.vbp，將文本文件2.txt中選擇符合條件的代碼（2分）復制到適當?shù)氖录?分）中，實施隨機產(chǎn)生30個300-500之間的整數(shù)，顯示在text1中，數(shù)與數(shù)之間用空格隔開。并要求在顯示前三個文本框清空，實現(xiàn)圖6界面的效果（2分）。

2. （6分）單擊“素數(shù)“按鈕，找出這30個數(shù)中的素數(shù)并顯示在text2中，數(shù)與數(shù)之間用空格隔開。根據(jù)題意完成（1）（2）（3）的填空。效果圖7所示。

3. （6分）單擊“排序”按鈕，用選擇法將找出的素數(shù)按從大到小的順序排序，顯示在text3中，數(shù)與數(shù)之間用空格隔開。（完成注釋（4）（5）（6）處填空、修改與添加一條代碼）效果圖8所示。

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Dim a%(1 To 30), b%(1 To 30), n%

Private Sub Command2_Click()

Dim f%

For i = 1 To 30

f = 0

For j = 2 To a(i) - 1

If (1) Mod j = 0 Then

f = 1

Exit For

End If

Next j

If (2) Then

n = n + 1

b(n) = (3)

End If

Next i

For i = 1 To n

Text2.Text = Text2.Text & b(i)& " "

Next i

End Sub

Private Sub Command3_Click()

Dim t%, p%

For i = 1 To (4) '注釋4：對素數(shù)的個數(shù)進行排序

p = i

For j = i + 1 To n

If b(p) > b(j) Then '注釋5：按大到小進行比較

p = j

End If

Next j

If i <> p Then

t = b(p): b(p) = b(i): b(i) =t

End If

Next i

For i = 1 To n

' 注釋6：將素數(shù)按圖6的格式進行打印

Next i

End Sub

3txt

實現(xiàn)產(chǎn)生30個[300，500]隨機整數(shù)的一段代碼是

（A）For i = 1 To 30

a(i) = Int(200 * Rnd) + 300

Text1.Text = Text1.Text & a(i) & " "

Next i

（B）For i = 1 To 30

a(i) = Int(201 * Rnd) + 300

Text1.Text = Text1.Text +str(a(i))

Next i

(C) For i = 1 To 30

a(i) = Int(201 * Rnd) + 300

Text1.Text = Text1.Text & a(i) & " "

Next i

第五套

試題一：（30分）

1. （18分）編寫一個程序，輸入貨物的數(shù)量及單價，求總價并輸出。窗體標題設置為“模擬售貨機”，窗體form1上的兩個標簽(分別命名為 Lab1 和 Lab2，標題為“貨物的數(shù)量(個)：”和“貨物的單價(元)：”)兩個名稱分別為 Txt1 和 Txt2 的文本框;一個名稱為 Cmd1 的命令按鈕，其標題為“總價”。結(jié)果用消息框顯示如圖2所示。當用戶輸入貨物的數(shù)量與單價后，用戶單擊“總價”按鈕或按回車鍵，輸出正確的結(jié)果，程序運行效果如圖1 所示。（要求：程序中不得使用變量，事件過程中只能寫一條語句。）

圖1

圖2

操作要求：

（1）（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-1.frm、test1-1.vbp為文件名保存到試題一的文件夾下。

（2）（10分）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

模擬售貨機

標簽1

name

lab1

標簽2

name

lab2

標簽1

caption

貨物的數(shù)量(個)

標簽2

casption

貨物的單價(元)

文本框1

name

txt1

文本框2

name

txt2

命令按鈕

name

cmd1

命令按鈕

caption

總價

命令按鈕

default

true

（3）（4分）編寫適當?shù)氖录?當用戶輸入貨物的數(shù)量及單價，用消息框輸出結(jié)果。（說明：程序中不得使用變量，事件過程中只能寫一條語句。）

2．（12分）在名稱為Forml的窗體上畫個列表框,其名稱為L1;一個水平滾動條，其名稱為HS1，Smallchange屬性為2。Largechange屬性為10。Min屬性為10, Max屬性為100,編寫適應的事件過程。程序運行后，如果把滾動框移到某個位置，然后單擊窗體，則在列表框中添加一個項其內(nèi)容是“XX”，其中XX是滾動框所在的位置，如圖2所示。

圖2

操作要求：

（1）（2分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1-2.frm、test1-2.vbp為文件名保存到試題一的文件夾下。

（2）（6分）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

列表框

name

l1

水平滾動條

name

hs1

水平滾動條

Smallchange

2

水平滾動條

Largechange

10

水平滾動條

max

100

水平滾動條

min

10

（3）（4分）根據(jù)題意編寫適當?shù)氖录痛a，實現(xiàn)如圖2效果。（說明：程序中不得使用變量，事件過程中只能寫一條語句。）

試題二（25分）

1. （15分）設計如圖3、圖4所示的程序，單擊按鈕，通過輸入框輸入數(shù)字，如果是正數(shù)，則顯示在List1中，如果是負數(shù)顯示在List2中。同時統(tǒng)計正數(shù)、負數(shù)的和，顯示在相應的標簽中，圖5所示。要求輸入框在輸入時，能動態(tài)提示當前輸入的是第幾個數(shù)，如圖5所示。完成命令按鈕相關的代碼。

圖3

圖4

圖5

打開某路徑下的工程文件test2-1.vbp，完成下列操作：

（1）（12分）將2.txt文件復制到命令按鈕的單擊事件中（3分），根據(jù)題意完成（1）（2）（3）（4）（5），讓程序正確執(zhí)行。（每填空2分，共10分。

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。

Private Sub Command1_Click()

Dim n%, a!, s1!, s2!

'變量N表示數(shù)據(jù)的個數(shù)，變量a表示從鍵盤輸入一個數(shù)

's1，s2分別表示正數(shù)和負數(shù)的和

'變量名不得更改

End Sub

2． 10分）在考生文件夾下有一個工程文件test2-2.vbp，功能是用來計算勾股定理整數(shù)組合的個數(shù)。勾股定理中3個數(shù)的關系是：a2+b2=C2。例如，3、4,5就是一個滿足條件的整數(shù)組合(注意：a，b，C分別為4，3，5與分別為3，4，5被視為同一個組合，不應該重復計算)。編寫程序，統(tǒng)計均在60以內(nèi)的三個數(shù)滿足上述關系的整數(shù)組合的個數(shù)，并顯示在標簽Labell中。如圖6所示：

圖6

注意：不得修改原有程序的控件屬性。在結(jié)束程序運行之前，必須至少正確運行一次程序，將統(tǒng)計的結(jié)果顯示在標簽中，否則無成績。最后把修改后的文件按原文件名存盤。

打開某路徑下的工程文件test2-2.vbp，完成下列操作：

(1)（8分）根據(jù)題意將代碼窗口中的（1）（2）（3）（4）填空完成。（每格2分，共8分）

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。

Private Sub Command1_Click()

Dim i%, j%, k%, m%

For i = 1 To (1)

For j = 1 To 60

For k = 1 To (2)

If i ^ 2 + j ^ 2 =k ^ 2 Then

m = m + (3)

End If

Next k

Next j

Next i

Label1.Caption = m / (4)

End Sub

2. Txt

n = 1

a = Val(InputBox("請輸入第" & n & "個數(shù)，輸入0結(jié)束","輸入"))

Do While (1)

If a > 0 Then

List1.AddItem a

s1 = (2)

Else

List2.AddItem a

s2 = s2 + a

End If

n = (3)

a = Val(InputBox("請輸入第" &(4) & "個數(shù)，輸入0結(jié)束"，"輸入"))

(5)

Label3.Caption = Label3.Caption & s1

Label4.Caption = Label4.Caption & s2

試題三（20分）

設計如圖9、圖10所示程序，初始排序按鈕不可用。單擊開始按鈕，每隔0.2秒在6個文本框中隨機產(chǎn)生6個0-9的數(shù)字，同時按鈕標題變成“結(jié)束”，如圖10所示。單擊結(jié)束按鈕，文本框中數(shù)字停止變化，按鈕標題變成“開始”，同時排序按鈕可用。單擊“排序”按鈕，把文本框中的數(shù)字從小到大排序，顯示在相應的標簽中，如圖10所示。

圖9

圖10

打開某路徑下的工程文件test3.vbp，完成下列操作：

1. （6分）單擊開始按鈕，每隔0.2秒在6個文本框中隨機產(chǎn)生6個0-9的數(shù)字，同時按鈕標題變成“結(jié)束”，如圖10所示。單擊結(jié)束按鈕，文本框中數(shù)字停止變化，按鈕標題變成“開始”。完成（1）（2）（3）的填空。

2. （4分）完成定時器事件中（4）、（5）的填空；（每格2分，共4分）

3. （8分）完成排序事件中的（6）（7）、（8）、（9）的填空；（每格2分，共8分）

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Dim a%(0 To5)

Private SubCommand1_Click()

IfCommand1.Caption = "開始" Then

Timer1.Enabled = (1)

Command1.Caption = "結(jié)束"

Else

Timer1.Enabled = False

Command1.Caption = (2)

Command2.Enabled = (3)

End If

End Sub

Private SubCommand2_Click()

For i = 0 To5

a(i) =Val((6))

Next i

For i = 1 To5

For j = 0 To 5 - i

If (7) Then

t = a(j)

a(j) = a(j + 1)

a(j + 1) = t

End If

Next j

Next i

For i = 0 To5

s = (8)

Next i

Label1.Caption= "中獎號碼為："& (9)

End Sub

Private SubForm_Load()

End Sub

Private SubTimer1_Timer()

For i = 0 To(4)

Text1(i).Text= Int((5) * Rnd)

Next i

End Sub

第六套

試題一（30分）

設計一個VB程序，實施硬件各參數(shù)的選擇顯示在列表框中如下圖2所示。

圖1

圖2

操作要求：

1．（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾中。

2.（12分）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

硬件配置

Combo1

text

空白

Label1

caption

所選配置

Form1

fontsize

小四

Combo1

style

1

Frame1

caption

內(nèi)存

Frame2

caption

其它設備

Option1

caption

4G

Option2

caption

8G

Check1

caption

聲卡

Check2

caption

顯卡

Check3

caption

網(wǎng)卡

3. （1）（2分）將1.txt文件內(nèi)容（六種電腦品牌）添加到適當?shù)氖录?，實現(xiàn)窗體加載后顯示結(jié)果如圖2所示。（窗體加載時，組合框中已添加六個項目）

（2）（12分）分別單擊各控件的適當事件和代碼，結(jié)果如圖2所示。

原（3）己刪除

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

1.txt

"蘋果"

"惠普"

"方正"

"戴爾"

"華碩"

"聯(lián)想

試題二：（25分）

1. （12分）用VB編制一個程序，初始界面如圖3所示。當用戶從鍵盤輸入任意字符到文本框1（文本框多行顯示）后，單擊“統(tǒng)計”按鈕，則對其中的字母、數(shù)字、空格、其他字符進行分類統(tǒng)計，并將統(tǒng)計結(jié)果分別顯示在相應的文本框中．如圖4所示；單擊“退出”按鈕，則關閉窗口退出程序。（此題不用大小寫涵數(shù)）

圖3

圖4

打開某路徑下的試題二文件夾中工程文件test2-1.vbp，完成下列操作：

（1）（10分）將2.txt文件復制到命令按鈕的適當事件中（2分），根據(jù)題意完成（1）（2）（3）（4）的填空，讓程序正確執(zhí)行。（每填空2分，共8分）

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。

2.txt

Dim n1%, n2%, n3%, n4%, m%, x$

m = Len(text1.text)

For i = 1 To (1)

x = Mid(Text1.Text, i, 1)

If x >= "A" And x <="Z" Or (2) Then

n1 = n1 + 1

ElseIf x >= "0" And x <="9" Then

n2 =(3)

ElseIf x = " " Then

n3 = n3 + 1

Else

n4 = n4 + 1

(4)

Next i

Text2.Text = n1

Text3.Text = n2

Text4.Text = n3

Text5.Text = n4

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End

End Sub

2. （新增加的）（13分）修改VB程序，使其具有下列功能：單擊“找素數(shù)”按鈕（Command1），在列表框（list1）中顯示2-100之間所有的素數(shù)。設計界面和運行效果如圖1、圖2所示。

圖1

圖2

打開考生文件夾下的工程文件”text2-2.vbp”，完成下列操作：

（1）（3分）選擇“找素數(shù)”按鈕合適的事件過程（2分），將考生文件夾下”code1.txt”文件中的代碼復制到該過程中（1分）。

（2）（8分）修改”注釋1”、”注釋2”、”注釋3”、”注釋4”所在行的代碼，能讓程序正確執(zhí)行

（3）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-2.exe保存到試題目錄下的“試題二”文件夾。

Code1

Dim n%, f%, j%

'注釋1

f = 0

For j = 1 To n

'注釋2

f = 1 '注釋3

end if

Next j

If f=2 Then

list1.additem =n '注釋4

end if

next n

Private Sub Command1_Click()

End Sub

試題三（20分）

用VB編制程序，初始界面如圖5所示，當單擊“輸入行數(shù)n”按鈕時，彈出對話框如圖7所示，輸入圖形的行數(shù)n，n的范圍是[1，9]，若不符合要求則重新輸入直到符合為止，如圖6。單擊“打印P按鈕”則輸出相應的圖案，如圖8。

圖5

圖6

圖7

圖8

打開某路徑下的試題二文件夾中工程文件test3.vbp，完成下列操作：

1．（6分）將3.txt文件復制到適當?shù)氖录?，根?jù)題意完成（1）、（2）、（3）的填空。讓程序能正確執(zhí)行并符合題意。

2．（12分）單擊打印圖形，能正確打印如圖的圖形且最后一行位置從5列開始打印。完成相應的（4）、（5）、（6）（7）及注釋1處添加一條代碼，注釋2處修改相應的代碼。（參考答案已修改好）

3．（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

3.txt

n = Val(InputBox("請輸入行數(shù)（1-9"))

Do Until (1)

MsgBox "行數(shù)為符合，請重新輸入", ,"ks1"

n = (2)

Loop

Command1.Enabled = (3)

Dim (4) as Integer

Private Sub Command1_Click()

Cls

For i = 1 To n

Print (5);

For j = 1 To (6)

If (7) Then

Print"*";

Else

'注釋1：只能用chr()函數(shù)打印數(shù)字字符

End If

Nextj '

Print Tab(5); '注釋2：換行

Next i

End Sub

第七套

試題一：（30分）

設計一個選課系統(tǒng)，程序運行時,在選課名稱的列表框中加載如圖1所示的課程

圖1

圖2

操作要求：

1．（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾下。

2.（12）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：

（每個屬性設置1分）

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

課程選擇

Form1

fontsize

26

Label2

caption

已選課名稱

Label1

caption

課程名稱

List2

backcolor

&H00FFFF80&

List1

backcolor

&H0080C0FF&

Command1

name

Cmd1

Command2

name

Cmd2

Command1

caption

>>

Command2

caption

<<

Command1

Enabled

false

Command2

Enabled

false

3. （1）（4分）窗體加載時，在列表框1已加載圖1的項目: 語文、英語、數(shù)學、程序設計、網(wǎng)絡操作系統(tǒng)、網(wǎng)絡設備配置、PR、PS、體育、心理、職業(yè)道德、音樂。（加載事件2分，添加列表框內(nèi)容2分）

（2）（5分）編適當事件當用戶選中列表框1的內(nèi)容，command1按鈕有效，單擊“》”按鈕，則把選中的課程移動到右邊列表框中；且command1按鈕又變成無效。（每知識點1分，共5分）

（3）（5分）編適當事件當用戶選中列表框2的內(nèi)容，command2按鈕有效，單擊“《”按鈕，則把選中的課程移動到左邊列表框中；且command2按鈕又變成無效。（每知識點1分，共5分）

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

試題二（25分）

1. （15分）VB程序功能：激活窗體通過輸入框隨機給小學生出 10 道二位正整數(shù)的加法題，每答對一道題得10 分，最后用消息框輸出小學生的得分。程序運行界面如圖3和圖4所示。

圖3

圖4

打開某路徑下的工程文件test2.vbp，完成下列操作：

（1）（3分）將文件2-1.txt復制到適當?shù)氖录腥ァ?div style="height:15px;">

（2）（10分）事件中的代碼進行相應的填空（1）（2）（3）（4）（5），并能正確執(zhí)行程序的結(jié)果。（每空2分，共10分）

（3）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。

2-1.txt

Dim a%, b%, x%, s%

Randomize

For i = 1 To 10

a = (1)

b = Int(90 * Rnd) + 10

x = (2)

If a + b = (3) Then

s = s + (4)

Else

MsgBox "繼續(xù)努力，加油！"

End If

Next i

(5)

2. （10分）在考生文件夾下有一個工程文件test2-1.vbp。在其窗體中“待選城市”下的List1列表框中有若干個城市名稱。程序運行時，選中List1中若干個列表項(如圖5所示)，單擊“選中”按鈕則把選中的項目移到List2中，單擊“顯示”，則在Text1文本框中顯示這些選中的城市(如圖6所示)。已經(jīng)給出了所有控件和程序，但程序不完整。

圖5

圖6

（1）（8分）要求：請去掉程序中的注釋符，把代碼窗口中的程序的?改為正確的內(nèi)容，使其能正確運行，但不能修改程序中的其他部分和控件屬性。最后用原來的文件名保存工程文件和窗體文件。（程序中有4個？各2分，共8分）

（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾

Private Sub Command1_Click()

Dim k%

For k = List1.ListCount - 1 To 0 ？'K從最大到0，則步長應為-1

If List1.Selected(k) = True Then

List2.AddItem ？'添加項到list2中

List1.RemoveItem ？'通過下標刪除list1中的項目

End If

Next k

End Sub

Private Sub Command2_Click()

Dim k%

Text1.Text = "已選中的城市有："

For k = 0 To List2.ListCount - 1

Text1.Text = ? + " " + List2.List(k) '將list2中的項目連接在text1中的內(nèi)容后

Next k

End Sub

Private Sub Form_Load()

List1.AddItem "寧波"

List1.AddItem "杭州"

List1.AddItem "紹興"

List1.AddItem "湖州"

List1.AddItem "溫州"

List1.AddItem "臺州"

List1.AddItem "嘉興"

List1.AddItem "海鹽"

End Sub

試題三（20分）

VB程序功能：產(chǎn)生15[0,100]的偶數(shù)進行排序。單擊“排序”按鈕，則將數(shù)組a 中的15個數(shù)按從小到大的順序（用冒泡法）顯示在文本框Text2中。

圖7

圖8

打開某路徑下的工程文件test3.vbp，初始界面如上圖7所示，完成下列操作：

1.（2分）將文本框1設置成多行顯示；

2. （8分）單擊“產(chǎn)生數(shù)組”按鈕，用函數(shù)生成15個0~100之間（不含0和100）并將它們保存在一維數(shù)組a 中，同時也將這15個數(shù)值顯示在Text1中，結(jié)果如圖8所示；完成（1）（2）（3）（4）的填空。

3. （8分）單擊“排序”按鈕，則將數(shù)組a 中的15數(shù)按從小到大的順序（用冒泡法）顯示在文本框Text2中，結(jié)果如圖8所示。完成（5）（6）（7）（8）的填空。

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Dim a%(15)

Private Sub Command1_Click()

For i = 1 To 15

a(i) = Int((1) * Rnd) + 1 '產(chǎn)生(0，100)的隨機整數(shù)

If a(i)(2) <> 0 Then i = i - 1

Next i

For i = 1 To (3)

Text1.Text = Text1.Text + (4)

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 14

For j = 1 To (5)

If a(j) >= (6) Then

t = a(j): a(j)= a(j+1):(7)

End If

Next j

Next i

For i = 1 To 15

Text2.Text = Text2.Text & (8)& " "

Next i

End Sub

第八套

試題一：（30分）

設計一個VB程序：其功能實現(xiàn)簡單四則運算。運行界面如圖1和圖2所示

圖1

圖2

操作要求：

1．（4分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到試題一的文件夾下。

2.（12分）參照圖1和圖2完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性設置1分）

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

四則運算

Form1

maxbutton

false

Form1

minbutton

false

Form1

fontsize

四號字

Frame2

caption

運算符號

Frame1

caption

兩個操作數(shù)

Option1

caption

+

Frame3

caption

運算結(jié)果

Option2

caption

-

Option3

caption

*

Option4

caption

/

Label1

borderstyle

1

3. （12分）分別單擊“+”、“-”、“*”“/”單選按鈕，實現(xiàn)加法、減法、乘法與除法運算，結(jié)果如圖2所示；（注意：程序中不得使用任何變量，每個事件各1分，共4分，每個事件只寫一句正確代碼各2分，共8分，其中單擊“/”單選按鈕時，不考慮除數(shù)為零，計算結(jié)果在標簽1顯示。）

4．（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

試題二（25分）（重新出題）

1.（15分）打開工程文件test2.vbp,程序運行時界面如圖3、4所示，

圖3

圖4

操作要求：

（1）（6分）添加適當事件（各1分，共2分）若選中“累加”單選按鈕，則“10”、“l(fā)2”單選按鈕不可用，（2分）若選中“階乘”單選按鈕，則“1000”、“2000”單選按鈕不可用（2分）(如圖3所示)。

（2）（8分）選中一組中的一個單選按鈕后，單擊“計算”按鈕，則相應的計算結(jié)果在文本框中顯示(例如，選中“累加”和“2000”，則計算1+2+3+…+2000，選中“階乘”和“10”，則計算10!。實現(xiàn)此功能完成（1）(2)(3)(4)的填空

（3）（1分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。

注意：操作（1）中程序中不得使用任何變量；操作（2）要求選中按鈕的數(shù)值用變量N表示，N為整型變量，累加或累乘的結(jié)果用變量S表示，S為單精度，文件必須存放在考生文件中，工程文件名為test2.vbp，窗體文件名為test2.frm。

Dim n%

Private Sub Command1_Click()

Dim s!

If Option5.Value = True Then

If Option1.Value = True Then

n = Option1.(1)

Else

n = Option2.Caption

End If

For i = 1 To n

s = s + (2)

Next i

Else

If Option3.Value = True Then

n = Option3.Caption

Else

n = Option4.Caption

End If

s = (3)

For i = 1 To n

s = s * i

Next i

End If

Text1.Text = Str((4))

End Sub

Private Sub Option5_Click()

Option1.Enabled = True

Option2.Enabled = True

Option3.Enabled = False

Option4.Enabled = False

End Sub

Private Sub Option6_Click()

Option1.Enabled = False

Option2.Enabled = False

Option3.Enabled = True

Option4.Enabled = True

End Sub

2．（10分）在考生文件夾中有一個工程文件test2-1.vbp及窗體文件test2-1.frm。在名為Forml的窗體上有一個名為Txtl的文本框：還有兩個名稱分別Cmd丨和Cmd2的命令按鈕，它們的標題分別為“找第一個素數(shù)度”和“退出”，如圖5所示。

圖5

圖6

編寫一個程序其功能：在文本框輸入一個整數(shù)（例如：678），則找出大于此文本框輸入整數(shù)的第1個素數(shù)，并顯示在消息框中如圖6所示：

（1）（8）完成代碼窗口中程序（1）（2）（3）（4）填空

（2）（2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2-1.exe保存到試題目錄下的“試題二”文件夾。

Private SubCommand1_Click()

Dim x%, t AsBoolean, f%

x =Val(Text1.Text)

x = x + (1)

t = False

Do Until (2)

f = 0

For i = 2 To x - 1

If x Mod i = 0 Then

f = 1: Exit For

End If

Next i

If (3) Then

MsgBox "大于"& Text1.Text & "第一個素數(shù)為" & x

t = (4)

Else

x = x + 1

End If

Loop

End Sub

試題三（20分）

修改VB程序?qū)嵤┐斯δ転椋壕帉懸粋€十佳歌手評分系統(tǒng)，已知共有不多于100位選手參加比賽，共有7位評委打分，選手最后得分為去掉一個最高分和一個最低分，最后求平均分（保留兩位小數(shù)）將選手得分顯示在list1列表框中，再根據(jù)選手得分成績決定名次如圖4所示。

圖4

打開某路徑下的工程文件test3.vbp，完成下列操作：

1. （6分）評委分數(shù)輸入在控件數(shù)組Text1文本框中，單擊“得分”按鈕command1，計算選手得分完成相應的填空（1）（2）及注釋1處修改相應的代碼。

2. （6分）單擊“名次”按鈕，結(jié)果顯示在list2列表框中如圖4所示。完成注釋1處添加一條代碼；注釋2處完成填空（1）；注釋3處修改相應的代碼。（代碼中的順序不得更改）

3. （1）（4分）添加“清空”事件，將控件數(shù)組文本框1中數(shù)據(jù)清空，（要求用循環(huán)結(jié)構(gòu)）；

（2）（2分）單擊“退出”按鈕command3，退出評分系統(tǒng)。

1. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Dim n%,a!(100)

Private SubCommand1_Click()

Dim max!,min!, s!, x!

max =Val(Text1(0).Text)

min = max

s = max

For i = 1 To6

x =(1)

If max<= x Then max = x

If min>= x Then min = x

s = s+ x

Next i

n = (2)

a(n) = Int((s- max - min) / 5 * 10 + 0.5) / 10 '注釋1:保留兩位小數(shù)

List1.AddItemn & "號選手得分為：" & a(n)

End Sub

Private SubCommand2_Click()

Dim m%, k%

List2.Clear

For i = 1 Ton

'注釋1：每位選手都當自己是第1名

For j= 1 To n

If a(i)(1)a(j) Then k = k + 1 '注釋2：若小于其它選手，則名次加1

Next j

List2.AddItem a(k) '注釋3：添加名次

Next i

End Sub

2016年8套題

第一套

試題一 (30分)

設計一個VB程序，使其具有下列QQ登錄功能：當組合框中輸入QQ號或在組合框中選中QQ號（22887651），在文本框中輸入密碼（123456），若輸入正確，顯示所圖2的顯示結(jié)果；若不正確，則彈出消息框如圖3所示。運行效果如圖1、圖2與圖3所示。

圖1

圖2

圖3

1．（2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1-1.frm”、“test1-2.frm“、“test1.vbp”為文件名保存到“試題一 ”文件夾下。

2．（12分）參照圖1和圖2完成界面設計：按表1添加相關對象并設置相關屬性。

表1

對象

設置內(nèi)容

“QQ登錄”的窗體

名稱為form1,標題為“QQ登錄”

QQ圖片

名稱為picture1；圖片為考試結(jié)果\程序設計\試題一文件夾下的Q1.jpg。

QQ頭像圖片

名稱為image1，圖片為考試結(jié)果\程序設計\試題一文件夾下的Q2.jpg。

組合框

名稱為combo1

“密碼”文本框

名稱為text1，文本框的內(nèi)容為“密碼”。

“登錄”單選按鈕

名稱為 command1，標題內(nèi)容為“登錄”。

“登錄”單選按鈕

名稱為command1，背景顏色為&H00FF8080&

“登錄”單選按鈕

名稱為command1，命令按鈕外觀為圖形

“登錄”單選按鈕

名稱為command1，不允許用戶進行操作

窗體2

名稱為form2，背景圖片為考試結(jié)果\程序設計\試題一文件夾下的Q3.jpg。

窗體2上標簽

名稱為lab1,顏色為紅色，并居中

3. （6分）當程序運行后，組合框已有一個QQ號（22887651），用適當?shù)氖录崿F(xiàn)此功能；在文本框輸入時，命令按鈕允許用戶進行操作，文本框內(nèi)容用“*”顯示，也用適當?shù)氖录崿F(xiàn)功能。

4. （8分）當組合框中輸入QQ號或在組合框中選中QQ號（22887651），在文本框中輸入密碼（123456），單擊“登錄”，若輸入正確，則顯示所圖2的結(jié)果；若不正確，則顯示所圖3顯示的結(jié)果。

5．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test1.exe”并保存到“試題一“文件夾下。

試題二（25分）

修改VB程序，考生文件夾下有一個工程文件test2.vbp。其窗體上有一個標題為“得分”的框架，在框架中有一個名稱為Textl的文本框數(shù)組，含6個文本框控件;文本框Text2用來輸入難度系數(shù)。程序運行時，單擊“開始”按鈕時，左邊的6個文本框中每0.5秒隨機產(chǎn)生[0，10]的帶一位小數(shù)的數(shù)；且“開始”按鈕的標題變?yōu)椤巴Ｖ埂保瑔螕簟巴Ｖ埂?，“計算”按鈕顯示，輸入難度系數(shù)后，單擊“計算分數(shù)”按鈕，則可計算出最后得分并顯示在文本框Text3中(如圖所示)。計算方法：去掉1個最高得分和1個最低得分，求剩下得分的平均分，再乘以3，再乘以難度系數(shù)。最后結(jié)果保留到第2位小數(shù)，不四舍五入。

圖3

圖4

打開試題二“文件夾中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗體上添加計時器，并按表2設置相關屬性。

表2

對象

設置內(nèi)容

計時器

名稱為Timer1；間隔時間0.5秒；默認不啟用。

2．（6分）選擇“開始”按鈕合適的事件過程，實現(xiàn)如下功能：單擊“開始”按鈕，計時器啟用，且“開始”按鈕的標題變?yōu)椤巴Ｖ埂?，單擊“停止”按鈕，計時器不啟用，并“計算”按鈕顯示，“停止”按鈕又變?yōu)椤伴_始”按鈕。將“D:\test1111\考試結(jié)果\程序設計\試題二“文件夾下“code1.txt”文件中的所有代碼復制到相應過程中并完成“-①-”、“-②-”填空實現(xiàn)此功能。

3．（4分）選擇計時器合適的事件過程，將“D:\test1111\考試結(jié)果\程序設計\試題二“文件夾下“code2.txt”文件中的選擇相關的代碼復制到該過程中。

4．（9分）分別在代碼中的“-④-”、“-⑤-”和“-⑥-”處填寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”，以讓程序正確執(zhí)行。調(diào)試并運行程序。

5．（2分）保存窗體和工程文件，生成可執(zhí)行程序“test2.exe”并保存到“試題二“文件夾下。

Private Sub Command1_Click()

Dim max!, min!, s!, x!

max = Val(Text1(0).Text)

min = max

'④

For i = 1 To 5

' ⑤

If max < x Then max = x

If min > x Then min = x

s = s + x

Next i

'⑥

Text3.Text = Int(s * 100) / 100 '結(jié)果保留到第2位小數(shù)，不四舍五入。

End Sub

Private Sub Command2_Click()

End Sub

code2選擇下列相關的代碼：

（1）

Randomize

For i = 1 To 6

Text1(i).Text = Int(101 * Rnd) /10

Next i

（2）

Randomize

For i = 0 To 5

Text1(i).Text = Int(101 * Rnd) /10

Next i

（3）

Randomize

For i = 0 To 5

Text1(i).Text = Int(101 * Rnd) 10

Next i

code1

If Command2.Caption = "開始" Then

' Timer1.Enabled = ①

Command2.Caption = "停止"

Command1.Visible = False

Else

Timer1.Enabled = False

Command2.Caption = "開始"

' Command1.Visible = ②

End If

試題三（20分）

修改VB程序，用VB編制一個將人民幣金額（不超過4位整數(shù)）轉(zhuǎn)化為大寫金額的程序，。使其具有下列功能：在文本框（Text1）中輸入數(shù)字，單擊“轉(zhuǎn)換”按鈕（Command1），則在文本框（Text2）中顯示相應的大寫金額，程序運行的界面如圖5所示；如果在文本框（Text1）中輸入的人民幣金額超過3位數(shù)或非正整數(shù)，單擊“轉(zhuǎn)換”按鈕（Command1）則在文本框（Text2）中顯示提示信息：“輸入數(shù)據(jù)不合法！請重新輸入！！”。程序運行的界面圖6所示。

圖5

圖6

打開“試題三“文件夾中的工程文件“test3.vbp”，完成下列操作：

1．（18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test3.exe”并保存到“試題三“文件夾下。

Private Sub Command1_Click()

Dim num, unit$(3), str$, t%, strlen%,endStr$

num = Array("零", "壹", "貳", "叁", "肆", "伍", "陸", "柒", "捌", "玖")

unit(1) = "拾": unit(2) = "佰": unit(3) = "仟"

Dim haveZero As Boolean

str = Val(Text1.Text) '①

If Len(str) > 4 Or Val(str) <= 0 Then

Text2.Text = "數(shù)據(jù)不合法，請重新輸入"

Text1.Move '② 獲得文本框1的焦點

Exit Sub

End If

For i = 1 To str '③ 去掉左側(cè)0,例如：002

If Mid(str, i, 1) <>"0" Then str = Mid(str, i, Len(str)): Exit For

Next i

For i = 1 To Len(str)

'④

If t = 0 Then

haveZero =True

Else

If haveZeroThen

endStr = endStr + "零" + num(t) + unit(Len(str) - i)

Else

'⑤

End If

Next i

' ⑥

End Sub

第二套

試題一 (30分)

設計一個VB程序，使其具有下列功能：根據(jù)選擇的單位轉(zhuǎn)換和輸入的物體重量，單擊“計算”命令按鈕，在標簽對象上顯示計算出的單位為千克或克。運行效果如圖1、圖2所示。

圖1

圖2

1．（2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1.frm”、“test1.vbp”為文件名保存到“試題一 ”文件夾下。

2．（16分）參照圖1和圖2完成界面設計：按表1添加相關對象并設置設置相關屬性。

表1

對象

設置內(nèi)容

Logo圖片

名稱為picture1；圖片為考試結(jié)果\程序設計\試題一文件夾下的zl.jpg。

“單位轉(zhuǎn)換”標簽

名稱為label1。

“磅轉(zhuǎn)換千克”單選按鈕

名稱為option1。

“斤轉(zhuǎn)換克”單選按鈕

名稱為option2。

“輸入物體重量”標簽

名稱為label2。

重量填寫文本框

名稱為text1。

換算后重量顯示標簽

名稱為label3；字體顏色為&H00FF0000&。

“計算”按鈕

名稱為command1。

（每屬性設置2分）

3. （10分）選擇“計算”按鈕合適的事件，并在事件中編寫代碼以實現(xiàn)程序功能。其中，1磅=0.45359237千克；1斤=500克。調(diào)試并運行程序。

4．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test1.exe”并保存到“試題一“文件夾下。

試題二（25分）

修改VB程序，使其具有下列功能：在文本框中輸入字符串，單擊“開始“按鈕，標簽2獲取文本框中的首字符與尾字符組合，并開始向右移動。當標簽移到窗體邊框后，再開始向左移動，實現(xiàn)左右移動，移動速度為每0.5秒200。運行效果如圖3、4所示。

圖3

圖4

打開試題二文件夾中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗體上添加計時器，并按表2設置相關屬性。

表2

對象

設置內(nèi)容

計時器

名稱為Timer1；間隔時間0.5秒；默認不啟用。

2．（6分）選擇“開始”按鈕和“停止”按鈕的合適事件過程，實現(xiàn)如下功能：單擊“開始”按鈕，計時器啟用，“停止”按鈕顯示；單擊“停止”按鈕，計時器不啟用，并“停止”按鈕隱藏。將“D:\test1111\考試結(jié)果\程序設計\試題二“文件夾下“code1.txt”文件中選擇相應的代碼復制到相應過程中。

3．（1分）選擇計時器合適的事件過程，將“試題二“文件夾下“code2.txt”文件中的所有代碼復制到該過程中。

4．（12分）分別在代碼中的“-①-”、“-②-”和“-③-”處填寫一條代碼或表達式（填寫完成后，刪除標號“-①-”、“-②-”和“-③-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

5．（2分）保存窗體和工程文件，生成可執(zhí)行程序“test2.exe”并保存到“試題二“文件夾下。

Dim f%

Private Sub Command1_Click()

End Sub

code1

Timer1.Enabled = True

Command2.Visible = True

Timer1.Enabled = False

Command2.Visible = False

code2

' Label2.Caption =①

If Label2.Left >= Form1.Width -Label2.Width Then

' f =②

ElseIf Label2.Left <= 0 Then

f = 0

End If

If f = 1 Then

' Label2.Left = ③

Else

Label2.Left = Label2.Left+ 200

End If

試題三（20分）

修改VB程序，使其具有下列功能：程序啟動運行時即在文本框上顯示20個[10，99]的隨機整數(shù)。單擊“素數(shù)個數(shù)”按鈕，在標簽3上顯示出素數(shù)數(shù)列及標簽4上顯示素數(shù)個數(shù)。單擊“平均數(shù)”按鈕，在標簽4上顯示出此數(shù)列的平均數(shù)。運行效果如圖5、圖6所示。

圖5

圖6

打開“試題三“文件夾中的工程文件“test3.vbp”，完成下列操作：

1．（18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test3.exe”并保存到“試題三“文件夾下。

Dim a%(1 To 20), k%

Private Sub Form_Load()

Randomize

For i = 1 To 20

a(i) = Int(90 * Rnd) '①

Text1.Text = Text1.Text & a(i)& " "

Next i

End Sub

Private Sub Command1_Click()

Dim x%, f%

For i = 1 To 20

f = 0

For j = 2 To a(i) - 1

If a(i) Mod j = 0 Then

f = 1: Exit For

End If

Next j

If f = 0 Then

k = 1 '②

a(k) = a(i)

If k = 1 Then

Label3.Caption = a(k)

Else

Label3.Caption = Label3.Caption& a(k) ' ③

End If

Next i

' ④

End Sub

Private Sub Command2_Click()

Dim s%

'⑤

For i = 1 To k

s = s + a(i)

Next i

pj = s / k

' ⑥

End Sub

第三套

試題一 (30分)

設計一個VB程序，使其具有下列功能：實現(xiàn)100以內(nèi)整數(shù)的四則運算。運行效果為圖1所示：

圖1

1．（2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1.frm”、“test1.vbp”為文件名保存到“試題一 ”文件夾下。

2．（16分）參照圖1和圖2完成界面設計：按表1添加相關對象并設置設置相關屬性。

表1

對象

設置內(nèi)容

窗體

名稱為form1，標題為“四則運算”

標簽1

名稱為label1，標題為“運算數(shù)1”

標簽2

名稱為label2，標題為“運算數(shù)2”

水平滾動條1

名稱為HScroll1，最大值100，最小值1

水平滾動條2

名稱為HScroll2，最大值100，最小值1

框架

名稱為Frame1，標題為“運算結(jié)果”

四個單選鈕的控件數(shù)組

名稱為option1，標題分別為“+”、“－”、“*”、“/”

標簽3

名稱為label3， appearance設置為0-flat，

邊框樣式設置為1，前景顏色為紅色

命令按鈕

名稱為command1，標題為“計算”

3. （10分）程序運行后，移動兩個滾動條中的滾動框，用滾動條的當前值作為運算數(shù)，如果選中一個單選鈕，然后選擇”計算“按鈕合適的事件，相應的計算結(jié)果將顯示在Label3中。并在事件中編寫代碼調(diào)試并運行程序。

4．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test1.exe”并保存到“試題一“文件夾下。

試題二（25分）

修改VB程序，使其具有下列功能：在文本框1中輸入字符串，并選中一個單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標題進行轉(zhuǎn)換，結(jié)果放入Text2如圖2所示。

圖2

打開試題二文件夾中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗體上兩個單選按鈕，并按表2設置相關屬性。

表2

對象

設置內(nèi)容

單選按鈕1

名稱為option2，標題為“全部大寫”

單選按鈕2

名稱為option3，標題為“全部小寫”

2．（3分）選擇“轉(zhuǎn)換”按鈕合適的事件過程，將“試題二“文件夾下“code.txt”文件中的所有代碼復制到相應過程中。

3．（16分）分別在代碼中的“-①-”、“-②-”、“-③-和-④-”處填寫一條代碼（填寫完成后，刪除標號“-①-”、“-②-”、“-③-和-④-”，以讓程序正確執(zhí)行。調(diào)試并運行程序。

4．（2分）保存窗體和工程文件，生成可執(zhí)行程序“test2.exe”并保存到“D:\test1111\考試結(jié)果\程序設計\試題二“文件夾下。

code1 Dim n As Integer, i AsInteger, ch As String, a As String

n = Len(Text1.Text)

ch = ""

If Option1.Value = True Then

For i = 1 To n

'①

If a >="a" And a <= "z" Then

ch = ch + Chr(Asc(a) - 32)

ElseIf a >="A" And a <= "Z" Then

ch = ch + Chr(Asc(a) + 32)

Else

' ②

End If

Next i

ElseIf Option2.Value = True Then

ch =UCase(Text1.Text)

Else

' ③

End If

' ④

試題三（20分）

修改VB程序，使其具有下列功能：程序運行時，在文本框Text1中輸入一個大于2的偶數(shù)，并單擊“分解為”命令按鈕，則可以將該偶數(shù)分解為兩個素數(shù)之和，且要求其中一個素數(shù)是所能夠分解出的最小的素數(shù)(一個偶數(shù)有時可以分解為多種素數(shù)的組合，例如24可以分解為5和19，也可以分解為11和13，要求取含有最小素數(shù)的組合)。如圖3所示。

圖3

打開“試題三“文件夾中的工程文件“test3.vbp”，完成下列操作：

1．（18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test3.exe”并保存到“試題三“文件夾下。

Private Sub Command1_Click()

Dim a&, f1 As Boolean, f2 As Boolean

Text1.Text = a '①

For i = 2 To a

f1 = True

For j = 2 To i - 1

If i Mod j = 0Then f1 = False

Next j

If f1 Then

b = a + i '②

f2 = True

For j = 2 To b - 1

If bMod j = 0 Then f2 = 1 '③

Next j

If f2 Then

'④

Label3.Caption = b

'⑤

End If

'⑥

Next i

End Sub

第四套

試題一 (30分)

設計一個VB程序，使其具有下列功能：剛運行程序時，“古典音樂”和“籃球”單選鈕為選中狀態(tài)。運行效果為圖1、圖2所示。

圖1

圖2

1．（2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1.frm”、“test1.vbp”為文件名保存到“試題一 ”文件夾下。

2．（16分）參照圖1和圖2完成界面設計：按表1添加相關對象并設置設置相關屬性。

表1

對象

設置內(nèi)容

復選框1

名稱為check1，標題為“音樂” '1分

復選框2

名稱為check2，標題為“體育” '1分

標簽1

名稱為label1，標題為“愛好” '1分

標簽2

名稱為label2,borderstyle設置為1 '1分

框架1

名稱為Frame1， '1分

框架2

名稱為frame1， '1分

單選按鈕1

名稱為option1，標題為“古典音樂”,且選中 '2分

單選按鈕2

名稱為option2，標題為“流行音樂” '2分

單選按鈕3

名稱為option3，標題為“藍球”,且選中 '2分

單選按鈕4

名稱為option4，標題為“羽毛球” '2分

命令按鈕

名稱為command1，標題為“選擇” '2分

3. （10分）單擊“選擇”按鈕，將把選中的單選鈕的標題顯示在標簽Label2中，如圖1所示。如果“音樂”或“體育”未被選中，單擊“選擇”按鈕，相應的單選鈕不可選。如圖2所示。

4．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test1.exe”并保存到“試題一“文件夾下。

試題二（25分）

修改VB程序，使其具有下列功能：將十進制的數(shù)轉(zhuǎn)換成二進制、八進制與十六進制的數(shù)。運行效果為圖3所示。

圖3

打開試題二文件夾中的工程文件“test2.vbp”，完成下列操作：

1．（4分）在窗體上添加簡單組合框，并按表2設置相關屬性。

表2

對象

設置內(nèi)容

組合框

名稱為combo1；并設置為簡單組合框。將text屬性為“進制”

2．（4分）窗體加載后，組合框添加2、8和16，選擇合適的事件過程，實現(xiàn)此功能。

3．（2分）選擇組合框的合適的事件過程，將“試題二“文件夾下“code.txt”文件中的所有代碼復制到該過程中

4．（13分）分別在代碼中的“-①-”、“-②-”、“-③和-④-”處填寫一條代碼（填寫完成后，刪除標號“-①-”、“-②-”、“-③-”和-④-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

5．（2分）保存窗體和工程文件，生成可執(zhí)行程序“test2.exe”并保存到“試題二“文件夾下。

Private Sub Combo1_Click()

Dim a, x&, k%, p%

a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A","B", "C", "D", "E", "F")

Dim s$ '答案為 s$或 s as s as String

x = Val(Text1.Text)

k = Val(Combo1.Text) '答案為k = Val(Combo1.Text)

Do Until x = 0 '答案為x = 0

p = x Mod k

x = x \ k

s = a(p) & s '答案為s = a(p) & s

Loop

Frame2.Caption = k & "進制"

Text2.Text = s

End Sub

Private Sub Form_Load()

Combo1.AddItem 2

Combo1.AddItem 8

Combo1.AddItem 16

End Sub

code1

Dim a, x&, k%, p%

a = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, "A","B", "C", "D", "E", "F")

' Dim ①

x = Val(Text1.Text)

'②

' Do Until ③

p = x Mod k

x = x \ k

' ④

Loop

Frame2.Caption = k & "進制"

Text2.Text = s

試題三（20分）

修改VB程序，使其具有下列功能：程序運行時，單擊“產(chǎn)生數(shù)組”按鈕時，隨機生成50個0- 10之間(不含0和10)的整數(shù)，并將其保存到一維數(shù)組a中，同時也將這50個數(shù)值在Text1文本框內(nèi)顯示。單擊“統(tǒng)計”按鈕時，統(tǒng)計出數(shù)組a中出現(xiàn)頻率最高前三個的數(shù)值及其出現(xiàn)的次數(shù)，并將出現(xiàn)頻率最高前三個的數(shù)值及出現(xiàn)次數(shù)在list1列表框中顯示。單擊“退出”按鈕時，結(jié)束程序運行。程序效果如圖4所示。

圖4

打開“試題三“文件夾中的工程文件“test3.vbp”，完成下列操作：

1．（18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test3.exe”并保存到“試題三“文件夾下。

Option Base 1

Dim a%(50)

Private Sub Command1_Click()

Randomize

For i = 1 To 50

a(i) = Int(10 * Rnd) + 1 '①

Text1.Text = Text1.Text + Str(a(i))

Next i

End Sub

Private Sub Command3_Click()

Text1.Text = ""

'⑥

End Sub

Private Sub Command2_Click()

Dim x%(1 To 9), b%(1 To 9), k%, t%

For i = 1 To 9

x(i) = i

Next i

For i = 1 To 50

k = a(i)

b(k) = b(i) + 1 '②

Next i

For i = 1 To 8

For j = 1 To i '③

If b(j) < b(j + 1) Then

t = b(j): b(j) =b(j + 1): b(j + 1) = t

t = x(j):x(j) = x(j + 1): '④

End If

Next j

Next i

For i = 1 To 3

'⑤

Next i

End Sub

第五套

試題一：（30分）

用VB編制一個程序，初始界面如圖1，文本框顯示程序運行輸出的問候語。程序運行時可通過文本框輸入，效果如圖2，要求用行IF語句完成根據(jù)時間變化12點前為“**上午好！”，超過12點為“**下午好！”單擊“結(jié)束”按鈕結(jié)束程序運行。

圖1

圖2

操作要求：

1．（2分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到考生文件夾“試題一”文件夾下。

2.（16分）參照圖1和圖2完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性2分，共14分）

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

問候

Form1

icon

考生目錄下1.ico

Text1

Text

空

Label1

caption

請輸入昵稱：

Label2

caption

空

Command2

caption

結(jié)束C

Command1

caption

確定P

3.（10分）選擇適當?shù)膬蓚€事件（2分），編寫相應的代碼實現(xiàn)此功能。（執(zhí)行test1.exe文件，若上午輸入給出正確結(jié)果或下午輸入給出正確結(jié)果給6分，結(jié)束事件給2分）

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

試題二（25分）

填空完成VB程序，其功能是在隨機產(chǎn)生的數(shù)組中查找指定值，界面設計和程序運行效果如圖3、圖4所示。

圖3

圖4

打開某路徑下的工程文件test2.vbp，完成下列操作：

1. （10分）將code1.txt文件復制到適當?shù)氖录校?分），完成（1）、（2）、（3）填空。（每格3分，共9分）

2. （13分）將code2.txt文件復制到適當?shù)氖录校?分），輸入要查找數(shù)值，單擊“查找”按鈕，返回該數(shù)值在數(shù)組中位置（第幾個）完成注釋（4）（5）（6）（7）填空實施此功能。（每空3分，共12分）

3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。

Const n = 20

Dim a(20)

Code1

Randomize

For i = 1 To （1） ’數(shù)組初始化（非數(shù)值）

a(i) = Int(Rnd *（2） + 10) '產(chǎn)生兩位隨機數(shù)

List1.（3）a(i) ’添加到列表框

Next i

Code2

Dim t%, y%

t = (4) '獲取輸入值

For i = 1 To 20

If a(i) = t Then Label2.Caption = "所查找數(shù)據(jù)位于第" & i & "位": （5）’依次查找，找到位置后返回位置退了循環(huán)

y = （6） '計數(shù)

Next i

If （7） >= 20 Then Label2.Caption = "未發(fā)現(xiàn)所查找數(shù)據(jù)"

試題三、（20分）

修改考生文件夾下的VB程序使其具有下列功能：

在文本框中輸入一個數(shù)（大于等于5），然后單擊“查找”命令按鈕，找出給定數(shù)的三個最大的素數(shù)，并顯示在標簽控件數(shù)組label1中，如圖所示運行效果如圖5所示。

圖5

打開“試題三”文件夾中的工程文件test3.vbp，并完成下列操作：

1.（18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

Private Sub Command1_Click()

Dim num%, i%, n%

'(4)

Text1.Text = num '(1)

For i = num To 2 '(2)

flag = False

For j = 1 To Sqr(i) '(3)

If i Mod j = 0 Then '（5）: ExitFor

Next j

If Not flag And n <= 2 Then

n = n + 1

'(6)

End If

Next i

End Sub

第六套

試題一：（30分）

用VB編制一個程序，初始界面如圖1。程序運行時可通過單選按鈕選擇性別，對應稱乎為“先生/女士”復選框愛好選擇，效果如圖2，單擊“確定”按鈕在文本框內(nèi)顯示結(jié)果。

圖1

圖2

操作要求：

1．（2分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到考生文件夾“試題一”文件夾下。

2.（14分）參照圖完成界面設計：按表添加相關對象并設置相關的屬性：

表1

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

caption

興趣愛好

Label1

caption

請選擇

Text1

multiline

true

Text1

text

空白

Check1

caption

戶外

Text1

forecolor

&H000000FF&

Text1

fontname

幼圓

Text1

alignment

2

Option1

caption

男

Check2

caption

攝影

Option2

value

true

Option2

caption

女

Command1

caption

確定

Command2

enabled

false

3.（12）編寫適當?shù)氖录?分） ,選擇“男”按鈕，單擊確定后文本框顯示如圖2所示的結(jié)果；若選擇“女“，復選框都選，在文本框則顯示”女士愛好戶外攝影“。（執(zhí)行test1.exe文件，若選擇“男”復選框選擇給出正確結(jié)果給出5分；若選擇“女”，復選框選擇給出正確結(jié)果給出5分）

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

試題二（25分）

修改VB程序，其功能是求最大公因子，當單擊“求最大公因子”按鈕時，提求鍵盤輸入兩個正整數(shù)，并求出最大公因子，用消息框顯示結(jié)果。

圖3

圖4

打開某路徑下的工程文件test2.vbp，完成下列操作：

1. （2分）將code.txt文件復制到適當?shù)氖录?

2. （21分）單擊命令按鈕彈出對話框，提示從鍵盤上輸入數(shù)據(jù)，并求出最大公約數(shù)，能過消息框給出結(jié)果。完成相關代碼（1）、（2）、（3）、（4）、（5）、（6）、（7）的填空，去掉注釋。（每小題3分，共21分）

3. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。

Code:

Dim x%, y%, x1%, y1%, n

x = (1) '輸入第一個數(shù)

y = (2) '輸入第二個數(shù)

x1 = x

y1 = y

n = (3) '取余數(shù)

Do While (4) '滿足條件循環(huán)

x =(5) ’X值變化

y =(6) ’Y值變化

n = x Mod y

loop

Msgbox "兩個整數(shù)" & x1 & "和"& y1 & "最大公約數(shù)為：" & (7) '顯示最大公約數(shù)

試題三、（20分）

修改考生文件夾下的VB程序使其具有下列功能：單擊命令按鈕打印如圖4所示倒三角形

圖4

打開“試題三”文件夾中的工程文件test3.vbp，并完成下列操作：

1. （18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼（填寫完成后，刪除標號“-④-”、“-⑤-”和“-⑥-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test3.exe保存到試題目錄下的“試題三”文件夾。

3.

Private Sub Command1_Click()

Dim i%, j$ '(1)

For i = -4 To4 '(2)確定打印行數(shù)

Print Tab(2 * (i -1) + 1); '(3)對齊打印位置

For j= 1 To 10 - i

'(4) ’打印輸出

Next j

' For j =(5) To 1 Step -1

Print j;

Next j

' (6)

Next i

End Sub

第七套

試題一（30分）

設計一個VB程序，使其具有下列功能：在第一個文本框（text1）中輸入一個十進制整數(shù)，單擊“轉(zhuǎn)換”按鈕，將該數(shù)轉(zhuǎn)換成十六進制數(shù)，并顯示在第二個文本框中。單擊“清除”按鈕則清除兩個文本框中的內(nèi)容，單擊“退出”按鈕則結(jié)束程序。程序設計、運行界面如圖1、圖2所示。

1. （2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1.frm”、“test1.vbp”為文件名保存到“考試結(jié)果\程序設計\試題一”文件夾下。

2.（16分）參加圖1和圖2完成界面設計：按表1添加相關對象并設置相關屬性。表1

對象

設置內(nèi)容

窗體

名稱為form1；標題為進制轉(zhuǎn)換。

“輸入的十進制整數(shù)：”標簽

名稱為label1。

“轉(zhuǎn)換成十六進制數(shù)”標簽

名稱為label2

位于上方的文本框

名稱為text1；內(nèi)容為空。

位于下方的文本框

名稱為text2；內(nèi)容為空。

“轉(zhuǎn)換”按鈕

名稱為command1。

“清除”按鈕

名稱為command2

“退出”按鈕

名稱為command3

3．（10分）在文本框1輸入十進制數(shù)，單擊“轉(zhuǎn)換”，在文本框2顯示正確結(jié)果；（6分）單擊“清除”按鈕，將文本框1、2清除（2分）；單擊“退出”，程序結(jié)束。

4．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test1.exe”并保存到“D:\test1111\考試結(jié)果\程序設計\試題一“文件夾下。

試題二（25分）

修改VB程序，使其具有下列功能：單擊“顯示”按鈕，在圖片框中顯示如下圖所示的圖形，單擊“清除”按鈕，清除圖片框中的圖形。設計、運行界面如圖3、圖4所示。

圖3

圖4

打開“考試結(jié)果\程序設計\試題二”文件夾中的工程文件“test2.vbp”，完成下列操作：

1. （4分）在窗體上添加圖片框，并設置圖片框的font屬性，使其字體大小為“四號”。

2. (4分) (選擇“顯示”按鈕合適的事件過程，將“考試結(jié)果\程序設計\試題二”文件夾下“code1.txt”文件中的所有代碼復制到該過程中。

3. (3分)選擇“清除”按鈕合適的事件過程，將“考試結(jié)果\程序設計\試題二”文件夾下“code2.txt”文件中的所有代碼復制到該過程中。

4. (12分)分別在代碼中的“-（1）-”，“-（2）-”和“-（3）-”處填寫一條代碼（填寫完成后，刪除標號“-（1）-”，“-（2）-”和“-（3）-”），以讓程序正確執(zhí)行。調(diào)度并運行程序。

5. (2分)保存工程文件和窗體文件，生成可執(zhí)行文件“test2.exe”并保存到“考試結(jié)果\程序設計\試題二”文件夾下。

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Code1:

Dim i As Integer, j As Integer

Dim m As Integer, n As Integer

-(1)-

Picture1.Print Tab(12);

For j = 1 To 5 - Abs(i)

Picture1.Print "*";

Next j

-(2)-

For m = 1 To 5 - Abs(i)

Picture1.Print "*";

Next m

Picture1.Print

Next i

Code2

-(3)-

試題三（30分）

修改VB程序，使其具有下列功能：程序啟動運行時即隨機產(chǎn)生20個10-100（含10和100）之間的隨機整數(shù)，把這些數(shù)據(jù)存入數(shù)組a中，并在文本框中顯示出來，數(shù)與數(shù)之間用空格隔開。單擊“插入”按鈕，根據(jù)用戶的輸入，向數(shù)組a中的指定位置插入一個指定的數(shù)，將插入后的結(jié)果顯示在另一個文本框中。程序設計界面、運行界面如圖5、圖6所示。

圖5

圖6

打開“考試結(jié)果\程序設計\試題三”文件夾中的工程文件“test3.vbp”，完成下列操作：

1. (18分)對注釋“（1）”、“（2）”和“（3）”所在行的代碼進行修改，并在代碼中的“-（4）-”、“-（5）-”和“-（6）-”處填寫一條代碼（填寫完成后，刪除標號“-（4）-”、“-（5）-”和“-（6）-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2. (2分)保存工程文件和窗體文件，生成可執(zhí)行程序“test3.exe”并保存到“考試結(jié)果\程序設計\試題三”文件夾下。

Dim a() As Integer

Private Sub Command1_Click()

Dim x As Integer, n As Integer

Dim i As Integer

x = Val(Text2.Text)

n = Val(Text3.Text)

ReDim a(1 To 21) '(1)

For i = 20 To n '(2)

'-(4)-

Next i

'-(5)-

For i = 1 To 21

Text4.Text = Text4.Text & a(i) &" "

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

ReDim a(1 To 20)

Randomize

For i = 1 To 20

a(i) = Int(Rnd * 90 + 10) '(3)

'-(6)-

Next i

End Sub

第八套

第一題（ 30分）

設計一個VB程序，使其具有以下功能：在左邊文本框Text1中輸入任意字符串，單擊轉(zhuǎn)換按鈕Command1，在右邊文本框Text2中只顯示字母（不分大小寫），其他類型的字符過濾掉。程序運行效果為圖1所示.

圖1

1、 (2分)創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以”test1.frm”和”test1.vbp”保存到“試題一”文件夾下。

2、 (12分)參照圖一對界面進行設計：按表一添加相關對象設置相關屬性。（6*2=6分）

表1

對象

設置內(nèi)容

Form1

標題設置“數(shù)據(jù)過慮”

“輸入數(shù)據(jù)”標簽

名稱為Lbl1

“過濾后數(shù)據(jù)”標簽

名稱為Lbl2

左邊文本框

名稱為Txt1

右邊文本框

名稱為Txt2

“過濾”按鈕

名稱為Cmd1

3、 (14分)選擇適當?shù)氖录?2分),編寫程序代碼，實現(xiàn)要求的功能。

4、 (2分)保存窗體文件和工程文件，生成Test1.exe文件并保存到“試題一”中。（1分）

第二題（25分）

在窗體激活事件中，輸出直到最后一項小于10-5為止。程序不完整，請?zhí)羁帐钩绦蛲瓿上鄳臄?shù)據(jù)處理。程序運行效果為圖2所示

圖2

打開“試題二”的工程test2.vbp文件，完成下列操作：

1、(3分)在窗體的的適當事件中，將“試題二”下的code2.txt中的代碼復制到該過程中。

2、(20分)分別在代碼①、②、③、(4)處填寫代碼，使程序能正確運行。（填寫完成后，刪除①、②、③）、(4)5*4=20分）

3、(2分)保存窗體文件和工程文件，生成Test2.exe文件并保存到“試題二”中。

Code:

Dim n!, s!,t!

n = 0: s = 0

(4)

Do

n = ①

t = t * n

s = ②

Loop Until ③

Print "s=1-1/2!+1/3!-1/4!+...-1/n!≈" & s

第三題（20分）

在文本框Text1中輸入一個字符串，單擊“統(tǒng)計”按鈕，統(tǒng)計其中A、B、C、D……的次數(shù)（區(qū)分大小寫），并按出現(xiàn)的次數(shù)從高到低排序，輸出到文本框Text2中。程序運行效果為

圖3所示.

圖3

打開“試題三”的工程test3.vbp文件，完成下列操作：

1、(18分) 對注釋“（1）”、“（2）”和“（3）”所在行的代碼進行修改，并在代碼中的“-（4）-”、“-（5）-”和“-（6）-”處填寫一條代碼（填寫完成后，刪除標號“-（4）-”、“-（5）-”和“-（6）-”），以讓程序正確執(zhí)行。調(diào)試并運行程序。

2、(2分)保存窗體文件和工程文件，生成Test3.exe文件并保存到“試題三”中。（2分）

Private Sub Command1_Click()

Dim a(1 To 26) As Integer, b(1 To 26) AsInteger, i As Integer, j As Integer

Dim k%

'a()數(shù)組存放26個字母的ASCII值，b()數(shù)組存入對應字母的個數(shù)

For i = 1 To 26

a(i) = 64 + i

Next i

Text2.Text = ""

For i = 1 To (Text1.Text) '(1)

x = Right(Text1.Text, i, 1) '(2)

If x >= "A" And x <="Z" Then

k = Asc(x) - 64

b(k) = b + 1 '(3)

End If

Next i

'(4)

For j = 1 To 26 - i

' (5)

t = b(j): b(j) = b(j + 1): b(j + 1) = t

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 26

If b(i) <> 0 Then

'(6)

End If

Next i

End Sub

2017年8套題

第一套

試題一（30分）：

設計一個如圖1所示的界面，實現(xiàn)甲殼蟲左右移動100緹、上下移動100緹；實現(xiàn)甲殼蟲放大或縮小各100；實現(xiàn)甲殼蟲顯示與隱藏功能。

圖1

操作要求：

1. （2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1.frm”、“test1.vbp”為文件名保存到“試題一 ”文件夾下。

2.（12分）參照圖1完成界面設計：按表1添加相關對象并設置相關屬性。

表1

對象

設置內(nèi)容

窗體form1

名稱為Form1,標題為“甲殼蟲”，背景顏色為白色’2分

圖像框image1

圖片為\試題一文件夾下的甲殼蟲.jpg，stretch設置true。 ’2分

命令按鈕1

名稱為Command1，標題分別為“↑”’1分

命令按鈕2

名稱為Command2，標題分別為“←”’1分

命令按鈕3

名稱為Command3，標題分別為“→”’1分

命令按鈕4

名稱為Command4，標題分別為“↓”’1分

命令按鈕5

名稱為Command5，標題分別為“放大”’1分

命令按鈕6

名稱為Command6，標題分別為“縮小”’1分

命令按鈕7

名稱為Command7，標題分別為“顯示”’1分

命令按鈕8

名稱為Command8，標題分別為“隱藏”’1分

3. （16分）根據(jù)題意編寫相應的事件；每個事件2分，共16分

評分標準參考答案

二、試題二（25分）

添加計時器控制，并設置初始化狀態(tài)：時間間隔為1秒、不可用；窗體的最大化和最小化按鈕不可用。將界面中的垂直滾動條的最大值和最小值分別設置為3000和100。

功能：單擊“啟動”按鈕，計時器開始工作，按鈕的標題變?yōu)椤皶和！?；再次單擊“暫停”按鈕，計時器停止工作，按鈕標題變成“啟動”，垂直滾動條的控制計時器的Intervel屬性，范圍在100~3000，計時器：使標簽組1共計6個依次循環(huán)出現(xiàn)，標簽框2顯示標簽組1出現(xiàn)個數(shù)。效果圖2-2所示。

圖2-1 圖2-2

操作要求：打開“試題二“文件夾中的工程文件“test2.vbp”，完成下列操作：

1.（6分）添加相關的控件和屬性：添加計時器控制，并設置初始化狀態(tài)：時間間隔為1秒、不可用；窗體的最大化和最小化按鈕不可用。將界面中的垂直滾動條的最大值和最小值分別設置為3000和100。

2．（17分）單擊“啟動”按鈕，計時器開始工作，按鈕的標題變?yōu)椤皶和！保辉俅螁螕簟皶和！卑粹o，計時器停止工作，按鈕標題變成“啟動”，垂直滾動條value的值來控制計時器的Intervel屬性，范圍在100~3000，計時器：使標簽組1共計6個依次循環(huán)出現(xiàn)，標簽框2顯示標簽組1出現(xiàn)個數(shù)。根據(jù)題意完成相應的“-①-”、“-②-”、“－?－”“―④―”、“―⑤―”“―（6）―”填空以讓程序正確執(zhí)行。調(diào)試并運行程序。

3．（2分）保存窗體和工程文件，生成可執(zhí)行程序“test2.exe”并保存到“試題二“文件夾下。

Dim n%

Private Sub Command1_Click()

If Timer1.Enabled = False Then

Timer1.Enabled = True

Command1.Caption = "暫停"

Else

'(1)

Command1.Caption = "啟動"

End If

End Sub

Private Sub Form_Load()

For i = 0 To 5

Label1(i).Visible = False

Next i

End Sub

Private Sub Timer1_Timer()

If (2) Then

For i = 0 To 5

Label1(i).Visible = False

Next i

'n = (3)

End If

Label1(n).Visible = True

'(4)

' (5)

End Sub

Private Sub VScroll1_Change()

'Timer1.Interval = (6)

End Sub

試題三（20分）

有一根長600cm的鋼筋，需要截成長度為69cm、39cm、29cm的三種規(guī)格的短料，在三種規(guī)格至少各截1根的前提下，如何截取才能使所余下的材料最少？結(jié)果如圖3所示：

圖3

操作要求：打開“試題三“文件夾中的工程文件“test3.vbp”，完成下列操作：

（1）（3分）將標簽5(label5)屬性設置為居中顯示、有邊框且Appearance為0-flat

（2）（17分）將文件3.txt文件復制到相應的事件中，當窗體激活時顯示圖3所示的結(jié)果，根據(jù)題意完成相應的（1），（2），（3），（4）（5）填空。（評分標準在參考答案中）

3.txt

Dim x%, y%, z%, p%

Min = 600

For x = 1 To (1)

For y = 1 To 25

For z = 1 To 34

p = (2)- x * 69 - y * 39- z * 29

If p >= 0 And Min>= (3) Then

Min =p

Text1.Text = x

Text2.Text = y

text3.text=z

(4)

Next z

Next y

Next x

Label5.Caption =(5)

第二套

試題一（30分）

設計界面如圖1所示一個留言板，并可設置字體及字體效果，單擊“清除”按鈕，清空文本框的內(nèi)容，單擊“退出”按鈕，程序結(jié)束。（其中單選按鈕、復選框及命令按鈕均為控件數(shù)組）

圖1

操作要求：

1. （2分）創(chuàng)建一個“標準EXE”工程，將其窗體文件和工程文件分別以“test1.frm”、“test1.vbp”為文件名保存到“試題一 ”文件夾下。

2.（13分）參照圖1完成界面設計：按表1添加相關對象并設置相關屬性。

表1

對象

設置內(nèi)容

窗體form1

名稱為Form1,標題為“留言板”’1分

文本框Text1

多行顯示且垂直滾動條 ’2分

單選按鈕(控件數(shù)組)

名稱為Option1，標題分別為“黑體”，“幼圓”，“楷體”，“華文中宋” '4分

復選按鈕（控件數(shù)組）

名稱為Check1，標題分別為“加粗”，“下劃線”，“斜體”，“刪除線” '4分

命令按鈕（控件數(shù)組）

名稱為Command1，標題分別為“清除”，“退出”。'2分

3. 編寫相應的事件：（評分標準見參考答案）

（1）（5分）單擊單選按鈕中任一個按鈕，在文本框顯示相應的字體（要求只有一句代碼）（2）（5分）單擊復選按鈕中任一個按鈕，在文本框顯示字體的效果（要求用多分支選擇結(jié)構(gòu)select case語句，條件表達式用index）

（3）（5分）單擊 “清除”命令按鈕，則文本框清空；否則程序結(jié)束（用命令：end）（要求用二分支IF結(jié)構(gòu)編寫）、

試題二（25分）

組合框類型改為下拉列表，添加文本框（垂直滾動條且多行顯示）功能：選擇“大寫字母”單擊“產(chǎn)生”按鈕，在文本框中顯示30個隨機的大寫字母，選擇“小寫字母”則產(chǎn)生30個小寫字母。單擊“處理”按鈕，將30個字母中最大的字母顯示在列表框中，如有重復字符，則都顯示在列表框中。每次單擊“處理”按鈕，列表框內(nèi)容都清空。如圖2所示。

圖2

打開工程文件“test2.vbp”，完成下列操作：

（1）（7分）完善界面和屬性設置（窗體標題設置為試題二，組合框類型改為下拉列表'2分，添加文本框（垂直滾動條且多行顯示’4分）

（2）（18分）根據(jù)題意完成“①”、“②”、“③”所在行的代碼填空，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼或表達式（填寫完成后，刪除所有標號）以讓程序正確執(zhí)行。調(diào)試并運行程序。（每小題3分，共18分）

保存窗體文件和工程文件，生成可執(zhí)行程序“test2.exe”并保存到“試題二“文件夾下。

Dim a%(1 To 30)

Private Sub Command1_Click()

Dim dx%

Randomize

Text1.Text = ""

If Combo1.Text = "大寫字母" Then

dx = Asc("A")

ElseIf Combo1.Text = "小寫字母" Then

'dx = (1)

End If

If dx <> 0 Then

For i = 1 To 30

'a(i) = Int(Rnd * 26) + (2)

'Text1.Text = Text1.Text + " " +(3)

Next i

End If

End Sub

Private Sub Command2_Click()

Dim sz%

'sz = (4)

For i = 2 To 30

'If a(i) >= sz Then (5)

Next i

List1.Clear

For i = 1 To 30

'If a(i) = sz Then (6)

Next i

End Sub

試題三（20分）

修改VB程序，使其具有下列功能：產(chǎn)生15個[10,99]的隨機奇數(shù)進行排序。單擊“排序”按鈕，則將數(shù)組a 中的15個數(shù)按從小到大的順序（用冒泡法）顯示在文本框Text2中。

運行效果如圖3所示。

圖3

打開“試題三“文件夾中的工程文件“test3.vbp”，完成下列操作：

1．（18分）對注釋“①”、“②”、“③”所在行的代碼進行修改，并在代碼中的“-④-”、“-⑤-”和“-⑥-”處真寫一條代碼或表達式（填寫完成后，刪除所有標號，以讓程序正確執(zhí)行。調(diào)試并運行程序。（每小題3分，共18分）

2．（2分）保存窗體文件和工程文件，生成可執(zhí)行程序“test3.exe”并保存到“試題三“文件夾下。

Dim a%(15)

Private Sub Command1_Click()

Randomize

For i = 1 To 15

a(i) = Int(99 * Rnd) + 10 '①

If a(i) Mod 2 = 0 Then i = i +1 '②

Next i

For i = 1 To 15

'Text1.Text = Text1.Text + a(i)'③

Next i

End Sub

Private Sub Command2_Click()

For i = 1 To 14

' For j = 1 To ④

If a(j) >= a(j + 1) Then

't = a(j): a(j) = a(j +1): ⑤

End If

Next j

Next i

For i = 1 To 15

' Text2.Text = Text2.Text & ⑥ & " "

Next i

End Sub

第三套

試題一（30分）

設計一個VB程序，用于實現(xiàn)成績錄入與統(tǒng)計的功能。要求輸入的數(shù)據(jù)必須是0-100之間的數(shù)值型數(shù)據(jù)，根據(jù)復選框中選定的課程進行合并計算。文本框、復選框都為控件數(shù)組。

圖1

1．（2分）創(chuàng)建一個“標準EXE文件”工程，將其窗體文件和工程文件分別以”test1.frm”、”test1.vbp”為文件名保存到“試題一”文件夾下

2．（13分）參照圖1和表1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性值為1分，共13分）表1：

對象名

屬性

屬性值

對象名

屬性

屬性值

Form1

Caption

成績統(tǒng)計

Check1(2)

Caption

影視

Label1

Caption

數(shù)學

Check1(3)

Caption

VB

Label2

Caption

語文

Command1

Caption

合計

Label3

Caption

影視

Label6

Caption

“”

Label4

Caption

VB

BorderStyle

Fixed Sinlge

Check1(0)

Caption

數(shù)學

Command2

Caption

清空

Check1(1)

Caption

語文

3. （13分）輸入成績，根據(jù)復選框中選定的課程進行合并計算。（執(zhí)行“test1.exe”文件，單擊“合計”按鈕，根據(jù)復選框中選定的課程進行合并計算，共7分；單擊按鈕“清空”：實現(xiàn)文本框內(nèi)容清空、復選框未選中及標簽6清空,共6分;）（說明：對復選框選定的課程進行合并計算一律用for語句和if語句（行if語句和塊if語句）編寫求和變量用S，變量類型為單精度；對文本框內(nèi)容清空也一律用for語句編寫）評分標準見參考答案

4. （2分）生成可執(zhí)行文件”test1.exe”，保存至”試題一”文件夾下。

試題二（25分）

補充VB程序，使其具有下列功能：單擊窗體，輸出如圖所示圖形，要求圖形第一行的第一個“D”在第10列輸出，運行效果如圖2所示。

圖2

打開“試題二”文件夾中的工程文件”test2.vbp”完成下列操作

1．（4分）取消窗體的最大化、最小化按鈕（屬性設置各2分，共4分）

2．（20分）對注釋 “①” “②” “③” ”④” “⑤” 處添加事件、表達式及一條代碼（填完后，刪除標號），調(diào)試運行（每空4分，共20分）

3. （1分）保存窗體，生成可執(zhí)行文件”test2.exe” ，保存至”試題二”文件夾下。

評分標準見參考答案

Private Sub________ '①

Dim i%

Form1.Cls

For i = 1 To4

Print Tab(__________); '②

For j = 1 To10 - 2 * i

If j = 1 Or ________ Then '③

Print _______ '④

Else

Print " ";

End If

_________ ' "⑤"

Next i

End Sub

Private SubForm_Load()

End Sub

試題三（20分）

補充VB程序，使其具有下列功能：統(tǒng)計輸入的內(nèi)容中數(shù)字字符的個數(shù)，并將各字符按從小到大排序后并在窗體上輸出。程序運行效果如圖3所示。

打開“試題三”文件夾中的工程文件”test3.vbp”完成下列操作

1. （2分）設置文本框text1的屬性允許最多輸入20個字符；

2．對注釋 “①” “②” “③” ”④” “⑤” “⑥” 處添加一條代碼（填完后，刪除標號），調(diào)試運行（每空格3分，共18分）

保存窗體，生成可執(zhí)行文件”test3.exe” ，保存至”試題三”文件夾下。

評分標準見參考答案

Private SubCommand1_Click()

Cls

Dim c, a$(20),i%, str1$, k%

str1 =Text1.Text

For i = 1 ToLen(str1)

c = __________ '②

If c >= "0" And c <= "9" Then

k = k + 1

_________ '③

End If

Next i

For i = 1 To k -1

For j = 1 To _______ '④

If a(j) > a(j + 1) Then

tmp = a(j)

a(j) = a(j + 1)

a(j + 1) = tmp

End If

Next j

Next i

Print "數(shù)字字符共有："; ______ ; "個" '⑤

Print "從小到大排序后為：";

For i = 1 To k

Print _________ '⑥

Next i

End Sub

Private SubCommand2_Click()

_________ '①

End Sub

第四套

試題一（30分）

設計一個VB程序，實現(xiàn)移動圖片的功能。要求：完成圖片上下左右移動的功能。如單擊滾動條“

”，實現(xiàn)圖片向右移動；單擊“

”圖片，圖片向下移動。

1．（2分）創(chuàng)建一個“標準EXE文件”工程，將其窗體文件和工程文件分別以”test1.frm””test1.vbp”為文件名保存到“試題一”文件夾下

2．（12分）參照圖1完成界面設計：按表添加相關對象并設置相關的屬性：（每個屬性值為1分，共12分）

對象名

屬性

屬性值

對象名

屬性

屬性值

Fom1

Caption

移動的圖片

VScroll1

SmallChange

50

Label1

Caption

左邊

LargeChange

100

Label2

Caption

右邊

Min

0

HScroll1

SmallChange

50

Label3

Caption

上邊

LargeChange

100

Label4

Caption

下邊

Min

0

Picture1

Picture

vb.jpg

3. （14分）。執(zhí)行“test1.exe”文件,窗體加載時，滾動條初始化：水平滾動條max屬性值為窗體的寬度，垂直滾動條max屬性值為窗體高度。（共6分）

單擊“向左”箭頭，實現(xiàn)文字向左（水平滾動條的value值）移動，單擊“向右”箭頭，實現(xiàn)文字向右（水平滾動條的value值）移動。(共4分)

單擊“向上”箭頭，實現(xiàn)文字向上（垂直滾動條的value值）移動，單擊“向下”箭頭，實現(xiàn)文字向下（垂直滾動條的value值）移動。(共4分)

4. （2分）生成可執(zhí)行文件”test1.exe”，保存至”試題一”文件夾下。

評分標準見參考答案

試題二（25分）

補充VB程序，使其具有下列功能：利用定時器實現(xiàn)字體放大/縮小，要求：字體最大值為100，最小值為10，“文字”在最大與最小之間每隔0.2秒增5或減5。

打開“試題二”文件夾中的工程文件”test2.vbp”完成下列操作

1．（4分）設置label1標簽屬性,使標簽能夠根據(jù)文字自動調(diào)整大小。定時器初始設置為不工作。

2．（20分）對注釋 “①” “②” “③” ”④” “⑤” 處添加一條代碼（填完后，刪除標號），調(diào)試運行（每空4分，共20分）

3. （1分）保存窗體，生成可執(zhí)行文件”test2.exe” ，保存至”試題二”文件夾下。

評分標準見參考答案

Dim blnZoom AsBoolean

Private SubForm_Load()

Timer1.________= 200 '①

________=True '②

End Sub

Private SubTimer1_Timer()

If blnZoom Then

IfLabel1.FontSize > 100 Then

________ '③

Else

Label1.FontSize = Label1.FontSize + 5

EndIf

Else

If________ Then ' ④

blnZoom = True

Else

________= Label1.FontSize - 5 '⑤

EndIf

End If

End Sub

試題三（20分）

在窗體上包含一個名為option1的控件數(shù)組，含有3個單選按鈕，其標題分別為：“1！+2！+…10!”、“1！+2！+…11!” “1！+2！+…12!”。補充程序，實現(xiàn)功能：選擇相應的“單選按鈕”，單擊“計算”按鈕，可以計算相應的階乘的和，并在text1中顯示該階乘的值。

圖3

打開“試題三”文件夾中的工程文件”test3.vbp”完成下列操作

1．（3分）設置單選按鈕屬性，效果如圖3所示

2．（15分）對注釋 “①” “②” “③” ”④” “⑤”處添加一條代碼（填完后，刪除標號），調(diào)試運行（每空3分，共15分）

3. （2分）保存窗體，生成可執(zhí)行文件”test3.exe” ，保存至”試題三”文件夾下。

評分標準見參考答案

Private SubCommand1_Click()

Dim s As Long

Dim t As Long

Dim i%, j%, n%

s = 0

For i = 0 To 2

If ________ Then n = 10 + i '①

Next i

For i = 1 To n

________ '②

For j = 1 To i

t = __________ '③

Next j

s = s + __________ '④

Next i

Text1.Text =________ '⑤

End Sub

第五套

試題一：（30分）

用VB編制一個程序，初始界面如圖1。程序運行時標簽大小為1500*1500可通過拖動水平滾條來時實調(diào)整標簽寬度，通過拖動垂直滾條實時調(diào)整標簽的高度，標簽最大10000*10000，最小為100*100。

圖1

操作要求：

1．（2分）創(chuàng)建一個標準EXE工程，將其窗體文件和工程文件分別以test1.frm、test1.vbp為文件名保存到考生文件夾“試題一”文件夾下。

2.（18分）參照圖完成界面設計：按表添加相關對象并設置相關的屬性：

對象名

屬性

屬性值

對象名

屬性

屬性值

Label1

caption

空白

Hscroll1

max

10000

Label1

left

0

Hscroll1

min

100

Label1

Top

0

Vscroll1

max

10000

Label1

width

1500

Vscroll1

min

100

Label1

height

1500

3.編寫適當?shù)氖录崿F(xiàn)功能（8分）

4. （2分）保存窗體文件和工程文件，生成可執(zhí)行文件test1.exe保存到試題目錄下的“試題一”文件夾。

評分標準見參考答案

試題二（25分）

單擊Command1按鈕后，產(chǎn)生8個【1-100】之間的隨機整數(shù)，存入a數(shù)組中，并顯示在List1中。單擊Command2按鈕后，將a數(shù)組用冒泡排序的方法從小到大排序，并顯示在List2中。在Text1中輸入待插入的【1-100】之間整數(shù)，單擊Command3按鈕后，插入數(shù)組a中，這9個數(shù)仍舊按升序排列，并顯示在List3中?，F(xiàn)提供界面如下，請完成代碼，以實現(xiàn)題目要求的功能：程序運行界面如下圖所示。

實現(xiàn)上述功能的VB程序如下。請在劃線處填入適當?shù)恼Z句和代碼，把程序補充完整。

打開某路徑下的工程文件test2.vbp，完成下列操作：

1. （3分）將code2.txt文件復制到適當?shù)氖录?div style="height:15px;">

2. （21分）輸入數(shù)字后，單擊“運行”命令按鈕能在文本框中給出結(jié)果。完成“（1）、（2）、（3）、（4）、（5）、（6）、（7）”的填空和修改。

3. （1分）保存窗體文件和工程文件，生成可執(zhí)行文件test2.exe保存到試題目錄下的“試題二”文件夾。

評分標準見參考答案

Code2

'事件一

n = 8

For i =1 To n

a(i)= Int((1))

List1.AddItema(i)

Next i

'事件二

For i =1 To n - 1

Forj = 1 To (2)

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Nextj

Next i

For i =1 To n

List2.AddItem (3)

Next i

'事件三

x =(4)

For i =n To 1 Step -1

If(5) Then ExitFor

Next i

t = i +1

For i =n + 1 To t Step -1

a(i)=(6)

Next i

(7)=x

n= n + 1

For i =1 To n

List3.AddItema(i)

Next i

Dima%(100), n

試題三（20分）

英文單詞統(tǒng)計的 Visual Basic 程序，實現(xiàn)功能如下：在界面左邊的文本框 Text1 中輸入英文句子，單擊“統(tǒng)計”按鈕（Command1），在右邊的列表框 List1 中顯示英文單詞及其在句子中出現(xiàn)的位置，并在按鈕上方的標簽框Label1中顯示單詞個數(shù)（假定每個單詞中不包含英文字母以外的其他字符）。程序運行效果如圖所示。

1. （2分）將code3.txt文件復制到適當?shù)氖录?div style="height:15px;">

本站僅提供存儲服務，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權內(nèi)容，請點擊舉報。

2019-2020-1康一中初三年級第一次月考信息技術試題

《Visual Basic程序設計（第4版）》第10章對話框設計

更多類似文章 >>

免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版