题目

（VB）第一次作业一、单项选择题1. Visual Basic程序中分隔各语句的字符是(B )A. ’ B. :C. D. _2.工程文件的扩展名是（B）A. frm B. vbp C. bas D. frx3.下列运算符中，运算级别最高的是（B）A. + B. * C. D. Mod4.下列可作为Visual Basic的变量名的是( A)A. Filename B. A(A+B)C. A％D D. Print5.下面的程序的输出结果是(B )x=5For i = 1 To 20 Step 2x=x+i5Next iPrint x, iA. 21 20 B. 21 21C. 22 20 D. 22 216.下列赋值语句[1]合法的是（A）A. A=A+B B. A+B=AC. –A=A D. A=2B7.下列属性中，目录列表框和文件列表框都有的属性为（C）。A. List B. valueC. Path D. Pattern8.执行下面的程序段[2]后，x的值为( A)x=5For i = 1 To 20 Step 2x=x+i5Next iA. 21 B. 22C. 23 D. 249.向一个顺序文件[3]中写数据时，（D）是从文件末尾添加的方式打开顺序文件。A. Output B. InputC. Write D. Append10. Seek方法用于在（C）类型的记录集中查找满足条件的记录。A.动态集B.快照C.表D.任意11.当函数EOF()的返回值为真时，表示文件的指针指向(B）A.开头B.尾部C.最后一个字节D.最后一个记录12.如果要退出Do…Loop循环，可使用语句（B）。A. Exit B. Exit DoC. Exit For D. Exit For13.在VB中，称对象的数据为（A）。A.属性B.方法C.事件D.封装14.不论何对象，都具有（B）属性。A. Text B. NameC. ForeColor D. Caption15.使用Public Const语句声明一个全局的符号常量[4]时，该语句应放在（C）。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段16.下面关于变量的作用域[5]，正确的描述是（B）。A.模块级变量的作用域为它所在的模块B.同一模块中不同级的变量不能同名C.在某一模块中所有过程外用Dim定义的变量为全局变量[6]D.不同模块中定义的全局变量可以相同17.设a=2，b=3，c=4，d=5，下列表达式的值是（B）a＞b AND c＜=d OR 2a＞cA. True B. FalseC. -1 D. 118.把数值型转换为字符（串）型需要使用下列哪一个函数？（B）A. Val B. StrC. Asc D. Chr19.以下叙述错误的是（D）A.在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的B.在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字C. KeyPress事件中不能识别键盘上某个键的按下与释放D. KeyPress事件中可以识别键盘上某个键的按下与释放20.用于设置或返回文[7]件类型的属性是（C）。A. Drive B. PathC. Pattern D. FileTitle21.要删除列表框中的某一个项目，需要使用（D）方法。A. Clear B. ReMoveC. Move D. ReMoveItem22.以下语句的输出结果是(在立即窗口中) (D ) a=27＜CR＞(＜CR＞为回车) b=65＜CR＞Print a;b＜CR＞A. 27Δ65 B. Δ27Δ65C. Δ27ΔΔ65 D. Δ27ΔΔ65Δ23.语句Print 555/5的输出结果是(D )A. 0B. 1C. 5D. 2524.编写如下事件过程：private sub form_mousedown（button as integer，shift as integer，x as single，y as single）if shift=6 and button=2 thenprint "BBBB"end ifend sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（D）A.同时按下shift键和鼠标左键B.同时按下shift键和鼠标右键C.同时按下ctrl、alt键和鼠标左键D.同时按下ctrl、alt键和鼠标右键25.如果X是一个正实数，对X的第三位小数四舍五入的表达式是（B）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 )（VB）第二次作业一、单项选择题1. Micrisift Access数据库文件的扩展名是（C）。A. dbfB. AccC. mdbD. db2.下列哪个符号能作为VB中的变量名（A）。A. AB7B. 7ABC. IFD. A[B]73.通过设置Shape控件的（A）属性可以绘制多种形状的图形A. ShapeB. BorderstyleC. FillstyleD. Style4.下面的程序的输出结果是(B )x=5For i = 1 To 20 Step 2x=x+i5Next iPrint x, iA. 21 20B. 21 21C. 22 20D. 22 215.下列赋值语句中（C）是错误的。A. x＝x＋１B. x＝x＋yC. x＋y＝xD. x＝４＞６6.要设置标签框是否有边框，应设置（C）属性来实现。A. BackColorB. ForeColorC. BordeStyleD. Visible7.下面关于随机文件[8]的描述，不正确的是：（B）A.每条记录的长度必须相同B.一个文件中记录号不必惟一C.可通过编程对文件中的某条记录方便地修改D.文件的组织结构比顺序文件复杂8.当运行程序时，系统自动执行启动窗体的（A）事件过程。A. LoadB. ClickC. UnLoadD. MinButton9.以下说法正确的是（D）A.通用过程可以出现在窗体模块和标准模块中B.不同模块中的通用过程可以重名C.同一标准模块中的通过过程可以同名D.不同标准模块中的通用过程不能同名10.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对（B）属性设置就即可。A. MaxButtonB. BorderstyleC. WidthD. MinButton11.当函数EOF()的返回值为真时，表示文件的指针指向（B）A.开头B.尾部C.最后一个字节D.最后一个记录12.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（C）方法。A. ShowOpenB. ShowColorC. ShowSaveD. ShowFont13.令A、B、C都是整型变量，A=3，B=4，C=5，下列表达式结果为TRUE的是（C）A. (A + B) C - 1 > 0B. + C * A B * B = 19C. (A - C) * Sqr(B) + B = 0D. A ^ 2 + B ^ 2 - C ^ 2 < 014.在下列关于对话框的叙述中，错误的是（A）：A.作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和False。B.语句frmAbout．Show vbModeless，frmMain将fmAbout窗体显示为fmMain的无模式子窗体。C.可以将对话框分成两种类型：模式的和无模式。D.语句frmAbout．Show将frmAbout作为无模式对话框显示。15.下面关于变量的作用域，正确的描述是（B）。A.模块级变量的作用域为它所在的模块B.同一模块中不同级的变量不能同名C.在某一模块中所有过程外用Dim定义的变量为全局变量D.不同模块中定义的全局变量可以相同16.当鼠标移动时，有关MouseMove事件的说明正确的是（A）A. MouseMove事件不断发生B. MouseMove事件只发生一次C. MouseMove事件经过每个象素都会触发D.当鼠标指针移动得越快，则在两点之间触发的MouseMove事件越多17.使用RGB函数来设置颜色时，RGB(0, 0,255)是（C）A.白色B.红色C.蓝色D.黑色18. Line方法不能用来画（D）A.点B.线C.矩形D.圆19.若有数组说明语句为：Dim a(-3 To 8)则数组a包含元素的个数是（D）。A. 5B. 8C. 11D. 1220.当用鼠标拖动滚动块时触发（C）事件。A. MoveB. ChangeC. ScrollD. GotFocus21.下面子过程说明合法的是（D）。A. Sub f1（ByVal n％（））B. Sub f1（％）As integerC. Function f1％（f1％）D. Function f1（ByVal n％）22.语句Print 4 * 4 4 / 4的输出结果是（D）A. 0B. 1C. 4D. 1623.下面关于过程作用域，错误的描述是（D）。A.全局级过程的作用域为整个工程B.在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称C.在不同模块中定义的模块级过程可以同名D.在不同模块中定义的工程级过程不能同名24.为了建立一个随机文件，其中每条记录由多个不同的数据组成，应使用（A）存储记录。A.自定义类型B.数组C.字符串类型D.变体类型25.函数Int(Rnd99+1)产生随机数的范围是(C )。A. [1,98]B. [1,99]C. [1，100]D. [1，101]2011年春季学期可视化程序设计[9]（VB）第三次作业一、填空题（本大题共28分，共7小题，每小题4分）1.在Print方法中，若用逗号分隔，则按格式输出各表达式的值，若用分号分隔，则按格式输出各表达式的值。2.若屏蔽框架上的控件对象，则需设置属性的值为False。3.在用Show方法后显示自定义对话框时，如果Show方法后带_参数就将窗体作为模式对话框显示。4.结构化程序设计[10]的三种基本结构是______。5.在mousedown和mouseup事件过程，当参数button的值为_1_、2、4时，分别代表鼠标的______键。6.与下列8e3×ln2数学式子对应的Visual Basic表达式是。7.如果需要将窗体载入内存却不显示，需要将该窗体的属性设置为False，再用语句装载。二、程序阅读题（本大题共36分，共6小题，每小题6分）1.若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？Dim filename As StringDim str As StringCommonDialog1.Filter = "文本文件(.TXT)|*.txt" CommonDialog1.Action = 1 filename = CommonDialog1.filename CommonDialog1.ShowColorForm1.ForeColor = CommonDialog1.ColorOpen filenameFor Input As #1Do While Not EOF(1)str = str + Input(1, #1)LoopForm1.Print strClose＃12.下面程序的功能是什么？Private Sub Command1_Click()Dim s%, n%Dim a As String n = 0a = InputBox("Please input a number:")For s = 1 To Len(a)If (func(Val(Mid(a, s, 1)))) Thenn = n + 1 NextPrint nEnd SubPrivate Function func(x%) As BooleanIf (x Mod 2 = 0) Thenfunc = TrueElsefunc = FalseEnd IfEnd Function3.下面事件过程的功能是：输入n的值，求sum=1+2+…+n的值，在横线上填上适当的内容。________________________________________________________________Private Sub Command1_Click()Dim n%, i%, sum n=InputBox("n=") i=1: sum=0 20:If i>n Then GoTo 10Else(1)i=i+1(2)End If 10: Print "sum="; sumEnd Sub4.有如下事件过程，写出程序的功能（数学表达式）。________________________________________________________________________________________________Private Sub Command1_Click()T=0M=1Sum =0DoT=T+MSum =Sum+TM=M+2Loop While M<=39Print“Sum =”；SumEnd Sub5.有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？________Public a As Integer Private Sub Form_Load()a = 0 End Sub Private Sub Command4_Click()Timer1.Enabled = 1Timer1.Interval = 1000 End SubPrivate Sub Timer1_Timer()Static a%a = a + 1If a Mod 10 = 0 Thenf1 aEnd If End SubStatic Sub f1(s%)a = a + 1s = 0Text1.Text = Str(a) End Sub6.使用情况语句[11]改写下列事件过程。Private Sub Command1_Click()Dim score!, gradescore=InputBox("请输入一个学生的分数：")If score>=90 ThenGrade=”A”ElseIf score>=80 ThenGrade=”B”ElseIf score>=70 ThenGrade=”C”ElseIf score>=60 ThenGrade=”D”ElseGrade=”E”End IfPrint "该学生的分数等级为："; grade;End Sub________________________________________________________________________________________________________________________________________________________________________

（VB）第一次作业一、单项选择题1. Visual Basic程序中分隔各语句的字符是(B )A. ’ B. :C. \D. _2.工程文件的扩展名是（B）A. frm B. vbp C. bas D. frx3.下列运算符中，运算级别最高的是（B）A. + B. * C. \ D. Mod4.下列可作为Visual Basic的变量名的是( A)A. Filename B. A(A+B)C. A％D D. Print5.下面的程序的输出结果是(B )x=5For i = 1 To 20 Step 2x=x+i\5Next iPrint x, iA. 21 20 B. 21 21C. 22 20 D. 22 216.下列赋值语句^[1]合法的是（A）A. A=A+B B. A+B=AC. –A=A D. A=2B7.下列属性中，目录列表框和文件列表框都有的属性为（C）。A. List B. valueC. Path D. Pattern8.执行下面的程序段^[2]后，x的值为( A)x=5For i = 1 To 20 Step 2x=x+i\5Next iA. 21 B. 22C. 23 D. 249.向一个顺序文件^[3]中写数据时，（D）是从文件末尾添加的方式打开顺序文件。A. Output B. InputC. Write D. Append10. Seek方法用于在（C）类型的记录集中查找满足条件的记录。A.动态集B.快照C.表D.任意11.当函数EOF()的返回值为真时，表示文件的指针指向(B）A.开头B.尾部C.最后一个字节D.最后一个记录12.如果要退出Do…Loop循环，可使用语句（B）。A. Exit B. Exit DoC. Exit For D. Exit For13.在VB中，称对象的数据为（A）。A.属性B.方法C.事件D.封装14.不论何对象，都具有（B）属性。A. Text B. NameC. ForeColor D. Caption15.使用Public Const语句声明一个全局的符号常量^[4]时，该语句应放在（C）。A.过程中B.窗体模块的通用声明段C.标准模块的通用声明段D.窗体模块或标准模块的通用声明段16.下面关于变量的作用域^[5]，正确的描述是（B）。A.模块级变量的作用域为它所在的模块B.同一模块中不同级的变量不能同名C.在某一模块中所有过程外用Dim定义的变量为全局变量^[6]D.不同模块中定义的全局变量可以相同17.设a=2，b=3，c=4，d=5，下列表达式的值是（B）a＞b AND c＜=d OR 2*a＞cA. True B. FalseC. -1 D. 118.把数值型转换为字符（串）型需要使用下列哪一个函数？（B）A. Val B. StrC. Asc D. Chr19.以下叙述错误的是（D）A.在KeyUp和KeyDown事件过程中，从键盘上输入A和a是相同的B.在KeyUp和KeyDown事件过程中，从键盘上1和小键盘上的1看作不同数字C. KeyPress事件中不能识别键盘上某个键的按下与释放D. KeyPress事件中可以识别键盘上某个键的按下与释放20.用于设置或返回文^[7]件类型的属性是（C）。A. Drive B. PathC. Pattern D. FileTitle21.要删除列表框中的某一个项目，需要使用（D）方法。A. Clear B. ReMoveC. Move D. ReMoveItem22.以下语句的输出结果是(在立即窗口中) (D ) a=27＜CR＞(＜CR＞为回车) b=65＜CR＞Print a;b＜CR＞A. 27Δ65 B. Δ27Δ65C. Δ27ΔΔ65 D. Δ27ΔΔ65Δ23.语句Print 5*5\5/5的输出结果是(D )A. 0B. 1C. 5D. 2524.编写如下事件过程：private sub form_mousedown（button as integer，shift as integer，x as single，y as single）if shift=6 and button=2 thenprint "BBBB"end ifend sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（D）A.同时按下shift键和鼠标左键B.同时按下shift键和鼠标右键C.同时按下ctrl、alt键和鼠标左键D.同时按下ctrl、alt键和鼠标右键25.如果X是一个正实数，对X的第三位小数四舍五入的表达式是（B）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 )

（VB）第二次作业一、单项选择题1. Micrisift Access数据库文件的扩展名是（C）。A. dbfB. AccC. mdbD. db2.下列哪个符号能作为VB中的变量名（A）。A. AB7B. 7ABC. IFD. A[B]73.通过设置Shape控件的（A）属性可以绘制多种形状的图形A. ShapeB. BorderstyleC. FillstyleD. Style4.下面的程序的输出结果是(B )x=5For i = 1 To 20 Step 2x=x+i\5Next iPrint x, iA. 21 20B. 21 21C. 22 20D. 22 215.下列赋值语句中（C）是错误的。A. x＝x＋１B. x＝x＋yC. x＋y＝xD. x＝４＞６6.要设置标签框是否有边框，应设置（C）属性来实现。A. BackColorB. ForeColorC. BordeStyleD. Visible7.下面关于随机文件^[8]的描述，不正确的是：（B）A.每条记录的长度必须相同B.一个文件中记录号不必惟一C.可通过编程对文件中的某条记录方便地修改D.文件的组织结构比顺序文件复杂8.当运行程序时，系统自动执行启动窗体的（A）事件过程。A. LoadB. ClickC. UnLoadD. MinButton9.以下说法正确的是（D）A.通用过程可以出现在窗体模块和标准模块中B.不同模块中的通用过程可以重名C.同一标准模块中的通过过程可以同名D.不同标准模块中的通用过程不能同名10.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对（B）属性设置就即可。A. MaxButtonB. BorderstyleC. WidthD. MinButton11.当函数EOF()的返回值为真时，表示文件的指针指向（B）A.开头B.尾部C.最后一个字节D.最后一个记录12.将通用对话框CommonDialog1的类型设置为“另存为”对话框，该调用该控件的（C）方法。A. ShowOpenB. ShowColorC. ShowSaveD. ShowFont13.令A、B、C都是整型变量，A=3，B=4，C=5，下列表达式结果为TRUE的是（C）A. (A + B) \ C - 1 > 0B. + C * A \ B * B = 19C. (A - C) * Sqr(B) + B = 0D. A ^ 2 + B ^ 2 - C ^ 2 < 014.在下列关于对话框的叙述中，错误的是（A）：A.作为对话框窗体的Borderstyle、ControlBox、MaxButton和MinButton应分别设置为l、True、False和False。B.语句frmAbout．Show vbModeless，frmMain将fmAbout窗体显示为fmMain的无模式子窗体。C.可以将对话框分成两种类型：模式的和无模式。D.语句frmAbout．Show将frmAbout作为无模式对话框显示。15.下面关于变量的作用域，正确的描述是（B）。A.模块级变量的作用域为它所在的模块B.同一模块中不同级的变量不能同名C.在某一模块中所有过程外用Dim定义的变量为全局变量D.不同模块中定义的全局变量可以相同16.当鼠标移动时，有关MouseMove事件的说明正确的是（A）A. MouseMove事件不断发生B. MouseMove事件只发生一次C. MouseMove事件经过每个象素都会触发D.当鼠标指针移动得越快，则在两点之间触发的MouseMove事件越多17.使用RGB函数来设置颜色时，RGB(0, 0,255)是（C）A.白色B.红色C.蓝色D.黑色18. Line方法不能用来画（D）A.点B.线C.矩形D.圆19.若有数组说明语句为：Dim a(-3 To 8)则数组a包含元素的个数是（D）。A. 5B. 8C. 11D. 1220.当用鼠标拖动滚动块时触发（C）事件。A. MoveB. ChangeC. ScrollD. GotFocus21.下面子过程说明合法的是（D）。A. Sub f1（ByVal n％（））B. Sub f1（％）As integerC. Function f1％（f1％）D. Function f1（ByVal n％）22.语句Print 4 * 4 \ 4 / 4的输出结果是（D）A. 0B. 1C. 4D. 1623.下面关于过程作用域，错误的描述是（D）。A.全局级过程的作用域为整个工程B.在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上窗体名称C.在不同模块中定义的模块级过程可以同名D.在不同模块中定义的工程级过程不能同名24.为了建立一个随机文件，其中每条记录由多个不同的数据组成，应使用（A）存储记录。A.自定义类型B.数组C.字符串类型D.变体类型25.函数Int(Rnd*99+1)产生随机数的范围是(C )。A. [1,98]B. [1,99]C. [1，100]D. [1，101]

2011年春季学期可视化程序设计^[9]（VB）第三次作业一、填空题（本大题共28分，共7小题，每小题4分）1.在Print方法中，若用逗号分隔，则按__________格式输出各表达式的值，若用分号分隔，则按____________格式输出各表达式的值。2.若屏蔽框架上的控件对象，则需设置__________属性的值为False。3.在用Show方法后显示自定义对话框时，如果Show方法后带_________________________参数就将窗体作为模式对话框显示。4.结构化程序设计^[10]的三种基本结构是________________________。5.在mousedown和mouseup事件过程，当参数button的值为___1___、____2__、__4____时，分别代表鼠标的________________________键。6.与下列8e3×ln2数学式子对应的Visual Basic表达式是 __________。7.如果需要将窗体载入内存却不显示，需要将该窗体的________属性设置为False，再用__________语句装载。二、程序阅读题（本大题共36分，共6小题，每小题6分）1.若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？________________________Dim filename As StringDim str As StringCommonDialog1.Filter = "文本文件(*.TXT)|*.txt" CommonDialog1.Action = 1 filename = CommonDialog1.filename CommonDialog1.ShowColorForm1.ForeColor = CommonDialog1.ColorOpen filenameFor Input As #1Do While Not EOF(1)str = str + Input(1, #1)LoopForm1.Print strClose＃12.下面程序的功能是什么？________Private Sub Command1_Click()Dim s%, n%Dim a As String n = 0a = InputBox("Please input a number:")For s = 1 To Len(a)If (func(Val(Mid(a, s, 1)))) Thenn = n + 1 NextPrint nEnd SubPrivate Function func(x%) As BooleanIf (x Mod 2 = 0) Thenfunc = TrueElsefunc = FalseEnd IfEnd Function3.下面事件过程的功能是：输入n的值，求sum=1+2+…+n的值，在横线上填上适当的内容。________________________________________________________________Private Sub Command1_Click()Dim n%, i%, sum n=InputBox("n=") i=1: sum=0 20:If i>n Then GoTo 10Else(1)i=i+1(2)End If 10: Print "sum="; sumEnd Sub4.有如下事件过程，写出程序的功能（数学表达式）。

________________________________________________________________________________________________Private Sub Command1_Click()T=0M=1Sum =0DoT=T+MSum =Sum+TM=M+2Loop While M<=39Print“Sum =”；SumEnd Sub5.有下面一段程序，运行后单击Command4按钮，过3分钟后Text1中的内容是什么？________Public a As Integer Private Sub Form_Load()a = 0 End Sub Private Sub Command4_Click()Timer1.Enabled = 1Timer1.Interval = 1000 End SubPrivate Sub Timer1_Timer()Static a%a = a + 1If a Mod 10 = 0 Thenf1 aEnd If End SubStatic Sub f1(s%)a = a + 1s = 0Text1.Text = Str(a) End Sub6.使用情况语句^[11]改写下列事件过程。Private Sub Command1_Click()Dim score!, grade$score=InputBox("请输入一个学生的分数：")If score>=90 ThenGrade=”A”ElseIf score>=80 ThenGrade=”B”ElseIf score>=70 ThenGrade=”C”ElseIf score>=60 ThenGrade=”D”ElseGrade=”E”End IfPrint "该学生的分数等级为："; grade;End Sub

________

________________________

________

________________________

________

题目解答

答案

标准紧凑 Enabled vbModal 或 1_ 顺序结构、选择结构、循环结构左、右、中间 8*Exp(3)*Log(2) Visable Load 以选择的颜色作为窗体前景色，将一个文本文件显示在 Form1 窗体上判断一个数各位上的偶数个数（ 1 ） sum=sum+i （ 2 ） GoTo 20 程序的功能：程序用于计算数学表达等式为： 1 ＋ 22 ＋ 32 ＋ 42 ＋ … ＋ 202==2870 18 Private Sub Command1_Click() Dim score!, grade$ score=InputBox(" 请输入一个学生的分数： ") Select Case score Case Is>=90 grade="A" Case Is>=80 grade="B" Case Is>=70 grade="C" Case Is>=60 grade="D" Case Else grade="E" End Select Print " 该学生的分数等级为： "; grade; End Sub