VB测试题(必做部分).docVIP

PAGE / NUMPAGES ＶB必做测验及答案 目录 　ＴOC ＼o ”1—3” \h　\z \u HYPERLIＮK \l ”_Toc3541６3211” 实验４ 选择结构程序设计 ＰＡＧEREF _Tｏｃ3５４１63２１1 ＼h　2 　HYＰＥRLINK ＼l ”_Ｔoc3５4163212 实验6 循环结构程序设计 PＡGEREF _Toc35４163212 ＼h 6 　HYＰＥRLINＫ　＼l _Ｔoc354163213 实验７ 数组 ＰAGEREＦ _Ｔoc354163213 \ｈ 8 　HＹPＥＲLＩNK \ｌ　＿Toc35４16３2１４” 实验9 常用控件 　ＰＡGERＥF ＿Toc354163214 \h １0 实验4 选择结构程序设计 1.若整型变量a的值为２、b的值为3，则下列程序段执行后整型变量c的值为____＿_。 　 If ａ＞５ tｈen 　　 Iｆ　b〈4　theｎ 　 　 　　 ｃ=a－b 　 　　 Eｌsｅ 　 c=b—a 　　 End　ｉf 　 ＥｌseIｆ b３　then c=a*ｂ 　Ｅｌse 　　　　　 c＝a mod ｂ 　　End if 　　a）　 ２ ｂ)　 —１ c)　 1 　 ｄ） 6　 答案：A 2.下列程序的执行结果为_＿___. 　A＝100:b=50 　 If ab Ｔｈｅn 　 ａ=a—b 　　Elｓe b＝b＋ａ Eｎｄ if 　 Pｒiｎt ａ ａ） 　50 b)　 10０　 　 c） ２00　 　 d） 1０ 　答案：A ３．以下程序输出1到1０00之间所有的偶数之和，请补充完该程序。 Private　Ｓｕｂ Coｍmaｎd_Cｌick（) 　 Dim　x　Aｓ Double 　 　 For Ｉ=0 Tｏ　1０00 　 If ____ Thｅｎ 　 　 x=x+I 　 　　 Ｅnｄ If 　 　Ｎeｘｔ I　 　　　 Priｎt x 　End Ｓub a)　　i Moｄ　2 = 0 　 　b） 　x Mｏd ２ = 0 　 ｃ) I Moｄ　2 〉 ０　 　 d）　 x　Mod 2 〈 0 　 　答案：A ４．下列程序段的执行结果为 　。 ｘ=Int（Ｒnd+4) Seｌｅct Cａsｅ x Case 3 Priｎt ”优秀＂ Case　4 Ｐrｉnt　良好 Ｃase 5 Prｉnｔ　”合格” Ｃasｅ　Else Pｒinｔ ”不合格 Eｎd Selｅcｔ Ａ)优秀 B）良好 Ｃ)合格 D）不合格 答案：B 5。以下程序段的执行结果是_＿___. X=2：y=1 　 Ｉf x*y＜１ Theｎ 　 　 y=ｙ-1 Eｌse 　 　　 y=—1 　　 Ｐriｎt y-ｘ0 　　　End　If 　a)　 Ｔure　 　 b）　 Fａlse c) —1 　　 ｄ）　　1 　 答案：B 6．设计两个ChｅckBox,一个显示粗体，一个显示斜体，通过对CheｃkBoｘ的选择，在一个文本框中显示相应效果的文本，完成下列程序. Pｒivate Sub Foｒm＿Lｏaｄ（) ption＝显示粗体” ptｉoｎ=显示斜体 Text1。Teｘt=Visｕal Ｂasic 6.０＂ Enｄ　Suｂ Ｐriｖate Sub Cｈｅcｋ１＿Cｌｉcｋ(） If　 Checｋ１．Ｖaｌue　 　=1 Then Text1。FontＢolｄ=True Ｅｌse Teｘt1.ＦｏntＢoｌd=Fａlse Ｅnd If Enｄ Ｓｕb Privaｔe Sub Cｈeｃk2_Clicｋ() If Checｋ2。Vaｌｕe=１　Then Tｅxｔ1. ＦontItaliｃ 　=Tｒue Else Ｔeｘt1。 FonｔIｔaｌic =Faｌｓe Ｅｎd If Eｎd　Sub 7。下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 Ｉf　a〈b　Ｔhｅn 　 ｄ＝a:a=b:ｂ=ｄ 　 EｎdIf 　 Ｉf ａ〈c Thｅn d=a：ａ=ｃ:c＝ｄ EndＩf If___＿_Thｅｎ 　 d＝b：b=c：ｃ=d EｎdＩｆ Prinｔ a，ｂ,c 　　答案：b〈c 8。在下列关于 Select Cａse 的叙述中，错误的是(??? ）? 选择一个答案 a。　Casｅ　10 To　１０0 表示判断Is 是否介于10 与10０之间 b