lVB上机练习题1.docVIP

〖第1题〗『程序填空』(1分)(题号:532) 【程序填空】题目：输入n个数，n由用户输入。 程序的功能是将输入的n个数反向输出? 请在【】处填入正确的 Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox(输入个数n)) Print 处理前数据 : **********SPACE********** For k = 1 To 【?】 a(k) = Val(InputBox(请输入第 k 个数)) Print a(k); Next k Print **********SPACE********** m = Int(【?】) For k = 1 To m h = n - k + 1 **********SPACE********** t = a(h): 【?】: a(k) = t Next k Print 处理的结果 : For k = 1 To n Print a(k); Next k End Sub 答案：1). n 2). n / 2 3). a(h) = a(k) 〖第2题〗『程序填空』(1分)(题号:498) 【程序填空】 题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为： 36 25 16 9 请在【】处填入正确的内容 Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path \al.dat For Output As #1 For I = 1 To 6 **********SPACE********** j = 【?】 Print #1, j Next I Close #1 Open App.Path \a1.dat For Input As #2 k = 0 Do While Not EOF(2) **********SPACE********** k = 【?】 Input #2, xx(k) Loop Close #2 **********SPACE********** For I = k To k / 2 Step【?】 Form1.Print xx(I) Next I End Sub 答案： 1). I * I 2). k + 1 或 1 + k 3). -1 〖第3题〗『程序填空』(1分)(题号:501) 【程序填空】 题目：本程序执行后，最终在窗体上打印数字7。 请在【】处填入正确的内容 Private Sub Command1_Click() Dim a As String **********SPACE********** Open App.Path \abc.bat For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 **********SPACE********** Open App.Path \abc.bat For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then **********SPACE********** Print CInt(a) + 【?】 End If Next I Close #1 End Sub 答案： 1). Output 2). Input 3). 1 〖第4题〗『程序填空』(1分)(