VB模拟试卷29.docVIP

VB模拟试卷29 一、程序阅读与填空（24小题，每小题3分，共72分） 1. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】输入n、X(X的绝对值必须小于1)后，计算并显示下列表达式的值。 【程序】 Private Sub Command1_Click() Dim Y As Single, X As Single, 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 X 1 [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