中国石油大学华东VB练习题16周总选择题.doc

1. Visual Basic是一种面向对象的程序设计语言，_不是面向对象系统所包含的三个要素之一A. 变量B. 事件C. 方法D. 属性正确答案：A，你的答案：A， 2. 决定控件在窗体中的位置的属性是_A. EnabledB. Left和TopC. VisibleD. Width和Height正确答案：B，你的答案：B， 3. 要判断在文本框中是否按下Enter键，应在文本框的_事件中判断。A. ChangeB. DblClickC. KeyPressD. Click正确答案：C，你的答案：C， 4. 为了在文本框中显示多行文本，可设置其ScrollBars属性为2（垂直滚动条）,但同时还需要设置_属性的值为TrueA. MultiLineB. TextC. MaxLengthD. Enabled正确答案：A，你的答案：A， 5. 下列属性中，标签没有的属性是_A. NameB. CaptionC. TextD. Width正确答案：C，你的答案：C， 6. 下面_是不合法的整型常量。A. 100B. &H100C. &100D. &E100正确答案：D，你的答案：C， 7. 表达式123+100 & 200的值是_A. 123300B. 423C. 223200 D. 123100200正确答案：D，你的答案：D， 8. 可以用来调用Windows中计算器程序的语句是_A. k=Shell(Calc.exe,1)B. k=Shell(Calc.exe,1)C. Calc.exeD. Shell(Calc.exe,1) 正确答案：A，你的答案：A， 9. 以下关系表达式中，其值为False的是_。A. AB AbB. 123 23C. BASIC = UCase(basic)D. 0 a正确答案：A，你的答案：A， 10. 下列变量的定义中，不能将变量a定义为变体类型的是_A. dim aB. dim a as doubleC. dim a, b as doubleD. dim a as variant 正确答案：B，你的答案：B， 11. 假设有以下语句x=InputBox(输入数值,0,示例)，程序运行后，如果从键盘上输入数值10，并按回车后，则下列叙述正确的是_A. 变量的值是数值10B. 在InputBox对话框标题栏中显示的是示例C. 变量x的值是字符串10。D. 0是默认值正确答案：C，你的答案：C， 12. 窗体上放置两个文本框和一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a as long, b as long a=Text1.Text b=Text2.Text Print a+b;Text1.Text+Text2.Text End Sub 程序运行后，在Text1中输入3，在Text2中输入4，然后单击命令按钮，则输出结果为_A. 734B. 77C. 347D. 3434正确答案：A，你的答案：A， 13. 不具备Picture属性的对象是_A. 图片框PictureBoxB. 命令按钮CommandButtonC. 文本框TextBoxD. 窗体Form正确答案：C，你的答案：C， 14. 设x为一整型变量，且情况语句的开始为：Select Case x，则不符合语法规则的Case子句是()。A. Case 1 To 10B. Case 020C. Case 2， 3， 4D. Case x20正确答案：D，你的答案：D， 15. 现有如下一段程序：执行程序，在输入框中输入字母b，则以下叙述中正确的是()。 Private Sub Command1_Click() xUCase(InputBox(输入：) Select Case x Case A To C Print 考核通过！ Case D Print 考核不通过 ！ Case Else Print 输入数据不合法！ End Select End SubA. 程序运行错B. 在窗体上显示考核通过！C. 在窗体上显示考核不通过 ！D. 在窗体上显示输入数据不合法！正确答案：B，你的答案：A， 16. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String aInputBox(请输入一个二进制数) nLen(a) For i1 To n DecDec * 2_(a， i， 1) Next i Print Dec End Sub 程序功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击确定按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在_处填入的内容是()。A. RightB. MidC. LeftD. Val正确答案：B，你的答案：B， 17. 在窗体上画一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() n0 For i0 To 10 X2 * i1 If X Mod 30 Then nn1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是()。A. 5B. 1C. 7D. 3正确答案：D，你的答案：B， 18. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim M(10)As Integer For k1 To 10 M(k)12k Next k x8 Print M(2M(x) End Sub 运行程序，单击命令按钮，在窗体上显示的是()。A. 5B. 7C. 6D. 8正确答案：C，你的答案：B， 19. 窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x%， y%， z% xInputBox(请输入第1个整数) yInputBox(请输入第2个整数) Do Until xy If xy Then xxy Else yyx Loop Print x End Sub 运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为()。A. 13B. 23C. 11D. 39正确答案：A，你的答案：A， 20. 以下能够正常结束循环操作的程序段是A. i = 5 Do i = i + 2 Loop Until i = 1B. i = 0 Do While i 1 i = i - 2 LoopC. i = 5 Do i = i + 1 Loop Until i 0 i = i - 2 Loop正确答案：D，你的答案：D， 21. 在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x0 Do While x50 x(x2)*(x3) nn1 Loop Text1.TextStr(n) Text2.TextStr(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为()。A. 1和0B. 2和72C. 4和168D. 3和50正确答案：B，你的答案：B， 22. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As Integer s = Trim(Text1.Text) strLen = Len(s) For i = 1 To strLen c = Mid(s, i, 1) Select Case c Case 0 To 9 x1 = x1 + 1 Case A To Z x2 = x2 + 1 Case a To z x3 = 3 + 1 Case Else x4 = x4 + 1 End Select Next Print x1; x1, x2; x2, x3; x3, x4; x4 End Sub 以下关于上述程序的叙述中，正确的是A. 各Case分支条件有误，不能用To表示字符的取值区间B. x4是字符串中非字母、非数字字符的个数C. s是去掉文本框中字符串末尾的空格D. Select Case c有误，Case后应该是一个表达式正确答案：B，你的答案：B， 23. 下面程序计算并输出的是()。 Private Sub Command1_Click() a10 s0 Do ssa*a*a aa1 Loop Until a0 Print s End SubA. 10！3！2！1！的值B. 10个103的和C. (12310)3的值D. 132333103的值正确答案：D，你的答案：D， 24. 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s0 For i1 To 15 x2 * i1 If x Mod 30 Then ss1 Next i Label1.Captions End Sub 程序运行后，单击命令按钮，则标签中显示的内容是()。A. 5B. 45C. 27D. 1正确答案：A，你的答案：D， 25. 窗体上有一个名称为Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim s As Double s = 0: i = 1 Do While i 50， Int(a3)， a Mod 2)A. 1B. 0C. 17D. 18正确答案：C，你的答案：C， 15. 要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是()。A. If x mod 72 Then Print xB. If x(x / 7)* 72 Then Print xC. If x(x7)* 72 Then Print xD. If xInt(x / 7)* 72 Then Print x正确答案：B，你的答案：B， 16. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程。程序运行后，单击命令按钮，在文本框中显示的值是()。Private Sub Command1_Click() Dim i As Integer， n As Integer For i0 To 50 ii3 nn1 If i10 Then Exit For Next Text1.TextStr(n)End SubA. 3B. 4C. 2D. 5正确答案：A，你的答案：B， 17. 在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程：Private Sub Command1_Click()x1s0For i1 To 5xx / issxNextPrint sEnd Sub该事件过程的功能是计算( )。A. B. C. D. S12345正确答案：C，你的答案：C， 8. 以下能够正常结束循环操作的程序段是A. i = 5Do While i 0 i = i - 2LoopB. i = 5Do i = i + 1Loop Until i 0C. i = 0Do While i 1 i = i - 2LoopD. i = 5Do i = i + 2Loop Until i = 1正确答案：A，你的答案：A， 20. 窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：Private Sub Command1_Click() Dim s As Double s = 0: i = 1 Do While i 6 s = s + i / (i + 1) i = i + 1 Loop Print sEnd Sub该事件过程的功能是计算一个表达式的值，该表达式是A. 1/2+2/3+3/4+4/5+5/6B. 1+1/2+2/3+3/4+4/5C. 1+1/2+2/3+3/4+4/5+5/6D. 1/2+2/3+3/4+4/5正确答案：A，你的答案：C， 21. 下面程序计算并输出的是()。Private Sub Command1_Click()a10s0Dossa*a*aaa1Loop Until a0Print sEnd SubA. 132333103的值B. 10个103的和C. 10！3！2！1！的值D. (12310)3的值正确答案：A，你的答案：A， 22. 下面的程序是利用公式：44/34/54/74/94/11计算机的近似值Pvivate Sub Command1_Click()Dim PI As Double， x As Double， k As Long， sign As Integersign1k1PI0Doxsign*4/(2*k-1) PI=PI+x k=k+1 sign=_Loop Unti1 Abs(x) 5的Case子句是 Select Case X A. Case Not(-5 To 5) B. Case 5 To -5 C. Case Is 5 D. Case Abs(X) 5 B. 正确答案：C，你的答案：D， 17. 编写如下程序： Private Sub Command1_Click() Dim m As Integer， n As Integer m1： n0 Do While my Then xxy Else yyx Loop Print x End Sub 运行程序，单击命令按钮，并输入2个整数169和39，则在窗体上显示的内容为()。 A. 11 B. 23 C. 13 D. 39 正确答案：C，你的答案：C， 19. 下面程序计算并输出的是()。Private Sub Command1_Click() a10 s0 Do ssa*a*a aa1 Loop Until a0 Print s End Sub A. 10！3！2！1！的值 B. (12310)3的值 C. 10个103的和 D. 132333103的值 正确答案：D，你的答案：D， 20. 有如下程序： Private Sub Form_Click() Dim S As String S = InputBox(请输入一个字符串：) For i = 1 To Len(S) 2 If Mid(S, i, 1) Mid(S, Len(S) - i + 1, 1) Then Print No Exit Sub End If Next i Print Yes End Sub 运行程序，单击窗体，在输入对话框中输入abcscba，则输出结果为 A. Yes B. abc C. cba D. No B. 正确答案：A，你的答案：A， 22. 设有如下事件过程： Private Sub Form_Click() x = 0 Do While x10 x = x + 1 x = x * x Loop Print x End Sub 运行程序，单击窗体，输出结果是 A. 25 B. 16 C. 19 D. 20 正确答案：A，你的答案：A， 23. 为计算12222324210的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1 Click() Dim a As Long，s As Long，k As Long s1 a2 For k2 To 10 aa*2 ssa Next k Text1.Texts End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是()。 A. 交换语句ssa和aa * 2的顺序 B. 把For k2 To 10改为For k1 To 10 C. 把s1改为s0 D. 把For k2 To 10改为For k1 To 10、交换语句ssa和aa * 2的顺序 正确答案：D，你的答案：D， 24. 在窗体上画一个名称为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() n0 For i0 To 10 X2 * i1 If X Mod 30 Then nn1 Next i Print n End Sub 运行程序，单击命令按钮，则窗体上显示的是()。 A. 1 B. 7 C. 3 D. 5 正确答案：C，你的答案：A， 25. 阅读程序： Private Sub Form_Click() a0 For j1 To 15 aaj Mod 3 Next j Print a End Sub 程序运行后，单击窗体，输出结果是()。 A. 120 B. 15 C. 1 D. 105 正确答案：B，你的答案：D， 9. 假定有以下循环结构。则以下正确的描述是()。 Do Until 条件表达式 循环体 Loop A. 不论条件表达式的值是否为真，至少要执行一次循环体B. 如果条件表达式的值恒为0，则无限次执行循环体C. 如果条件表达式的值是0，则一次循环体也不执行D. 如果条件表达式的值不为0，则至少执行一次循环体 正确答案：B，你的答案：B， 21. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x3 As Integer s = Trim(Text1.Text) strLen = Len(s) For i = 1 To strLen c = Mid(s, i, 1) Select Case c Case 0 To 9 x1 = x1 + 1 Case A To Z x2 = x2 + 1 Case a To z x3 = 3 + 1 Case Else x4 = x4 + 1 End Select Next Print x1; x1, x2; x2, x3; x3, x4; x4 End Sub 以下关于上述程序的叙述中，正确的是A. Select Case c有误，Case后应该是一个表达式B. s是去掉文本框中字符串末尾的空格C. x4是字符串中非字母、非数字字符的个数D. 各Case分支条件有误，不能用To表示字符的取值区间 正确答案：C，你的答案：A， 23. 编写如下程序： Private Sub Command1_Click() Dim m As Integer， n As Integer m1： n0 Do While m0， 1， IIf(x0 Then Print 1 ElseIf x0 Then Print1 Else Print 0 End IfB. If x0 Then If x0 Then Print 1 ElseIf x0 Then x1 ElseIf x0 Print 1 Case Is0 Print1 Case Else Print 0 End Select 正确答案：B，你的答案：C， 6. 设条件“a和b之一为0，但不能同时为0”，以下表达式错误的是_A. (a=0 or b=0) and ab B. (a=0 and b=0) or abC. a=0 and b0 or a0 and b=0D. a*b=0 and ab正确答案：B，你的答案：A，10. 将三位整数x的百位和个位取出，按序组成一个新的两位数，其表达式是_A. 10*x mod 100+x10B. (x100)*10+(x mod 10)C. (x mod 10)*10+x100D. (x100)*100+(x mod 10)正确答案：B，你的答案：B， 17. 设有如下事件过程：Private Sub Form_Click()Sum0For k1 To 3If k1 Thenx1ElseIf k2 Thenx2ElseIf k3 Thenx3Elsex4End IfSumSumxNext kPrint SumEnd Sub程序运行后，单击窗体，输出结果是()。A. 3B. 9C. 10D. 6正确答案：D，你的答案：D， 18. 在窗体上画一个名称为Command1的命令按钮，编写如下事件过程：Private Sub Command1_Click()n0For i0 To 10X2 * i1If X Mod 30 Then nn1Next iPrint nEnd Sub运行程序，单击命令按钮，则窗体上显示的是()。A. 5B. 3C. 1D. 7正确答案：B，你的答案：B， 19. 阅读程序：Private Sub Form_Click()a0For j1 To 15aaj Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是()。A. 1B. 105C. 15D. 120正确答案：C，你的答案：C， 21. 设有以下程序：Private Sub Form_Click()x50For i1 To 4yInputBox(请输入一个整数)yVal(y)If y Mod 50 ThenaayxyElseaaxEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为()。A. 120B. 50C. 100D. 70正确答案：C，你的答案：A， 22. 下面的程序是利用公式：44/34/54/74/94/11计算机的近似值Pvivate Sub Command1_Click()Dim PI As Double， x As Double， k As Long， sign As Integersign1k1PI0Doxsign*4/(2*k-1) PI=PI+x k=k+1 sign=_Loop Unti1 Abs(x) 0 i = i - 2LoopB. i = 5Do i = i + 2Loop Until i = 1C. i = 5Do i = i + 1Loop Until i 0D. i = 0Do While i 1 i = i - 2Loop正确答案：A，你的答案：A， 25. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c1234c1Trim(Str(c)For i1 To 4Print _NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为()。A. Left(c1， i) B. Mid(c1， i， 1) C. Mid(c1， i， i) D. Right(c1， i)正确答案：A，你的答案：A， 21. 在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Show Text1.Text Text1.SetFocus End Sub Private Sub Form_Click() Dim a As String， s As String aText1.Text s For k1 To Len(a) sUCase(Mid(a， k， 1)sNext k Text1.Texts End Sub 程序运行后，在文本框中输入一个字符串，然后单击窗体，则文本框中的内容( )。A. 为原字符串的逆序字符串B. 为原字符串的逆序字符串，且所有字母转换为大写C. 与原字符串相同D. 与原字符串中字符顺序相同，但所有字母均转换为大写正确答案：B5. 下面的程序是利用公式：44/34/54/74/94/11计算机的近似值 Pvivate Sub Command1_Click() Dim PI As Double， x As Double， k As Long， sign As Integer sign1 k1 PI0 Do xsign*4/(2*k-1) PI=PI+x k=k+1sign=_ Loop Unti1 Abs(x)0.000001 Print PI End Sub 在空的处应填写的是()。A. sign1B. xC. kD. sign正确答案：D17. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Priva