VB课堂例题

格式：doc
大小：93.00 KB
文档页数：12

下载文档原格式

/ 12

VB典型例题解析

典型例题解析一、填空题1.在Visual Basic 中设置或修改一个对象的属性的方法有两种，它们分别是（1）和（2）。

分析：在Visual Basic 中，要想设置或修改一个对象的属性，可以在设计模式下先选中该对象，直接在【属性】窗口中设置或修改对象的属性值。

也可以打开【代码编辑器】窗口，在其中编制命令语句进行对象属性值的设置或修改。

结论：答案应为：（1）在属性窗口设置（2）在代码窗口编程2. Visual Basic控件分为3类，它们分别是标准控件、（1）和（2）< 其中只有（3）是由系统提供的。

分析：在Visual Basic 中，控件分为标准控件、ActiveX控件和可插入对象3 类。

标准控件即内部控件，由系统提供，不能添加删除，包括一些程序设计中最常用的对象。

ActiveX控件是标准控件的扩展资源库，保存在一个外部文件中。

可插入对象实际上是一些其他应用程序的对象，可以将其添加到工具箱作为控件使用。

结论：答案应为：（1）ActiveX控件（2）可插入对象（3）标准控件3.创建第一个按钮控件对象时，系统自动为其“Name属性分配一个名字，该名字为（1）。

分析：在Visual Basic 中，每个控件对象建立的时候，系统会自动分配一个名字，也就是给该对象的“ Name属性赋一个值，如第一个窗体对象“ Name属性值为Form1，第四个文本框对象“ Name属性值为Text4，第N个命令按钮对象“ Name 属性值为Command.结论：答案应为：（1）Command14.为了在运行时把当前路径下的图形文件picturefile.jpg 装入图片框Picture1，所使用的语句为（1）。

分析：可以使用LoadPicture语句，必须先确定图片的位置，在本例中路径为当前路径可以采用默认路径；也可以在Picture1的Picture属性中直接设置打开文件对话框，在对话框中选择图片进行设置。

结论：答案应为：Pictured Picture = LoadPrcture（“ picturefile.jpg ”）5.在Visual Basic中，每个菜单项都是一个图形控件对象，所以它们也有一些与其他控件类似的属性，（1）就相当于其他控件的Caption属性，而（2）就相当于Name i性。

VB程序设计教案例题及解析

VB程序设计教案例题及解析程序设计教案例题及解析VB程序设计是一门非常重要的计算机科学技能，它在各行各业都有广泛的应用。

本文旨在提供一些VB程序设计练习题及解析，帮助初学者获取更多知识，并提高自己的技能水平。

一、VB程序设计实践题1.基础实践题目：设计一个VB程序，让用户输入两个数并输出两个数之和。

2.中级实践题目：设计一个VB程序，让用户输入一个数字并输出该数字的因数。

3.高级实践题目：设计一个VB程序，让用户输入文本并输出该文本中出现次数最多的字符。

二、VB程序设计实践解析1.基础实践题目解析：我们需要在VB程序中设计两个文本框和一个按钮，用于用户输入两个数并输出两数之和。

用户输入两个数后，我们需要通过VB程序获取用户输入的数值，并通过代码计算它们的和。

代码如下：Dim x As IntegerDim y As IntegerDim sum As Integerx = Val(Text1.Text)y = Val(Text2.Text)sum = x + yText3.Text = sum在代码中，我们使用了VB中的计算公式sum=x+y来计算两个数的和，并使用了Text3.Text将计算结果输出。

2.中级实践题目解析：在这个题目中，用户需要输入一个数字，并输出该数字的因数。

我们可以通过VB程序实现这个操作。

我们需要在VB程序中设计一个文本框和一个按钮，用于用户输入一个数字并输出该数字的因数。

用户输入数字后，我们需要通过VB程序获取用户输入的数值，并通过代码计算它的因数。

代码如下：Dim x As IntegerDim i As IntegerDim count As Integerx = Val(Text1.Text)For i = 1 To x Step 1If x Mod i = 0 Thencount = count + 1End IfNext iText2.Text = count在代码中，我们使用了VB中的For循环语句来遍历x的因数，并计算因数的数量（count）。

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课堂练习

VB课堂练习一一．填空题1．在对象名与事件名之间用[ ]符号连接。

窗体的对象名用[ ]表示。

2．Visual Basic 的窗体和控件是具有自己的[ ]、[ ]和方法的对象。

3．窗体和控件的大部分属性可以通过[ ]设置、也可以通过[ ]设置。

4．在面向对象程序设计中，对象是一个由[ ]和[ ]组成的概念。

5．Visual Basic 中的对象包括[ ]、[ ]和[ ]。

6．Name属性的含义是[ ]，窗体的默认Name属性是[ ]。

7．Show 方法的作用是[ ]，Hide 方法的作用是[ ]。

8. 一个窗体对象，其最先发生的事件是[ ]事件，最后发生的事件是[ ]事件。

9. 移动窗体时，为了初始化该窗体中的各控件，可选用窗体的[ ]事件；关闭窗体用[ ]事件。

10.窗体对象可以识别KeyPress、KeyUp、KeyDown事件，在按下某键时，这三个事件发生的顺序是：[ ]、[ ]、[ ]。

二．选择题1.在Visual Basic设计界面中不能隐藏的窗口是( )。

A）工程窗口B）属性窗口C）立即窗口D）窗体窗口2.以下可以构成语句的一项是( )。

A）对象名.属性B）对象名.方法名C）对象名.事件名D）对象名.函数名3.以下不是Visual Basic 的特点的选项是( )。

A）可视编程B）算法设计C）事件驱动D）面向对象4.在Visual Basic中通过( )属性来设置字体的颜色。

A）FontColor B）ClipControlC）BackColor D）ShowColor5.设置窗体的绘图方式是否在Paint事件中重绘整个窗体内容利用( )属性。

A）ControlBox B）ClipControlC）BordeStyle D）AutoRedraw7.( )是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A）文件B）属性C）方法D）窗体8.以下不属于同类的是( )。

18个VB经典例题

1、随机产生三个100－300之间的整数，判断这三个整数是否能构成三角形，如果可以，求三角形的面积。

Dim x As Integer, y As Integer, z As IntegerDim c As Single, s As Singlex = Int(Rnd * 201 + 100)y = Int(Rnd * 201 + 100)z = Int(Rnd * 201 + 100)If x + y > z And x + z > y And y + z > x Thenc = (x + y + z) / 2s = Sqr(c * (c - x) * (c - y) * (c - z))Print "三角形面积是：" & sElsePrint "构不成三角形"End If2、随机产生0－100之间的60名学生的数学分数，分别统计分数在[)10,0、[)20,10、[)30,20、[)40,30、[)50,40、[)60,50、[)70,60、[)80,70、[)90,80、[]90、之间的学生人数。

100,Dim a%, b%, c%, d%, e%, f%, g%, h%, i%, j%Dim x As SingleFor m = 1 To 60 '产生60名学生的分数x = Rnd * 101 '产生0－100的分数Print x;If x >= 90 Thena = a + 1ElseIf x >= 80 Thenb = b + 1ElseIf x >= 70 Thenc = c + 1ElseIf x >= 60 Thend = d + 1ElseIf x >= 50 Thene = e + 1ElseIf x >= 40 Thenf = f + 1ElseIf x >= 30 Theng = g + 1ElseIf x >= 20 Thenh = h + 1ElseIf x >= 10 Theni = i + 1Elsej = j + 1End IfNext mPrint a, b, c, d, e, f, g, h, i, j3、我国有13亿人口，按照人口年增长0.8%计算，多少年以后我国人口超过26亿。

VB练习题 2

VB课堂小测练习题1、VB中，要在一行书写多条语句，各语句之间使用__分隔；注释语句用____分隔。

2、在VB中，对象的三要素分别是___、__和___。

3、VB中工程文件的扩展名为____；窗体文件的扩展名为___。

4、启动VB后，系统为用户新建的工程起一个为____的临时名称。

（5、在VB中用Const将Name声明为字符串“张三”常量，使用的语句是______。

6、在VB中，常量12345678& 的类型是______。

7、VB中声明了Variant变量，但未赋值，则系统默认其初始化值为___。

8、如果将布尔常量值TRUE赋给一个整型变量，则整型变量的值为____。

9、每建立一个窗体，工程管理器窗口中就会增加一个____文件。

10、窗体的Enabled属性的属性值是_________类型的数据．11、当窗体被加载时运行，发生的事件是_________。

12、删除字符串前导和尾随空格的函数是______。

、产生[10，37]之间的随机整数的VB表达式是_____。

14、函数INT（RND（0）*100）的取值范围是_________。

、INT（100*RND（1））产生的随机整数的取值范围是_________16、如果要改变窗体的标题，需要设置窗体的属性是_______。

17、控件和窗体的Name属性只能在 _____窗口中设置，不能在____窗口中设置。

18、要在窗体上显示图片，需设置窗体的_____属性．19、把当前目录下的图形文件pic1.jpg装入窗体FORM1中的语句为________.20、能够获得一个文本框中被选取文本的内容的属性是______。

21、表达式（73+1）\ (185-1)的值是________。

22、决定标签内显示内容的属性是_________.23、为了使标签能自动调整大小以显示全部文本内容，应把标签的____属性设置为True。

24、设窗体上有一个列表框控件List1，含有若干列表项。

VB例题及答案

6.1用vb编程。

计算1+2+3+..100的方法Private Sub Command1_Click()Dim i As Integer, b As Integer 'b为总和For i = 1 To 100b = b + iNext iPrint bEnd Sub6.6 勾股定理中3个数的关系是 a平方+B平方=C平方编写程序，输出30以内满足上述关系的整数组合，列如 3.4.5就是一个整数组合。

可以给代码吗？Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = i To 30For k = j To 30If i * i + j * j = k * k Then Print i, j, kNext kNext jNext iEnd Sub6.9编写程序，打印如下的乘积表：* 3 6 9 1215 … …161718Private Sub Form_Load()ShowDim i As IntegerDim j As IntegerPrintPrint Tab(2); "*"; Spc(7);For i = 3 To 12 Step 3Print i; Spc(7);Next iPrintFor i = 15 To 18Print i; Spc(5);For j = 3 To 12 Step 3Print Tab(j / 3 * 10); j * i;Next jPrintNext iEnd Sub6.10从键盘上输入一个学生的学号和考试成绩，然后输出该学生的学号、成绩，并根据成绩按下面的规定输出对该学生的评语：成绩 80~100 60~79 50~59 40~49 0~39评语 Very good good fair poor failPrivate Sub Command1_Click()Dim a As StringPrint "学号:"; Tab(10); Val(Text1.Text)Print "成绩:"; Tab(10); Val(Text2.Text)Select Case Val(Text2.Text)Case 80 To 100a = "Very good"Case 60 To 79a = "Good"Case 50 To 59a = "Fair"Case 40 To 49a = "Poor"Case Elsea = "Fail"End SelectPrint "评语:"; Tab(10); aEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub6.13打印“九九表”，输出结果如图6.11所示。

《VB程序设计》课堂例题总结

《VB程序设计》课堂例题总结《VB程序设计》课堂例题总结消息对话框的使⽤Private Sub Command1_Click()If Not IsNumeric(Text1) Theni% = MsgBox("你输⼊的不是数字!", 5 + vbQuestion, "警告")If i = 4 Then Text1.SetFocus Else EndElseMsgBox "你好", , "欢迎"End IfEnd Sub求圆的周长与⾯积Private Sub Form_Click()Dim r!, s!, c!Const pi = 3.14159 …⽤户声明常量r = InputBox("请输⼊园的半径：")s = pi * r * rc = 2 * pi * rMsgBox "园的周长为：" & c & " ⾯积为：" & sEnd Sub计算三⾓形的⾯积Private Sub Command1_Click()Dim a%, b%, c%, s#, area#Dim str1$a = V al(InputBox("a:"))b = V al(InputBox("b:"))c = V al(InputBox("c:"))s = (a + b + c) / 2area = Sqr(s * (s - a) * (s - b) * (s - c))str1 = "area=" & areaMsgBox str1Print str1End Sub字体的放⼤与缩⼩随机放⼤1~3整数倍：Text1.FontSize = Text1.FontSize * Int(Rnd()*3+1) 缩⼩的⽐例为任意：Text1.FontSize =Text1.FontSize * Rnd()连接与求和Private Sub Command1_Click()Text3.V isible = TrueText3.Text = Text1.Text & Text2.Text '也可以⽤Text1.Text + Text2.Text Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Text3.Text = V al(Text1.Text) + V al(Text2.Text)End Sub字符串的替换⽅法⼀：（多个函数）Private Sub Command1_Click()i = InStr(Text1, Text2) '在Text1中查找出现Text2内容的位置k = i + Len(Text2) ' 定位右⼦串的起始位置Ls = Left(Text1, i - 1) ' 取左⼦串Text4 = Ls + Text3 + Mid(Text1, k) ' 左⼦串连接替换为⼦串连接右⼦串实现替换'也可以将上⾯两步合并为Text4 = Left(Text1, i - 1) + Text3 + Mid(Text1, k)End Sub⽅法⼆：（Replace函数）Private Sub Command2_Click()Text4 = Replace(Text1, Text2, Text3)End Sub⾝份证的查找Private Sub Command1_Click()Dim a As String, nl%, yue%, ri%, b%, xb$a = Text1.Textnl = 2010 - V al(Mid(a, 7, 4))'nl = Y ear(Now()) - V al(Mid(a, 7, 4))yue = Mid(a, 11, 2)ri = Mid(a, 13, 2)b = V al(Mid(a, 17, 1))If b Mod 2 = 1 Then xb = "GG" Else xb = "MM"Label3.Caption = nlLabel5.Caption = yue & "⽉" & ri & "⽇"Label7.Caption = "你是" & xbEnd Sub电话号码升位：将原来任意⼀个带区号的7位电话号码升到8位，在最前⾯加8。

VB程序设计例题12例

索引一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。

再画一个命令按钮，其名称为C1，Visible属性为False。

编写适当的事件过程。

程序运行后，如果在文本框中输入字符，则命令按钮出现。

二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。

程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。

（要求在未输入半径前两个按钮呈灰色不可用。

）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。

程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。

四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。

程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。

单击退出按钮则程序退出。

五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。

（2）收入在200~400元，超过200元的部分纳税3%。

（3）收入超过400元的部分，纳税4%。

（4）当收入达5000元或超过时，将4%税金改为5%。

编程序实现上述操作。

六、给定三角形的三条边的边长，计算三角形的面积。

编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。

当输入-1时结束程序。

七、编程求100以内的全部素数。

八、编程打印钻石图案。

九、输出杨辉三角形。

十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

1、下列程序执行后输出结果是：b=2Do While b<40b=b*(b+2)LoopPrint bA)42 B)39 C)40 D)802、下列程序执行后输出结果是：Private Sub Command1_Click( )Dim aa=Array(1,3,5,7,9)For k=1 To 4s=s+a(k)Next kPrint sEnd SubA)16 B)14 C)25 D)243、下列程序执行后输出结果是：Private Sub Command1_Click( )m=0Do Until 0m=m+1If m>10 Then Exit DoLoopPrint mEnd SubA) 0 B)10 C)11 D)出错4、下列程序执行后输出结果是：Private Sub Command1_Click( )m=0Dom=m+1If m>10 Then Exit DoLoop Until m<10Print mEnd SubA) 0 B)10 C)11 D)15、下列程序执行后输出结果是：Private Sub Form1_Click( )For I=1 to10X=4For j=1 t0 3X=3For k=1 to 2X=x+6Next kNext jNext IPrint xEnd SubA) 7 B) 15 C)157 D)5386、下列程序执行后输出结果是：Private Sub Form1_Click( )X=0For I= 1 To 5For j= I To 6X=X+1Next jNext IA)20 B)15 C)25 D)247、下列程序执行后输出结果是：Public Sub F1(a%,ByVal b%)a=a*a:b=b+2End SubPrivate Sub Command1_Click( )Dim a%,b%a=5:b=3F1 a,bPrint a,bEnd SubA) 25 3 B)25 5 C)5 5 D) 5 38、下面程序运行后输出结果是：Private Sub mySub(b()As Integer ,Optional ByVal n As Integer=3)For i=1 to 4B(i)=n*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integer,i As IntegerCall mySub(a(),5)MySub a()For i=1 To 4Print a(i);NextEnd SubA) 5 10 15 20 B) 2 4 6 8C) 3 6 9 12 D) 0 0 0 09、下面程序运行后，在输入对话框输入234，则输出结果是：Private Function fun(ByVal num As long) As long Dim k As longk=1num=Abs(num)Do While numk=k*(num Mod 10)num=num\10LoopFun=kEnd FunctionPrivate Sub Command1_Click( )Dim n As LongDim r As Longn=InputBox(“请输入一个整数”)r=fun(n)print rEndA）234 B) 23 C)34 D)241、以下不是Visual Basic的特点的是：A）可视编程B）算法设计C）事件驱动D）面向对象2、在Visual Basic中通过（）属性来设置字体颜色：A）FontColor B) ForeColor C) BackColor D)ShowColor3、将当前窗体中显示的文字及绘制的图形全部清除，可以用方法：A）Me.Clear B) Me.Cls C) Me=“”D）Me.Delete4、当前窗体大小改变时，要使其中控件也按比例发生变化，应使用窗体的：A)AutoSize属性B）Resize事件C)AutoRedraw属性D)Stretch5、以下变量名合法的是：A）De/3t B) Global C) City_name D)15A6、变量A%的类型是：A）Integer B)Single C)String D)Boolean7、声明全局变量的关键字是：A）Dim和Public B)Dim和Global C) Global和Public D) Dim和Static 8、要声明一个长度为256个字符的定长字符串变量str，以下语句正确的是：A）Dim str As String B) Dim str As String(256)C) Dim str As String[256] D) Dim str As String*2569、变量X=30274757，则变量声明不能将其声明为：A）Integer B)Variant C)String D)Long10、下例声明语句存在变体变量的是：A）Dim a,b As Integer B) Dim a As StringC) Static a As Integer D) Public a As Currenency11、若x是一个正实数，对x的第三位小数四舍五入的表达式是：A）0.01*Int(x+0.005) B) 0.01*Int(100*(x+0.005))C) 0.01*Int(100*(x+0.05)) D) 0.01*Int(x+0.05)12、表达式2*3^2+2*8/4+3^2的值为：A）64 B）31 C）49 D）2213、逻辑表达式Not “a”> “b” And 9<3 Or 9>3的值为：A）True B)False C)表达式有错D）条件不足14、下列表达式中，合法的Visual Basic表达式有：A）(-b+sqr(b*b+4a*c))/2/a B) Cos(a)^2-Atn(a)C) Sqr(y^3+3*(A*A+6B*B)) D) 1/(X+1/Y+5A)15、函数L eft(“Hello”,2)的值为：A）He B) el C) lo D) True16、下列可以将变量A和B互换的语句是：A）A=B:B=A B) A=A+B:B=A-B:A=A-BC) A=C:C=B:B=A D) A=(A+B)/2:B=(A-B)/217、循环结构For I!=1 to 10 Step 1.5的执行次数是：A）6 B）7 C）9 D）1018、以下程序段的循环结构执行后，I的输出值是：A）25 B）10C）11 D）因为y的初值不知道，所以不确定…….For I=1 to 10 Step 2y=y+INext IPrint I19、有一子程序定义为Public Sub aaa(a As Integer,b As Single),正确的调用形式是：A）Call aaa 1,1.2 B) Call Sub(1,1.2) C) aaa 1,1.2 D) Sub 1,1.220、定义数组Array(1 to 5,5)后，下列哪一个元素不存在：A）Array(1,1) B) Array(1,0) C) Array(0,1) D) Array(5,5)21、为使文本框显示滚动条，必须首先设置的属性是：A）AutoSize B) Alignment C) Multiline D) ScrollBars22、标签控件的对齐方式，是由下列哪个属性决定：A）AutoSize B) Alignment C）Style D)WordWrap23、在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form1_Load 事件过程中加入如下语句：A）Text1.Index=0 B) Text1.TabIndex=0C) Text1.Appearance=0 D) Text1.tag=024、将命令按钮Command1设置为不可见，应该修改该命令按钮的以下属性：A）Visible B) V alue C) Caption D) Enabled25、复选框是否被选中，是由下列哪个属性决定：A）Checked B) Value C) Enabled D) Selected26、组合框有三种不同风格：下拉组组合框、简单组合框和下拉式列表框是由下列哪个属性决定：A）Style B) BoderStyle C)FillStyle D) DrawStyle27、执行List1.List(L ist1.ListCount)= “80”语句后：A）会产生错误信息B）L ist1列表框最后一个表项被改为“80”C）L ist1列表框会增加一个“80”表项D）指定List1列表框的表项个数为“80”个28、单击滚动条两端的任意一个滚动箭头，将触发滚动条的哪个事件：A）Scroll B) KeyDown C) DragOver D) Change29、将定时器的时间间隔设为1秒，则定时器的Interval属性值应设为：A）1 B）1000 C）100 D）1030、以下控件可以用print方法输入文本的是：A）文本框B）图片框C）标签框D）列表框31、下列图形中用Shape控件不能绘制的有：A）矩形B）椭圆C）正方形D）三角形32、将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的什么方法：A）ShowOpen B)ShowSave C)ShowColor D) ShowFont33、菜单的顶层菜单控件：A）不允许设置快捷键B）允许设置快捷键C）不存在Shortcut属性D）有子菜单时允许有快捷键34、以下关于顺序文件的叙述正确的是：A）文件中各记录的写入顺序和读出顺序是一致的B）使用不同的文件号可以以不同的读写方式打开同一文件C）向文件中写记录的语句有Input,Line Input等D）用Append方式打开文件时，既可以在文件末尾添加记录，也可以读取原有记录35、要使得文件列表框File1中只显示文件名后缀为bmp和jpg的图片文件，以下哪个语句是正确的：A）File1.Pattern=“*.bmp|*.jpg”B) File1.Pattern=“图片文件”C）File1.Pattern=“*.bmp;*.jpg”D）File1.Pattern=“图片文件|*.bmp;*.jpg”36、保存新建的工程时，默认的路径是：A）MyDocument B)VB98 C)6\ D)Windows37、下列可以打开立即窗口的操作是：A）Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G38、设a=6,则执行x=IIf(a>5,-1,0)后，x的值为：A）5 B）6 C）0 D）-139、可以同时删除字符串前导和尾部空白的函数是：A）Ltrim B)Rtrim C)Trim D)Mid40、分别执行语句a=InputBox(“aaa”, “bbb”)和b=MsgBox(“ccc”, , “ddd”)后，在输入对话框和消息框中的标题信息分别是：A）aaa和ccc B）aaa和ddd C) bbb和ccc D) bbb和ddd41、要计算当0<x<10时，y=x，应使用语句：A) If 0<x<10 Then y=xB) If 0<x Or x<10 Then y=xC) If 0<x And x<10 Then y=xD) If 0<x XOr x<10 Then y=x42、多分支选择结构的Case语句，写法错误的是：A）Case 1,5,7,9B）C ase 8 To 12C）C ase 5 To 2D）C ase Is<”man”43、Line(100,100)-step(400,400)将在窗体（）画一直线：A）（200，200）到（400，400）B）（100，100）到（300，300）C）（100，100）到（500，500）D）（100，100）到（400，400）44、以下关于顺序文件的叙述正确的一项是：A）文件中各记录的写入顺序和读出顺序是一致的B）使用不同的文件号可以以不同的读写方式打开同一文件C）向文件中写记录的语句有Input,Line Input等D）用Append方式打开文件时，既可以在文件末尾添加记录，也可以读取原有记录45、通常使用下列哪种方法来显示自定义对话框：A）Load B) Show C) Unload D)Hide46、以下控件可以使用Print方法输入文本的是：A)文本框B）图片框C）标签框D）列表框47、在窗体Form1上加一个通用对话框控件CommonDialog1,则与语句CommonDialog1.Action=3等效的语句是：A) CommonDialog1.ShowOpen B) CommonDialog1.ShowColorC) CommonDialog1.ShowSave D) CommonDialog1.ShowFont48、假若有一个菜单项，名为MenuItem,为了在运行时使该菜单项失效（变灰），应使用的语句是：A）MenuItem.Enabled=False B) MenuItem.Enabled=TrueC) MenuItem.Visible=False D) MenuItem.Visible=True49、标准模块存盘后，形成的磁盘文件扩展名是：A）.bas B) .cls C) .frm D) .txt50、定义一个过程为局部过程，应使用下列哪个关键字：A）Static B) Public C)Private D) Sub 51、下列定义为Funct函数过程的定义语句错误的是：A）PriV ate Public Funct(a) As IntegerB）Static Function Funct(a)C）F unction Funct(a As Integer) As IntegerD）PriV ate Function Funct(a As Single)1、执行下面语句后，Ia的值是：Ia%=12Ib%=10Ia%=Ib%-Ia%Ib%=Ib%+Ia%Ia%= -Ib%^2A)-2 B)-64 C)64 D)-1002、标准模块存盘后，形成的磁盘文件扩展名是：A）A）.bas B) .cls C) .frm D) .txt3、列在VB6.0中，合法的字符串常量有：A）”20”02”B) $2002$C) “2002”D) #2002#4、下列在VB6.0中，作为常量有语法错误的有：A） 123.456#B) 1234!C) 1.23D-23D) 1.89E1.15、下列变量名不合法的有：a) ab) abcd#c) a$xd) C_E6、下列定义为Funct函数过程的定义语句错误的是：A）PriVate Public Funct(a) As IntegerA）Static Function Funct(a)B）F unction Funct(a As Integer) As IntegerC）P riVate Function Funct(a As Single)g)下列四个VB6.0表达式中,不正确的有：A） a-b+cB） a=b=cC） a*b*cD） LOG(SIN(-1))8、下列VB6.0逻辑表达式的值为真的有：A）“A”>”a”B）“9”>”a”C）“That”<”Thank”D）“”<“”9、若x是一个正实数，对x的第三位小数四舍五入的表达式是：A） 0.01*Int(x+0.005) B) 0.01*Int(100*(x+0.005))C) 0.01*Int(100*(x+0.05)) D) 0.01*Int(x+0.05)10、表达式2*3^2+2*8/4+3^2的值为：A）64 B）31 C）49 D）2211、下列表达式中，合法的Visual Basic表达式有：A）(-b+sqr(b*b+4a*c))/2/a B) Cos(a)^2-Atn(a)C) Sqr(y^3+3*(A*A+6B*B)) D) 1/(X+1/Y+5A)12、函数Left(“Hello”,2)的值为：A）He B) el C) lo D) True13、下列可以将变量A和B互换的语句是：A）A=B:B=A B) A=A+B:B=A-B:A=A-BC) A=C:C=B:B=A D) A=(A+B)/2:B=(A-B)/214、循环结构For I!=1 to 10 Step 1.5的执行次数是：A）6 B）7 C）9 D）1015、以下程序段的循环结构执行后，I的输出值是：A）25 B）10C）11 D）因为y的初值不知道，所以不确定…….For I=1 to Step 2y=y+INext IPrint I16、有一子程序定义为Public Sub aaa(a As Integer,b As Single),正确的调用形式是：A）Call aaa 1,1.2 B) Call Sub(1,1.2) C) aaa 1,1.2 D) Sub 1,1.2 17、定义数组Array(1 to 5,5)后，下列哪一个元素不存在：A）Array(1,1) B) Array(1,0) C) Array(0,1) D) Array(5,5) 18、为使文本框显示滚动条，必须首先设置的属性是：A）AutoSize B) Alignment C) Multiline D) ScrollBars19、标签控件的对齐方式，是由下列哪个属性决定：A）AutoSize B) Alignment C）Style D)WordWrap20、在Form1窗体启动时，为使Form1.Text1文本框首先获得焦点，可以在窗体的Form1_Load 事件过程中加入如下语句：A）Text1.Index=0 B) Text1.TabIndex=0C) Text1.Appearance=0 D) Text1.tag=021、将命令按钮Command1设置为不可见，应该修改该命令按钮的以下属性：A）Visible B) Value C) Caption D) Enabled22、复选框是否被选中，是由下列哪个属性决定：A）Checked B) Value C) Enabled D) Selected23、组合框有三种不同风格：下拉组组合框、简单组合框和下拉式列表框是由下列哪个属性决定：A）Style B) BoderStyle C)FillStyle D) DrawStyle24、执行List1.List(List1.ListCount)= “80”语句后：A）会产生错误信息B）List1列表框最后一个表项被改为“80”C）List1列表框会增加一个“80”表项D）指定List1列表框的表项个数为“80”个25、单击滚动条两端的任意一个滚动箭头，将触发滚动条的哪个事件：A）Scroll B) KeyDown C) DragOver D) Change26、将定时器的时间间隔设为1秒，则定时器的Interval属性值应设为：A）1 B）1000 C）100 D）1027、以下控件可以用print方法输入文本的是：A）文本框 B）图片框 C）标签框 D）列表框28、下列图形中用Shape控件不能绘制的有：A）矩形 B）椭圆 C）正方形 D）三角形29、将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的什么方法： A）ShowOpen B)ShowSave C)ShowColor D) ShowFont30、菜单的顶层菜单控件：A）不允许设置快捷键 B）允许设置快捷键C）不存在Shortcut属性 D）有子菜单时允许有快捷键31、以下关于顺序文件的叙述正确的是：A）文件中各记录的写入顺序和读出顺序是一致的B）使用不同的文件号可以以不同的读写方式打开同一文件C）向文件中写记录的语句有Input,Line Input等D）用Append方式打开文件时，既可以在文件末尾添加记录，也可以读取原有记录32、要使得文件列表框File1中只显示文件名后缀为bmp和jpg的图片文件，以下哪个语句是正确的：A）File1.Pattern=“*.bmp|*.jpg” B) File1.Pattern=“图片文件”C）File1.Pattern=“*.bmp;*.jpg” D）File1.Pattern=“图片文件|*.bmp;*.jpg”33、下列可以打开立即窗口的操作是：A）Ctrl+D B) Ctrl+E C) Ctrl+F D) Ctrl+G34、设a=6,则执行x=IIf(a>5,-1,0)后，x的值为：A）5 B）6 C）0 D）-135、可以同时删除字符串前导和尾部空白的函数是：A）Ltrim B)Rtrim C)Trim D)Mid36、分别执行语句a=InputBox(“aaa”, “bbb”)和b=MsgBox(“ccc”, , “ddd”)后，在输入对话框和消息框中的标题信息分别是：A）aaa和ccc B）aaa和ddd C) bbb和ccc D) bbb和ddd37、要计算当0<x<10时，y=x，应使用语句：A) If 0<x<10 Then y=xB) If 0<x Or x<10 Then y=xC) If 0<x And x<10 Then y=xD) If 0<x XOr x<10 Then y=x38、文件操作的一般顺序是：A）打开文件→操作B）打开文件→关闭文件→操作C）打开文件→操作→关闭文件D）操作→关闭文件39、多分支选择结构的Case语句，写法错误的是：A）Case 1,5,7,9B）Case 8 To 12C）Case 5 To 2D）Case Is<”man”40、下列四个控件中，具有FileName属性的是：a)文件列表框b)驱动器列表框c)目录列表框d)列表框。

VB习题及答案

页数:12
VB练习题

页数:14
VB期末考试试题及答案

页数:5
VB习题(2016)

页数:18
vb试题及答案

页数:4
vb习题

页数:10
vb经典题目及答案

页数:11
VB练习题2

页数:10
vb经典题目及答案

页数:12
VB考试试题及答案分解

页数:19