语言基础单选1、与传统的程序设计语言相比，Visual Basic 最突出的特点是：A 结构化程序设计B 程序开发环境C事件驱动编程机制 D 程序调试技术2、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口设置窗体的属性，预先应执行的操作是：A 单击窗体上没有控件的地方B 单击任一个控件C 不执行任何操作10D 双击窗体的标题栏3、在Visual Basic工程中，可以+-*作为启动对象的程序是A 任何窗体或标准模块B 任何窗体或过程C Sub Main过程或其他任何模块D Sub Main过程或任何窗体4、以下叙述中错误的是A 一个工程可以包括多种类型的文件B Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C程序运行后，在内存中只能驻留一个窗体D 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样5、以下叙述中错误的是A 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B 保存Visual Basic程序时，应分别保存窗体文件及工程文件C Visual Basic应用程序只能以解释方式执行D 事件可以由用户引发，也可以由系统引发6、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A如果工程中含有Sub Main过程，则程序一定首先执行该过程B 不能把标准模块设置为启动模块C 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D 任何时刻最多只有一个窗体是活动窗体7、下列可以作为Visual Basic的变量名的是：A FileNameB a(A+b)C 23D D print8、以下声明语句中错误的是A Const var1=123B Dim var2 = 'ABC'C public a,b as integerD Static var3 As Integer9、以下运算符中，不是逻辑运算符的是：A OrB XorC ImpD mod10、下列选项中，把r定义为双精度型变量的是：A r%B r!C r#D r$11、用来将数值转换为字符串类型的函数是:A Chr$()B Asc()C Str$()D Val()12、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()X = 12345Print Format$(X, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A 123.45B 12345.00C 12345D 00123.4513、inputBox函数的返回值类型是：A 数值B 字符串C 变体 D数值或字符串（视输入的数据而定）填空1、在VB中，Len(“共产党”)的值是：_3______________；执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是：__6_____________2、语句print “25+32”的结果是：_25+32__________________3、设a=2,b=3,c=4,d=5，则表达式3>2*b OR a=c AND b<>c OR c>d的值是：_____false_________ ；NOT a<=c OR 4*c=b^2 AND b<>a+c的值是_____________4、以下语句的输出结果是：_3______a%=3.14159Print a%5、在VB中，工程文件的扩展名是.VBP，窗体文件的扩展名是.____ ___________。
6、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox("Enter the first integer:")b = InputBox("Enter the second integer:")Print b + aEnd Sub程序运行后，单击命令按钮，先后在两个输入框中输入123和456，则输出结果是：__456123______________7、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text1.Text = " VBProgramming "End SubPrivate Sub Text1_Change()Picture1.Print " VB程序设计"End Sub程序运行后,单击窗体,在图片框中显示的内容是____ VB程序设计__________________。
8、___注释_________语句是一个说明性语句，Visual Basic不对它们进行编译，该语句不参与程序运行。
9、在Visual Basic中，字符串常量用___#________括起来，日期/时间型常量要用_____________括起来。
10、在VB中，当窗体被装入内存时，系统将自动执行__load_ _____事件过程。
11、Visual Basic应用程序通常由3类模块组成，即窗体模块、类模块____________和标准模块。
12、在VB中，如果要改变窗体的标题，则需要设置的属性是13、100%表示100为_____整________型数据；100！表示为_单精度___________型数据。
14、在VB中，标准模块中的代码存放在以bas.____ ____为扩展名的文件中。
15、在VB中，将窗体Form1隐藏起来的语句是：Form1.__hide_________流程控制单选题1、下列语句中，能交换变量a和b的值的是：A t=a:b=a:a=tB a=a+b:b=a-b:a=a-bC t=a:a=b:b=tD a=b:b=a2、设a=6，则执行X=IIf(a>5,-1,0)后，x的值为：A 5B 6C 0D -13、结束当前运行程序的语句是：A QuitB ExitC Exit SubD End4、以下Case语句中错误的是A Case 0 To 10B Case Is>10C Case Is>10 And Is<50D Case 3,5,Is>105、设有以下循环结构Do循环体Loop While <条件>则以下叙述中错误的是A 若"条件"是一个为0的常数，则一次也不执行循环体B "条件"可以是关系表达式、逻辑表达式或常数C 循环体中可以使用Exit Do语句D 如果"条件"总是为Tr ue，则不停地执行循环体6、有程序段如下：X%=2Do while x<8Print “*”;X=x+2Loop执行后的输出结果是：A *B **C ***D ****7、假定有以下程序段For i = 1 To 3For j = 5 To 1 Step -1Print i * jNext j, i则语句Print i * j的执行次数是：A 15B 16C 5D 88、执行以下程序段后，x的值为Dim x As Integer, i As Integerx=0For i = 20 To 1 Step –3x = x + i \ 5Next IA 16B 17C 13D 19填空1、以下语句的输出结果是__ shaingha ___________S$=”beijing”S$=”shaingha”Print s2、设有程序段：Dim k%K=5Do until k=0K=k-1Loop执行循环体的次数是：______5________次。
3、下面程序段中，循环语句的执行次数是_______4______次。
For x = 10 To 1 Step -3Print xNext x4、执行语句For x = 1 To 3：x = x + 1：Next x后，变量x的值是__5__________。
5、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入5，然后单击命令按钮，则在Text2中显示的内容是：阅读程序1、Private Sub Command1_Click()Dim x%, y%x = InputBox("请输入x的值：")Select Case xCase 1, 3, 5y = x - 1Case 6 To 10y = x + 1Case 2, 4y = x * 2Case Is > 10y = x * x + 1End SelectPrint "x="; x, "y="; yEnd Sub2、当x的值输入为10时，运行结果：有程序段：x% = 2Do While x < 10Print "*";x = x + 2Loop执行之后，输出的结果是：________________3、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i <= 4 Thenx = x + 1Elsex = x + 2End IfNext IPrint xEnd Sub程序运行后，单击命令按钮，其输出结果为 :4、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer, s As Integera = 9s = 1Dos = s + aa = a－1Loop While a <= 0Print s; aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是：5、设有如下程序:Private Sub Command1_Click()Dim c As Integer, d As Integerc = 3d = InputBox("请输入一个整数")Do While d > 0If d > c Thenc = c + 1End Ifd = InputBox("请输入一个整数")LoopPrint c + dEnd Sub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:6、设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 6x = n / in = n + 1sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是： 编程1、编程求100以内的所有奇数和。