VB模拟试卷29(纠正).docVIP

VB模拟试卷 【程序】 Private sub command1_click() Dim y as single , x as integer ,t as single Dim n as integer, i as integer, f as integer n=inputbox(“n=”) do x=InputBox(“x=”) loop______(1)______ y=1:_______(2)______ for i =2 to _______(3)_________ t= -t*x :y=_______(4)_________ next i print y End sub 【供选择的答案】 (1) [A] while abs(x)1 [B] while x-1 and x1 [C] until abs(x) 1 [D until x 1 (2 [A] t= -x/2 [B] t=-1 [C] t=0 [D] t=1 (3) [A] n-2 [B] n [C] n-1 [D] n+1 (4) [A] y+t/i [B] t*i [C]t/i [D] y + t*i 2.阅读下列程序说明和程序，在每小题提供的若干可选择答案中，挑选一个正确答案。 [程序说明] 单击command1后计算机list1中所有数的平均值，清空列表框控件list2中所有表项后将所List1中所有小于平均值的数据写入到list2（如下图所示） [程序] Private Sub command1_click() Dim n as integer ,I as integer ,s as single,v as single n=______(5)______ _________(6)_________ For i =1 to n a(i) = _________(7)____:v=v+a(i) next i v=v/n:______(8)_______ for i= 1 to n if a(i) v then list2.additem a(i) next I end sub 【供选择的答案】 (5) [A] list1.listcount-1 [B] list1.listcount [C] list1.listindex [D] list1.count (6) [A] Redim a(n-1) [B] dim a(n ) as single [C] redim a(n) as single [D] dim a(n) (7) [A] list1.list(i-1) [B] list1.list(i) [C] list1.text [D] list1.list(i+1) (8) [A] list2.move [B] list2.list=”” [C] list2.cls [D] list2.clear 3.阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】 运行时初态如下图所示，text2、text3、command1不可用。输入姓名按回车text2可用，输入学号text3可用，输入成绩按回车“保存“按钮可用，按“保存“将数据添加到文件e:\score。txt、界面恢复初态。退出前可继续输入、保存数据。 [程序] Private sub f() ______(9______ Text1.text=””: text1.enabled=true Text2.text=””: text2.enabled=false Text3.text=””: text3.enabled=false Text1.setfocus ‘text1获得输入焦点 End sub Private sub form_activate() ‘窗体加载后调出f()初始化 Call f End sub Private sub text1_keypress(k as integer ) If k =13 then text2.enabled =true : text2.setfocus End sub Private sub text3_keypress(k as integer) If k=13 then command1.enabled =true End sub Private sub command1______(10)__ Open “e:\score.txt” for _____