Vb套题附案1.docVIP

1 B 2 D 3 C 4 B 5 D 6 C 7 B 8 C 9 D 10 D 11 D 12 D 13 A 14 B 15 D 16 C 17 A 18 B 19 B 20 C 21 B 22 B 23 B 24 A 25 A 26 D 27 B 28 C 29 C 30 B 程序填空 1： 下面的程序段用于实现以下功能: 利用冒泡法将一组整数从小到大排序? Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print **********SPACE********** For i = n To 2 【?】 work = True For j = 1 To i - 1 If a(j) a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x **********SPACE********** 【?】 End If Next j **********SPACE********** If work Then 【?】 Next i For i = 1 To n Print a(i); Next i End Sub 程序填空 2： Option Explicit ------------------------------------------------------- 【程序填空】 ------------------------------------------------------- 题目：在窗体上建立两个文本框Text1(输入数)及Text2(显示结果)， 一个命令按钮Command1(判断)。单击按钮时判断Text1中输入的数值 是否是4的倍数。 请在【?】处填入正确的内容 ------------------------------------------------------- Private Sub Command1_Click() Dim x As Integer **********SPACE********** If IsNumeric(Text1.Text) = 【?】 Then Text2.Text = 输入错误 Exit Sub End If **********SPACE********** x = CInt(【?】) **********SPACE********** If 【?】 = 0 Then Text2.Text = 是4的倍数 Else Text2.Text = 不是4的倍数 End If End Sub 程序填空 3： 下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。 请在【】处填入正确的内容? Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(请输入要插入的整数) **********SPACE********** 【?】 i = 8 Do While a(i) x **********SPACE********** 【?】 i = i - 1 Loop **********SPACE********** If i 0 Then 【?】 For i = 1 To 9 Print a(i); Next i End Sub 程序填空 4： 代码功能：输入数字1-7,显示其对应的星期几(例:输入1,显示星期日, 如果输入其它内容，一律显示输入错误) 请在【】处填入正确的内容