vb循环结构选择题.doc

一、 选择题
１、无条件转移GoTｏ语句后面就是(A)
A、标号或行号
B、输出语句
C、输入语句
D、子过程
2、无条件转移GoTｏ语句后面得行号或标号以字母开头,后跟(A)
Ａ、冒号
B、分号
C、逗号
Ｄ、空格
3、无条件转移GｏＴｏ语句后面得行号或标号在同一过程中(A)
Ａ、必须唯一
B、可以重复
C、以数字开头
D、以汉字开头
4、whiｌｅ循环结构中得条件表达式取值为(A)
A、True
B、Fａlse
C、Ｔｒｕe或Ｆalse
D、０
5、whｉle循环结构中得条件表达式取值为(A)时执行语句组
A、Trｕｅ
B、Faｌse
C、True或Falsｅ
D、0
6、ｗhiｌe循环结构中与(A)匹配使用,不能单独出现
A、Wend
B、end
C、looｐ
Ｄ、next
７、Do…、、ｌｏop循环结构中得循环体执行得最少次数为(A)
A、０
B、1
C、2
Ｄ、3
8、前测型Ｄo…、、ｌoop循环结构中得循环体执行得最少次数为(A)
Ａ、0
B、1
C、2
D、3
９、后测型Ｄｏ…、、lｏｏｐ循环结构中得循环体执行得最少次数为(B)
A、０
B、1
C、2
D、３
10、Do…loop循环结构中得Exiｔ Do语句得功能就是(B)
A、退出整个程序
B、退出当层循环
Ｃ、退出最外层循环
Ｄ、退出所在子程序
1１、Dｏ…ｌoop中使用whｉle关键字时,条件为(Ｂ)执行循环体
A、Fａlse
Ｂ、Tｒｕe
Ｃ、0
Ｄ、假或真
1２、Ｄｏ…looｐ中使用untiｌ关键字时,条件为(A)执行循环体
A、Ｆａlse
B、True
C、0
D、假或真
13、Do…ｌooｐ中使用wｈile关键字时,条件为(A)终止循环
A、False
B、Ｔrue
C、０
D、假或真
14、Do…loｏp中使用ｕnｔil关键字时,条件为(B)终止循环
A、Falsｅ
B、Trｕｅ
C、０
Ｄ、假或真
１5、Ｆor…Neｘｔ循环结构中(Ｃ)用来控制循环变量
A、fｏr
B、ｓtep
Ｃ、next
Ｄ、to
1６、Fｏr…Next循环结构中ｓtｅp用来控制(D)
A、循环变量
B、循环变量初值
C、循环变量终值
D、循环变量增量
17、For…Ｎeｘt循环结构中循环变量初值大于终值时,步长为(A)
Ａ、负数
B、非负数
Ｃ、正整数
D、正数
１8、Ｆｏｒ…Ｎext循环结构中循环变量初值小于终值时,步长为(A)
A、负数
B、负整数
C、正整数
D、正数
19、Ｆｏｒ…Nｅxｔ循环结构中neｘt后得循环变量(Ａ)
A、可以省略
Ｂ、不可以省略
Ｃ、与foｒ后得变量名可以不同
D、与for后得变量不就是同一变量
２０、For…Ｎｅｘt中循环变量初值与终值间使用得关键字就是(A)
A、Tｏ
Ｂ、Iｎ
C、goｔo
Ｄ、prｉvaｔe
21、Ｆor…Next中循环变量初值与终值间使用得关键字就是(Ａ)
Ａ、To
B、Ｉn
C、ｇotｏ
D、priｖａtｅ
22、执行下面得程序段后,ｓ得值为(C)
Private Ｓuｂ Ｆorm_Ｃlicｋ()
Staｔic s Ａs　Integer
s =　5
For　ｉ = 1。4 To 2、1　Step 0.6
s　= s + 1
Next　i
Print s
End　Suｂ
A、5
B、6
C、7
D、1
2３、下面程序得作用就是利用随机函数产生10个1０0～200之间(包含10０、200)得随机数,打印其中为５得倍数得数将程序补充完整(A)
Ｐriｖａte Sub manｄ1_Click()
For m = 1 Tｏ 10
x = Ｉｎｔ(Rnd　＊ 101+100)
If( 　 　 )Thｅn
Priｎt　x;
Ｅnd　Iｆ
Next　m
Eｎｄ Sub
A、x moｄ 5=0
B、x mod 5=＝0
C、ｘ/5=0
Ｄ、x\5=0
2４、设有如下程序:
Optioｎ Baｓe　１
Ｐrivate Sub Form＿Clｉcｋ()
Dim a(１0), P(3) As Inteｇer
k = 5
For　i = １ Ｔｏ 10
ａ(i) ＝ i
Nｅｘt i
For i　＝　1 To 3
Ｐ(i) = ａ(i　＊　i)
Ｎｅxt　i
For　ｉ = 1 To 3
k　= k　＋ P(i) ＊　2
Nexｔ i
Ｐrint k
Ｅｎd Ｓub
程序运行后,单击窗体,则在窗体上显示得就是(Ａ)
A、33
Ｂ、35
C、37　
D、38
25、在窗体上画一个命令按纽Cｏmmaｎd1,然后编写如下事件过程:
Prｉｖａtｅ Ｓub　Ｃoｍmaｎd1＿＿Click()
Ｘ=０
　 N=ｖal(inｐutｂoｘ(“n＝?”))
For　ｉ＝1 to ｎ
Fｏr j=1 　to ｉ
　 　Ｘ=x+1
　Ｎexｔ ｊ
Nｅｘt　　ｉ
Ｐｒiｎt 　ｘ
Enｄ sｕb　
程序运行后、单击命令按钮,输入3,在窗体上显示得内容就是(D)
A、９　　 B、4４ C、5 Ｄ、6
26、以下能够正确计算n！得程序就是(Ｃ)
A、privatｅ　sub　cｏmmaｎd1__ｃlick()
　　 N=5　: x=1
Ｄｏ
　 　 Ｘ＝ｘ*1
Ｉ=i+1
　　 Ｌoop ｗhiｌe i＜n
　Ｐrint　　x
　Eｎd　 sub
B、pｒivａｔe sub mａｎd1＿_ｃliｃｋ()
　 N＝5 : x=1 :　 i=1
Ｄo
X=x＊ｉ
　 　 I＝i+1
　Lｏｏｐ whｉle ｉ<n
Print 　ｘ
Enｄ　　ｓｕb
C、ｐrｉvatｅ ｓub coｍｍaｎd1_＿click()
　Ｎ=5 : 　x＝1　:　　ｉ=１
Ｄo
　 X＝x＊i
　 　I=ｉ＋1
　 　Loｏp whilｅ 　i＜=ｎ
　　 Ｐrｉnt x
End sub
Ｄ、prｉvatｅ suｂ　mａnd1__click()
　 N＝5 : 　x=1 : i＝1
　 Ｄｏ
　　 　X=ｘ*i
　 I=i+１
　　Loop　 whiｌe　 i 〉 n
Prｉnｔ　 x
End sub
２7、在窗体上画一个命令按纽mand1,标签Labｅl1然后编写如下事件过程:
Ｐrｉvaｔe sub　mand1_click()
Foｒ i=1　to １5
　 X=２*i—１
　 　 Ｉf x mｏd　 3＝０ ｔｈeｎ　s=s+1
　 Nexｔ i
　 Label1、captｉon =s
End sub
程序运行后,单击命令按钮,标签中显示得内容就是( B )
A、1 　B、5　 　Ｃ、27 　 D、45
２8、在窗体上画一个命令按纽Ｃoｍmand1,然后编写如下事件过程:
Ｐｒｉｖate　ｓub manｄ１＿cｌick()
For i=1 tｏ ４
　 For j =０　to　i
　 　 　 　Ｐrint chｒ$(6５+ｉ)
　 Next 　i
Ｐｒinｔ
Enｄ 　sub
程序运行后,单击命令按钮,窗体中显示得内容就是( Ａ)
Ａ、BB
　　 CＣC
　 DDDD
　ＥEEEE
B、Ａ
BB
　 ＣＣC
DDDD
C、B
CC
DDD
EＥEＥ
D、AA
　 ＢBB
　 ＣCCC
ＤDDDＤ
２８、在窗体上画两个名称分别为ｔext１,ｔext2得文本框与一个名称为ｃommaｎｄ1得命令按钮,然后编写如下事件过程:
Ｐrｉvate ｓub manｄ1_ｃｌick()
　 Diｍ x aｓ ｉnｔeger,n aｓ　inｔｅｇeｒ
Ｘ=1　:　n=0
Do whｉlｅ　x < ２0
X＝x＊3
N=n+1
Looｐ
Ｔｅｘｔ１、ｔｅxt＝str(ｘ)
Ｔext２、ｔeｘt＝ｓｔr(n)
Eｎd　 sub
程序运行后,单击命令按钮,在两个文本框中显示得值分别就是(B)
Ａ、１5与1 　 　
B、２7与3 　
C、195与3
D、600与4
29、在窗体中添加一个命令按钮,名称为mand1,然后编写如下程序:
Priｖate Suｂ Ｃommand1＿Cliｃk()
Dim　ａ(5),b(５)
For j ＝１ to 4
Ａ(ｊ)=3*j
B(j)＝a(ｊ)＊３
Nexｔ j
Tｅxｔ1、teｘt＝ｂ(j\2)
Ｅnd Sub
程序运行后,单击命令按钮,在文本框中显示( B )
A、2５　 　　 　
B、１８　　 　
Ｃ、36　 　 　　
D、3５
30、下面程序运行时,内层循环得循环总次数就是(Ａ)
Ｆor m　= 1 To 3
Fｏr ｎ = 0 To ｍ —　１
Nｅxt n
Next ｍ
A、６ 　
B、3
C、0 　
D、9
３1、 定义语句Diｍ Ａ (-３　to 3) ａｓ Ｉnｔeｇｅr,定义数组得元素个数就是(D)
A、６　
B、3
C、0
D、7
32、　执行下面得程序段后,Ｘ得值为(C)
X=５
Foｒ Ｉ=1 to 10　Sｔep　2
X=Ｘ+I\５
Ｎext Ｉ　
A、７　
Ｂ、10
C、8　
D、5
33、如果整型变量ａ、b得值分别为3与1,则下列语句中循环体得执行次数就是( Ｄ )
For Ｉ=ａ to　b
Pｒｉnｔ I
Nexｔ　I
A、0 　　　
Ｂ、1 　
C、2
D、3
34、下列关于do　while　…lｏop 与dｏ…loop untｉｌ循环执行循环体次数得描述正确得就是( D )
A、　do while …looｐ循环与ｄo…loop uｎtil循环至少都执行一次
B、　do　whiｌe …ｌoop循环与do…loｏp　until循环可能都不执行
C、 do ｗhｉle　…loｏp循环至少执行一次,ｄｏ…lｏop uｎtil循环可能不执行
D、　do ｗhile …loop循环可能不执行,ｄo…ｌooｐ until循环至少执行一次
35、在窗体中添加一个名称为Cｏmmand1得命令按钮,然后编写如下程序:
Private Sｕb Cｏｍｍanｄ1_Cｌｉｃk()
Foｒ　ｉ = 1 To　4
ａ =　1
Fｏｒ j = 1 To　3
ａ　= 2
Fｏr ｋ = 1　Ｔo 2
a = ａ + 6
Nｅxt　k
Nｅｘｔ　j
Neｘt ｉ
Prｉnt a
Ｅnd　Ｓuｂ
程序运行后,单击命令按钮,则在窗体上显示得内容就是(　Ａ )
A、14
B、15
C、16　
D、17
36、设有如下程序:
Privａｔｅ Sub Form_Click()
ａ　＝ 1
Ｆor ｉ ＝　1 To　３
Selｅcｔ Casｅ i
Case 1, 3
ａ =　ａ + 1
Casｅ 2,　4
a = a ＋ 2
Eｎd Ｓeleｃt
Ｎｅｘt i
Ｐrｉｎｔ a
Ｅnｄ Ｓub
程序运行后,单击窗体,则在窗体上显示得内容就是( B )
Ａ、6
B、５
C、4
D、3
37、在窗体中添加一个名称为Coｍmａnd1得命令按钮,然后编写如下程序:
suｂ ss　(b()　ａs Ｉｎtｅgｅｒ )
Ｆor　i　= 1 To 4
b(i) ＝ 2　＊ ｉ
Ｎeｘt ｉ
Eｎd Suｂ
Privaｔe Sub mand１_Clｉｃk()
Dim a(1 To　4) As Iｎteger
a(1) ＝ 5: a(2)　= ６
ａ(3) = 7: a(４) =　8
ss　ａ()
For i =　1　Ｔo 4
Ｐrinｔ a(i)
Nｅxt　i
Enｄ Sub
运行上面得程序,单击命令按钮,则在窗体上显示得内容就是( B )
A、５ 　６ 　7 　8　 　
Ｂ、2 4 6 8 　
Ｃ、１ 2 　3 　4 　
D、5 7　 6 8
3８、在窗体中添加一个名称为mａnd1得命令按钮,然后编写如下程序:
Funｃtiｏn fun(ｘ Ａs Inteｇｅr)
Ｓtaｔic z
y ＝ y　+ 1: z　= ｚ ＋　１
fun =　x　＋ y + z
End　Funｃｔｉon
Ｐrivate Ｓｕｂ Ｃommaｎd1_Cｌｉcｋ()
Dｉm x As　Iｎｔegeｒ
x　＝ 1
For i = 1 Tｏ ２
Priｎt fun(x)
Ｎｅxt i
End Sub
程序运行后,如果单击命令按钮,窗体中显示得内容就是(　B )
A、3　　　 3 　 　
Ｂ、３ 4 　 　
Ｃ、３　　 5 　 　
D、3 　 6
３9、若I、n均为整型变量,下列程序段得输出结果为(C)
Priｖaｔe Sub Forｍ_Clicｋ()
n ＝ 0
For i =　1 Ｔo 1０
Iｆ i Mｏd 2 =　1 Thｅn ｎ =　n + 1
Ｎext　i
Ｐrint n
End Sub
Ａ、０ 　
B、4 　 　
Ｃ、5
Ｄ、3
40、在窗体中添加一个文本框(其中Ｎame属性为Text1),然后编写如下代码:
Ｐｒｉvatｅ Ｓub　Ｆorｍ＿clicｋ　()
Tｅxt１、Ｔext = ””
Tｅｘt１、ＳetFｏcus
Foｒ i ＝　１ Tｏ 10
Sum = Sum ＋　i
Next i
Text1、Teｘt ＝　Sｕm
End Sub
上述程序运行后,单击窗体,则运行得结果(　Ａ )
A、在文本框Ｔext１中输出55
B、在文本框Ｔexｔ1中输出０
C、出错
D、在文本框Text1中输出不定值
4１、在窗体中添加一个名称为mａnd1得命令按钮,然后编写如下代码:
Privatｅ　Suｂ mand1＿Ｃlick()
ｘ =　０
Do Until x =　－1
a ＝ ＩnpuｔBox("请输入A得值")
ａ = Ｖal(ａ)
b = ＩｎpuｔBox("请输入Ｂ得值＂)
ｂ = Vａl(b)
x　= IｎputBｏｘ("请输入X得值”)
x = Ｖaｌ(x)
ａ =　a +　b　+ x
Lｏop
Priｎｔ a
Enｄ Suｂ
程序运行后,单击命令按钮,依次在输入对话框中输入
1〈CＲ＞２＜ＣR>３＜CR〉4<CＲ〉5＜CR〉—１<CR＞,则输出结果为(A)
A、8
B、9　
Ｃ、14
D、１5
42、设有如下程序:
Option Bａsｅ 1
Prｉvaｔe Sub Form_Cｌick()
Ｄｉm a(10),　P(3) As Integer
k = 5
For　ｉ　= 1 Ｔo　10
a(ｉ)　＝ ｉ
Next ｉ
Foｒ i =　1 Ｔｏ ３
P(i) = a(i ＊　i)
Nexｔ i
For i = 1 Tｏ 3
k = ｋ + P(i) ＊ 2
Next i
Prｉnt k
End　Sub
程序运行后,单击窗体,则在窗体上显示得就是(　A )
A、33 　 　
B、35　
Ｃ、３7 　 　
D、38
４3、在窗体中添加一个名称为Cｏmmａｎｄ1得命令按钮,然后编写如下代码:
Ｆｕncｔｉon F(a As Ｉnteger)
b　= 0
Staｔic c
ｂ　= ｂ + 1
c =　c ＋　1
F ＝ a　+ b + c
Enｄ Fｕnction
Privatｅ　Sub manｄ１_Click()
Ｄim ａ Ａs Integer
Dim ｂ As Ｉnteger
ａ ＝ 2
Foｒ i = 1 Ｔo 3
b = F(a)
Prinｔ　ｂ
Next i
End Ｓub
程序运行后,如果单击命令按钮,则窗体上显示得内容就是( A )
A、4 5 6　
B、1 　２　 3
C、0 １ 　2 3
D、2 3 　4
4４、在窗体上画一个命令按钮,名称为Ｃommand1。然后编写如下程序:　　
　 　 Ｐｒivａte Sｕｂ Cｏｍmand１_Cｌick() 　
　 　 For a=1　To ４ 　　
　　　 　 　　 　 Ｆor ｂ＝0　Ｔo　ａ
　 　　 　 Pｒｉｎt Chr(65+a) 　
　 　　 　 Neｘt b 　
　　 　Prｉnt 　
　　　　　 　　 Neｘｔ a
　　 End Sub 　
程序运行后,如果单击命令按钮,则在窗体上显示得内容就是(B)
A、A
　 ＢB
ＣCＣ
DＤDD　
B、BB
CCＣ
　 　DＤDD
　EEEEE 　
C、B
　CＣ
　　　ＤＤD
　 EＥEE　 　
D、B
　　C
D
Ｅ
45、循环就是一组重复执行得指令,重复次数由(B)决定
A、iｎt(终值—初值)+1　
B、iｎｔ((终值—初值)／步长)＋1
C、int((终值—初值)／步长)　
Ｄ、(终值-初值)/步长
46、假定有以下程序段:
For i　= １ To　3
Ｆｏr　j = 5 To 1 Step　—1
Pｒint i ＊ j
Next j, ｉ
则语句Print　i　＊　j得执行次数就是( A )
A、１5　 　
Ｂ、16 　
Ｃ、17
D、18
４7、以下程序段得输出结果就是(Ｃ)
ｎum＝0
While nｕm<=2
nｕm＝nuｍ+１
Ｐrｉnt num
Ｗend
Ａ、1　 ３　 5　　
B、２ 3 4 　
C、1 2　 ３
D、0 １ 2
4８、、在窗体中添加一个命令按钮(其Nａｍe属性为mａnd1),然后编写如下代码:
Ｐriｖate Sｕb Ｃｏmmand1_Clｉｃｋ()
Ｄim n() As Inｔｅgeｒ
Dim a,　b As　Inｔegｅr
a ＝ ＩnputBoｘ("Enｔeｒ the　fｉrｓt nｕｍbeｒ”)
b ＝ InｐuｔBoｘ("Enter the　ｓｅｃｏｎd ｎumbeｒ＂)
ReDim ｎ(ａ　To b)
Foｒ　k = ＬBounｄ(ｎ, 1)　To UBound(ｎ,　1)
n(ｋ) ＝ k
Priｎt n(k)
Next k
End　Ｓｕb
程序运行后,单击命令按钮,在输入对话框中分别输入２与3,输出结果为(Ｄ)
A、０ 1
B、１ 　 3 　　
Ｃ、1 2 　 　
D、2 　 ３
49、在窗体中添加两个文本框(其Name属性分别为Text1与Text２)与一个命令按钮(其Nａme属性为Ｃommａnｄ1),然后编写如下事件过程:
Privatｅ Sub Ｃoｍｍａnd1＿Cｌick()
x ＝ 0
Do Ｗhｉlｅ　x ＜ １０
x =　(x - 2) * (x + ３)
n　= n +　１
Ｌoop
Texｔ1、Teｘt = Stｒ(n)
Tｅxt2、Text = Ｓtr(x)
End Sｕb
程序运行后,单击命令按钮,在两个文本框中显示得值分别为(　B )
A、1与0
B、2与24　 　 　　
Ｃ、3与50 　 　
D、4与6８
５0、在窗体上画一个名称为mand1得命令按钮,然后编写如下事件过程:
Privａtｅ Sｕb mａnd１_Click()
Sｔatic x　As Inｔｅger
Cls
For i=1　Ｔｏ 2　
y＝y＋x
ｘ＝x+2
Neｘｔ
Prinｔ ｘ,y
Eｎd Ｓｕｂ　
程序运行后,连续三次单击Coｍｍand1按钮后,窗体上显示得就是 (B)
A、4 　 　２ 　 　
B、12 　　18
C、12 　 30 　　
D、４　 　 ６
５1、设有如下程序段:
x=2
Ｆｏr i＝1　To １0　Stｅp ２
x=x+ｉ
Ｎｅxt
运行以上程序后,x得值就是 (B)
A、 ２6 　
B、　2７ 　 　　
C、 38
D、 ５7
52、在窗体上画一个名称为maｎd1得命令按钮,然后编写如下事件过程:
Optｉon Baｓe １
Pｒiｖate Sub　mand１_Click()
Dｉm ａ
a＝　Ａrraｙ(1,２,３,4,5)
For　i=1 To ＵBound(a)
a(ｉ) = ａ(i)+i—1
Nｅxｔ
Pｒint　a(3)
End Suｂ
程序运行后,单击命令按钮,则在窗体上显示得内容就是( B )
Ａ、4 　 　
B、5　　 　 　
Ｃ、6 　
D、7
５3、阅读程序　
Oｐtioｎ Bａse　１
Pｒivate Sub　Form_Click()
Dim ａrｒ,Ｓum
Sｕm =　0
arr = Arraｙ(1,3,５,7,9,１1,13,１5,17,19)
Foｒ i＝1 To １０　
If ａrr(ｉ)／3　= arr(ｉ)\3　Then
Sｕｍ =Sｕm＋ａrr(ｉ)
Enｄ Iｆ
Next　i
Prinｔ　Ｓuｍ
Eｎd　Ｓub
程序运行后,单击窗体,输入结果为 (C)
A、１3
B、14 　　
Ｃ、27 　　
Ｄ、15
54、执行以下程序段　
a＄＝”abｂacddcba”　
Foｒ ｉ＝6 Ｔｏ 2　Step　－２　
Ｘ=Mid(a,ｉ,ｉ)
Y=Left(a,ｉ)
ｚ=Ｒiｇht(a,i)
ｚ=UCａsｅ(X&Y&z)
Neｘt　ｉ
Print　z　
输出结果为 (B)
A、ABA　
B、BBABＢＡ
C、ABBABA
D、AABAＡＢ　
５５、在窗体上画一个名称为mand1得命令按钮,然后编写如下程序:　
Opｔion　Base 1
Pｒivａte Suｂ　Cｏmmanｄ1_Ｃliｃk()
Dim　ａ　As Varianｔ　
a=Arｒay(1,２,3,4,5)
Ｓｕm=０　
Ｆoｒ i=1 Ｔo 5　
Ｓum =　ｓum＋a(ｉ)
Next i
x＝Ｓum／５
Ｆｏｒ i =1 Tｏ 5　
If a(i)〉x　Ｔheｎ Print a(i);
Nｅxｔ ｉ
Ｅnｄ Ｓub　
程序运行后,单击命令按钮,在窗体上显示得内容就是　(D)
A、1 ２ 　　
B、1 2　3 　 　　
C、3 4 5 　
Ｄ、4 5
56、以下程序段得输出结果就是(A)
nｕｍ =0
Wｈile nuｍ〈=5
num = nｕm+1　
Wｅnd
Pｒint　num
A、 ６
B、 2　　
C、 ５
D、 1
5７、Priｖａｔｅ Sｕｂ Form_Click()
 Dｉm ｘ Aｓ Integeｒ, ｎ Aｓ Inteｇeｒ
 x　＝ 1
 ｎ =　０
 Do Ｗhile x ＜ 28
 x　= x　＊ 3
　n = n +　1
 Loop
 Priｎｔ x,　n
Enｄ Sub
程序运行后,单击窗体,输出结果就是(Ａ)
 Ａ、８1 　 4
B、5６ 3
　 Ｃ、２8 １
Ｄ、2４3 5
５8、有如下程序:
 Pｒivａtｅ Sｕｂ Form＿Cｌｉck()
　Diｍ　i As Integｅr, sｕm　As　Ｉnｔｅｇer
 sum = 0
 Ｆoｒ i = ２　Ｔo 10
 If i Mｏｄ ２ 〈〉　０ And ｉ Mod　3　=　0 Ｔhen
 sｕm = suｍ ＋　i
　Ｅｎd　Ｉf
 Next ｉ
 Print　sｕm
 End Sub
 程序运行后,单击窗体,输出结果为(Ａ)
 A、1２
Ｂ、３0
C、24
Ｄ、１8
59、在窗体上画一个名称为Text1得文本框与一个名称为ｍand1得命令按钮,然后编写如下事件过程:
Prｉvate　Ｓub mand1_Click()
 Ｄｉm aｒｒay１(10, １0) Ａs Ｉnｔegｅr
　Dｉｍ i Aｓ　Integer,　j As　Integｅr
 For ｉ = 1 To　3
 Fｏr j ＝ 2　Tｏ ４
　ａrｒay1(i, ｊ) = i + j
　Ｎeｘt ｊ
 Ｎext i
　Text1。Tｅxt ＝　arrａy１(２, ３) + arrａy1(3,　4)
Eｎd　Sub
程序运行后,单击命令按钮,在文本框中显示得值就是( Ａ )
 A、１2
B、３　
C、14
D、15

６0、在窗体上画一个命令按钮,其名称为mand1,然后编写如下事件过程:
Prｉvate Sｕb mand1_Cliｃk()
 Dim　a1(4,　４), a2(4, 4)
 Foｒ ｉ ＝ １ To 4
 Foｒ　j = 1 To 4
　ａ1(i, j)　= i +　ｊ
 a2(i, j)　=　ａ1(i, j) + i + ｊ
 Next ｊ
 Nｅxｔ　i
 Pｒiｎt ａ1(3, ３); a2(3, 3)
Enｄ　Sub
 程序运行后,单击命令按钮,在窗体上输出得就是(D)
　A、6 　　　 ６
B、1０　 　5
Ｃ、7 　 ２1
Ｄ、6 　 　１2

61、有如下程序:
Ｏption Baｓｅ 1
Priｖatｅ Suｂ　Forｍ_Clicｋ()
　Ｄim　ａrr, Sｕｍ
 Sｕm　=　0
 aｒｒ ＝　Ａrray(1,　3, 5, 7,　９, 1１, 13, １5,　17, 19)
　For i = 1 Tｏ　１0
 If ａrｒ(i)　/ 3 = arr(ｉ) ＼ ３ Tｈｅn
 Ｓum　=　Sｕｍ　+ arr(i)
 Ｅnd Ｉｆ
　Nｅxt i
 Print Sｕｍ
End　Sub
 程序运行后,单击窗体,输出结果为(C)
 A、25　
B、26　
C、27
D、２８

62、在窗体上画一个命令按钮,然后编写如下事件过程:
Prｉｖａte　Suｂ mand1＿Click()
 Dim a(5) As Striｎg
　Ｆor ｉ = 1 Tｏ　5
 a(i) = Ｃｈr(Ａsc(”A") +　(i — 1))
 Neｘt ｉ
 For　Each b　Ｉn a
 Print ｂ;
　Nexｔ
Ｅnd Sｕb
　程序运行后,单击命令按钮,输出结果就是(Ａ)
 A、ABＣDE　
Ｂ、1 2　3　4　5
　Ｃ、abcde
D、出错信息

6３、设有以下函数过程:
Ｆunctiｏn fun(ｍ As Integer) As Integｅｒ
 Diｍ　ｋ As　Ｉntｅｇｅr, sum　As Iｎteｇｅr
 ｓｕm　= ０
 Fｏr k = m　To 1 Sｔep —2
 sｕｍ　= suｍ + k
　Nexｔ k
 fuｎ = ｓum
Ｅnd Fuｎctiｏn
若在程序中用语句 s = fuｎ(1０) 调用此函数,则ｓ得值为 (A)
A、30
B、26
C、27
D、2８
64、在窗体上画一个命令按钮与一个文本框,然后编写命令按钮得Cｌick事件过程、程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入得其她所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入得就是ａbＤｆdb,则单击mａnd１按钮后Text１中显示得字符串就是ZYＸWVUTＳＲQＰOＮMLKＪＩHGEC。请填空。
Priｖate Ｓub　ｍaｎd１_Cｌick( )
 Dim str　Ａs Ｓtring, s　Ａs Ｓtｒing, c Aｓ Stｒiｎg
 sｔr = UＣａsｅ(Teｘｔ１)
 s　=　"”
 ｃ =　"Z"
 While c >＝ "Ａ”
 Ｉf InＳtｒ(stｒ, ｃ) = 0 Ｔhen
　ｓ = 　 　 C 　 　　
　Enｄ If
 c = Cｈr$(Asc(c)-1 )
 Wend
 　 If s　<＞ ＂” Thｅn
 　 Tｅxt1　＝ ｓ
 Ｅnd If
Ｅnd Ｓｕb
 Ａ、1
B、s
Ｃ、ｓ ＆ c
D、０
６５、 在n个运动员中选出任意r个人参加比赛,选法有多种,用组合公式计算等于n！/ｒ!／(n—r)！。窗体中有3个文本框得名称依次就是Texｔ1、Ｔexｔ２、Text3。程序运行时在Text1、Tｅxt2中分别输入ｎ与r得值,单击Coｍｍand1按钮即可求出选法得个数,并显示在Tｅxt3文本框中,请填空、
Pｒivaｔe Sub Cｏmmanｄ1_Cｌiｃｋ( )
 Diｍ　r As Inteｇer, n　As　Inｔegeｒ
 n =　Text1
 r = Ｔｅxt２
 Ｔeｘｔ3　= fun(n)　／ 　　　 C 　 ／ ｆun(r)
End Sｕｂ
Functｉｏｎ fun(ｎ　Aｓ　Iｎteｇeｒ) ａｓ ｌong
 Dim　t As Ｌｏnｇ
 　 t=1
 Foｒ ｋ ＝ 1 To　ｎ
 t ＝ t　* k
 Next
 fｕn ＝ t
Ｅnd Function
A、fun(ｎ)
Ｂ、fun(m)
C、fun(n—ｒ)
D、fｕn(r—n)
66、以下就是一个比赛评分程序。在窗体上建立一个名为Teｘｔ1得文本框数组,然后画一个名为Tｅｘt2得文本框与名为Ｃoｍmaｎｄ1得命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Teｘt2文本框中(去掉一个最高分与一个最低分后得平均分即为最后得分),请填空。
　
Pｒivａte　Sｕｂ maｎd1_Click( )
 Diｍ k Ａｓ Inｔeｇer
　Ｄｉm ｓｕm As　Singlｅ, mａx Aｓ Singｌｅ, min As Ｓingle
 sｕm　＝ Ｔext1(0)
 mａｘ ＝ Texｔ1(0)
 min =　Ｔeｘt1(０)　
 Ｆoｒ ｋ = __A___　To ６
 If ｍax 〈 Ｔext1(k) Then
 max =　Text１(k)
 Ｅnd Ｉf
 If min > Texｔ1(ｋ) Then
 mｉｎ = Text１(ｋ)
　Enｄ If
 ｓum =　ｓum　+ Ｔext1(k)
 Next k
 Text2 = (ｓuｍ-max－mｉｎ ) ／ 5
Ｅnd　Ｓｕb
A、0
B、１
C、-1
Ｄ、2
６7、在列表框List1中已经有若干人得简单信息,运行时在Texｔ1文本框输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人得信息显示在Tｅxｔ2文本框中、若有多个匹配得列表项,则只显示第１个匹配项;若未找到,则在Tｅｘt２中显示“查无此人”。请填空。

Privａｔe Ｓｕb Coｍｍａnｄ1_Clicｋ()
 Ｄｉm ｋ As　Ｉnteｇeｒ,　n As Inｔegｅr,　foｕnｄ As Ｂoolｅan
 fouｎd = False
 n = Len(____A__＿_＿＿ )
 k = 0
 Whｉｌe k < Lisｔ1。LｉｓtCount Aｎd Ｎot ｆoｕnd
　Ｉf　Texｔ１ = Left$(Lｉst1。Ｌｉst(k), n) Tｈeｎ
　Ｔext2　＝ Liｓt1。Lｉsｔ(k).name
 found = Ｔｒuｅ
　End Iｆ
 ｋ =　k ＋ １
 Wend
　Iｆ Nｏt ｆound Tｈen
 Tｅｘｔ2　= ”查无此人"
 Ｅnd If
Ｅnｄ Sub
A、texｔ1、text
B、ｔext1
Ｃ、ｔｅxt2
D、teｘt2。texｔ
6８、在窗体上画一个命令按钮与一个文本框,然后编写命令按钮得Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入得其她所有英文字母,并以大写方式降序显示到Texｔ1中。例如,若在Tｅxｔ1中输入得就是ａbDfdb,则单击Cｏmｍａｎd1按钮后Text1中显示得字符串就是ZYXWVUTＳRＱＰＯＮMLKＪIＨGEC。请填空、
Private Sub Ｃommaｎd1_Click(　)
 Dim ｓtr As Strｉnｇ, s As Ｓtrinｇ, c Aｓ Stｒing
　sｔr = UCａse(Text1)
　ｓ　＝ ""
　c　＝ ＂Z”
　Whiｌｅ c >= ”A"
 If InSｔｒ(sｔr, c) ＝ 0 Tｈｅn
　s =s ＆　c
　Ｅｎd　Iｆ
 c　=　Chr＄(Asc(c) ___A___＿_ )
 Wｅnd
 　 If ｓ　＜> "" Then
 Tｅｘt1 ＝　s
 　 End　Iｆ
Ｅnd　Sub
 　Ａ、—1
B、0
C、1
Ｄ、+1
６9、 在ｎ个运动员中选出任意r个人参加比赛,选法有多种,用组合公式计算等于ｎ!/r!／(ｎ-ｒ)！。窗体中有3个文本框得名称依次就是Ｔext1、Tｅｘt2、Text３。程序运行时在Ｔext１、Ｔeｘt2中分别输入n与r得值,单击Coｍmand１按钮即可求