当前位置：文档之家 › VB选择题库(4)讲解学习

VB选择题库(4)讲解学习

  • 格式：docx
  • 大小：29.65 KB
  • 文档页数：22

VB 选择题库( 4)1. 程序运行后，文本框中显示的信息是：S=O:a=ODoa=a+2:s=s+aIf s>10 Then Exit DoLoop Until a>40Text1.Text=Str(a+s) 182. 程序运行后，单击窗体，则在窗体上显示的“* ”的个数是20Private Sub Form_Click()Fori = 1 To 9For j = i - 1 To Step - 2Print "" * ""Next jNext iEnd Sub3. 程序运行后，两次单击命令按钮后，在窗体上显示的结果是：14 Private Sub Command1_Click()Static s As IntegerFor i = 5 To 1 Step -0.3s = s + 1Next iPrint sEnd Sub4. 程序运行后，单击命令按钮，在文本框显示的信息是：15Dim s As IntegerDim Flag As BooleanFlag = Trues = 1While s < 100 And Flags = s + 7If s Mod 5 = 0 Then Flag = FalseWendtext1.Text = Str(s)5. 程序运行后，单击窗体，则在窗体上显示的信息是：5Private Sub Form_Click()s = 0For i = 1 To 100If i Mod 8 = 5 ThenExit ForEnd Ifi = i + 1Next iPrint i6. 程序运行后，则在窗体上显示的信息是： 1 2 3Fori = 1 To 3Forj = 1 To 3arr1(i, j) = iarr2(j, i) = arr1(i, j)Next jNext iFori = 1 To 3Print arr2(2, i)Next i7. 程序运行后，单击命令按钮，则在窗体上显示的信息是：9 Dim arr()%Private Sub Command1_Click()ReDim arr(5)Fori = 0 To 5arr(i) = iNext iReDim arr(8)For Each x In arrs = x + s + 1Next xPrint sEnd Sub8. 下面是窗体单击事件中的代码：Private Sub Form_Click()if""x"" < ""y"" Then print""xprint""ok!""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是：X<Y OK!9. 下面是窗体单击事件中的代码：Private Sub Form_Click()if""x"" < ""y"" Then print""x<y""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是：x<y 10. 下面是窗体单击事件中的代码：Private Sub Form_Click()if not ""x"" < ""y"" Then print""x<y""print""ok!""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是：ok!11. 下面是窗体单击事件中的代码：Private Sub Form_Click()if not ""x"" < ""y"" or true Then print""x<y""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 12. 下面是窗体单击事件中的代码：Private Sub Form_Click()if not ""x"" < ""y"" and true Then print""x<y""prinP'ok!""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 13. 下面是窗体单击事件中的代码：Private Sub Form_Click()ifx<y Then print""x<y""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 14. 下面是窗体单击事件中的代码：Private Sub Form_Click()if ""99"" < ""11111111111"" or true Then print""x<y"" else print""x""<""y""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 15. 下面是窗体单击事件中的代码：Private Sub Form_Click()if ""99"" < ""11111111111"" and true Then print""x<y"" else print""x""<""y""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 16. 下面是窗体单击事件中的代码：Private Sub Form_Click()if ""x"" < ""y"" and true Thenprint""x<y"" else print""x""<""y""End Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 17. 下面是窗体单击事件中的代码：Private Sub Form_Click()if ""x"" < ""y"" and true Then print""x<y""else print""x""<""y""end ifEnd Sub程序运行后，单击窗体，则在窗体上输岀的结果是: 18. 下面是窗体单击事件中的代码：Private Sub Form_Click()if ""x"" < ""y"" and true Thenprint""x<y""else print""x""<""y""end if x<y ok!ok!没有输岀数据x<ytruex<y岀错End Sub程序运行后，单击窗体，则在窗体上输岀的结果是：x<y19. 设有如下程序：Private Sub Form_Click()x = 33: y = 0If x Mod 3 = 0 Thena = Int(x / 100)If a = 5 Theny = y + 1End IfEnd IfPrint yEnd Sub程序运行后，单击窗体，则在窗体上输岀的结果是：020. 设有如下程序：Private Sub Form_Click()x = 33: y = 0If x Mod 3 = 0 Thenb = Int(x -100/ 10)If b<= 5 Theny = y + 1End IfEnd IfPrint yEnd Sub程序运行后，单击窗体，则在窗体上输岀的结果是：1第90页22 。

下面的程序功能是(打印100个20以内的随机整数)s=0while s 〈100print int (rnd*20 )s=s+1wend23。

下面的程序功能是(什么也没有做)s=0while s 〉100print int (rnd*50 )s=s+2wendi 〈 11) 24。

下面的程序实现1到10的乘积，请选择下划线处的命令( s=1i=1do- 丄“”print s25。

这个循环体语句1次也没有执行（for l=1 to 10 step -1print inext j26。

计算1到10的奇数的积，划线处应该执行（） s=1for j =1 to 10 step 2 s=s*j next j print s27。

略s=0 i=2s=s+1 i=i+130。

32。

33o。

下面的程序实现输入对话框输入数值数据，当输入 msj=inputbox （"请输入数据"，"输入数据”do while ucase<>"end" s=s+val(msj) msj=inputbox(" 请输入数据"，"输入数据”loop print's" 35. 略36. 下列程序完成什么功能(输出32个50到60的数) dim(3 ，7)for i=lbound(a,1)to ubound(a,1) for j=lbound(a,2)to ubound(a,2) a(i,j)=int(rnd*10)+50 print a(i,j) next j print next is=s*1 i=i+1 loop while ()28。

合集下载

vb基础知识试题及答案

vb基础知识试题及答案

vb基础知识试题及答案一、选择题（每题2分，共10分）1. VB中，哪个关键字用于声明变量？A. DimB. ConstC. LetD. Option Explicit答案：A2. 在VB中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Trim答案：A3. VB中，哪个循环结构用于重复执行代码块直到满足特定条件？A. Do LoopB. For EachC. While WendD. For Next答案：A4. 在VB中，如何表示逻辑“与”操作？A. AndB. OrC. NotD. Xor答案：A5. VB中，哪个关键字用于定义函数？A. FunctionB. SubC. PropertyD. Const答案：A二、填空题（每题2分，共10分）1. 在VB中，使用________关键字可以声明一个数组。

答案：Dim2. VB中的________函数用于计算两个日期之间的天数差。

答案：DateDiff3. VB中，________关键字用于声明一个过程，该过程不返回值。

答案：Sub4. 使用________函数可以将数字转换为字符串。

答案：Str5. 在VB中，________关键字用于声明一个类模块。

答案：Class三、简答题（每题5分，共15分）1. 描述VB中的事件驱动编程。

答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发。

在VB中，开发者可以为控件编写事件处理程序，当特定的事件发生时，如按钮点击，相应的事件处理程序会被调用执行。

2. 解释VB中的类和对象的概念。

答案：在VB中，类是一种模板，定义了一组属性、方法和事件，这些可以被实例化为对象。

对象是类的实例，每个对象拥有自己的状态和行为。

通过类，可以创建具有相同属性和方法的多个对象。

3. 什么是VB中的封装？答案：封装是面向对象编程中的一个核心概念，它指的是将数据（属性）和操作这些数据的方法（过程）捆绑在一起，形成一个对象。

vb试题解析及答案

vb试题解析及答案

vb试题解析及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A解析：在VB中，Dim关键字用于声明变量。

2. 下列哪个选项是VB中的合法变量名？A. 2numberB. number2C. $numberD. number$答案：B解析：在VB中，变量名必须以字母开头，并且不能包含空格或特殊字符。

3. 在VB中，以下哪个数据类型用于存储字符串？A. IntegerB. StringC. DoubleD. Boolean答案：B解析：String数据类型用于存储字符串。

4. VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A解析：CInt函数用于将字符串转换为整数。

5. 在VB中，以下哪个语句用于结束一个循环？A. ContinueB. ExitC. BreakD. Loop答案：B解析：Exit语句用于立即结束循环。

6. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A解析：Label控件用于显示文本。

7. 在VB中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A解析：Click事件用于响应鼠标单击。

8. VB中，以下哪个关键字用于定义过程？A. FunctionB. SubC. PropertyD. Const答案：B解析：Sub关键字用于定义过程。

9. 在VB中，以下哪个数据类型用于存储日期？A. DateB. TimeC. DateTimeD. Currency答案：C解析：DateTime数据类型用于存储日期和时间。

10. VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. PlusD. Val答案：A解析：Sum函数用于计算两个数的和。

vb试题及答案选择

vb试题及答案选择

vb试题及答案选择VB试题及答案选择1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 以下哪个选项不是Visual Basic的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案：A4. 如果要在Visual Basic中创建一个窗体（Form），应该使用以下哪个类？A. FormB. UserControlC. PanelD. Button答案：A5. 在Visual Basic中，如何声明一个名为“myFunction”的过程，它不接受参数也不返回值？A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案：B6. 如果要在一个事件处理程序中引用当前窗体，可以使用哪个关键字？A. MeB. ThisC. SelfD. Current答案：A7. 在Visual Basic中，如何声明一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案：A8. 在Visual Basic中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. =答案：B9. 如何在Visual Basic中声明一个名为“myClass”的类？A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案：C10. 在Visual Basic中，以下哪个关键字用于捕获所有未处理的异常？A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案：A11. 在Visual Basic中，如何声明一个名为“myButton”的按钮？A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案：A12. 在Visual Basic中，如何将一个变量的值增加1？A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案：C13. 在Visual Basic中，如何声明一个名为“myLabel”的标签？A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案：A14. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Quit答案：A15. 在Visual Basic中，如何声明一个名为“myList”的列表？A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案：A16. 在Visual Basic中，如何声明一个名为“myDictionary”的字典？A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案：A17. 在Visual Basic中，如何声明一个名为“myEvent”的事件？A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案：A18. 在Visual Basic中，如何声明一个名为“myDelegate”的委托？A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案：D19. 在Visual Basic中，如何声明一个名为“myEnum”的枚举？A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。

VB程序设计 习题及答案第4章 选择结构程序设计

VB程序设计 习题及答案第4章 选择结构程序设计

第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。

【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。

【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。

(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。

【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。

【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。