VB填空题知识点.docVIP

1. 以下程序的功能是随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。 Private Sub Form_ClickDim s As Integer, i As IntegerDim k As Integer, max As Integer, min As IntegerRandomizek IntRnd * 100 + 1max k: min ksk___________For i 1 To 19k IntRnd * 100 + 1s s + kIf kmax________Then max kIf k min Then min kNext is _s-max-min_______Print average; s / 18 End Sub2. 阅读下面程序，当单击窗体后，窗体上输出的是_12 7 4__________。 Private Sub Form_ClickDim i As Integer, j As IntegerDim k As IntegerFor i 1 To 10 Step 3For j 1 To 10 Step 2If j 5 Then i i + 4: Exit Forj j + 1k k + 1Next jIf i 8 Then Exit ForNext iPrint i; j; k End Sub3. 下列程序段的执行结果为_12 2 4 __________。 n 0 For i 1 To 3For j 5 To i Step -1n n + 1 Next j Next i Print n; j; i4. 运行下面的程序，当单击窗体时，窗体上显示的内容为_31 63_________。 Private Sub Testx As Integerx x * 2 + 1If x 8 ThenCall TestxEnd Ifx x * 2 + 1Print x; End Sub Private Sub Form_ClickTest 3 End Sub5.以下程序的功能是：从键盘上输入两个正整数，比较其大小，并输出相应的信息。如：将两个数赋给两个变量x和y，如果xy，提示两个数相等，xy，提示第一个数大于第二个数，xy，提示第一个数小于第二个数。按要求完善程序。 Private Sub Command1_ClickDim x As Integer, y As IntegerIf Text1.Text And IsNumericText1.Text Then 如果文本框已输入数值数据x ValText1.Text 将输入的数值赋给变量xElseMsgBox 请在文本框中输入数值Text1.SetFocusExit SubEnd IfIf Text2.Text And IsNumericText2.Text Theny ValText2.TextElseMsgBox 请在文本框中输入数值Text2.SetFocusExit SubEnd IfIf x y ThenMsgBox 两个数相等ElseIf xx_____ ThenMsgBox 第一个数小于第二个数Else__ msgbox”第一个数大于第二个数”___________End If End Sub6. 以下程序的功能是随机生成20个1到100之间的正整数，用选择法将其按从大到小的顺序排列后输出。 Private Sub Command1_ClickDim a20 As Integer, i As IntegerDim j As Integer, temp As IntegerPrint 排序前：For i 1 To 20ai IntRnd * 100 + 1Print ai;Next iPrintFor i 1 To 19For j i+1 ________ To 20If _ajai_______ Thent aiai aj___ajt_____End IfNext jNext iPrint 排序后：For i 1 To 20Print ai;Next i End Sub7. 执行以下程序，单击命令按钮后，如果从键盘上输入5，则第一行输出结果是_1 2 3 4 5_____，第二行输出结果是_0 0 0 0 0 0 0 0 0 0 0_____。 Private Sub Command1_ClickDim a As IntegerDim n As Integer, i As Integern InputBoxinput n:ReDim anFor i 1 To nai