VB期末考试试题(A、B卷)
大一vb期末考试试题及答案
大一vb期末考试试题及答案一、选择题（每题2分，共20分）1. Visual Basic 是由哪家公司开发的？A. 微软B. 苹果C. 谷歌D. 甲骨文答案：A2. 下列哪个不是Visual Basic的控件？A. TextBoxB. LabelC. ButtonD. ComboBox答案：D3. 在Visual Basic中，下列哪个关键字用于声明变量？A. DimB. FunctionC. SubD. Class答案：A4. 如果要创建一个用户界面，应该使用Visual Basic的哪个部分？A. 代码编辑器B. 属性窗口C. 设计视图D. 解决方案资源管理器答案：C5. 在Visual Basic中，哪个函数用于计算两个数的和？A. Sum()B. Add()C. Total()D. None of the above答案：D6. 下列哪个不是Visual Basic的事件？A. ClickB. LoadC. OpenD. Close答案：C7. 在Visual Basic中，如何使用MsgBox函数显示一个消息框？A. MsgBox("Hello, World!")B. Message("Hello, World!")C. Alert("Hello, World!")D. None of the above答案：A8. 在Visual Basic中，下列哪个是正确的条件语句？A. If condition ThenB. While condition DoC. For loop DoD. None of the above答案：A9. 下列哪个不是Visual Basic的数据类型？A. IntegerB. StringC. BooleanD. Float答案：D10. 在Visual Basic中，如何声明一个全局变量？A. Dim variable As StringB. Public variable As StringC. Private variable As StringD. Global variable As String答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字来声明一个函数。
大学_vb期末考试试题
VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是和（2）。
2、在VB中,最主要的两种对象是 (3）和（4）。
3、工程是构成应用程序文件的（5) 。
4、方法是VB提供的一种（6) ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___（8）____.7、可用窗体的___（9）_ 方法在窗体中显示文字.8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的（13) 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数，则使用（14）作为消息框的标题。
12、设x＝34。
58，语句Print Format（x,“000。
0”）的输出结果是（15） .13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。
14、设置窗体的（19）属性，可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句（20）。
二、选择题1、菜单控件只包括一个事件，即 (1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示）的Max属性所设置的是（2) .A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select ＊ Form student 中的＊表示 (3）。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 (4） .A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5) 。
vb期末考试试题和答案
vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
VB期末考试题A卷
X=X*1
i＝i十1
Loopwhile i<=n
Print x
End Sub
D)Private Sub Commandl_C1ick()<
n＝5：x＝1：i=1
Do
X=X*l
i=i十1
loop While i＞n
Print x
End Sub
（22）执行了下面程序后，组合框中数据项的值是（）
Private Sub Form_Click()
D)“人民共和”
(20)在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（）
A) Load
B)Show
C)Hide
D) Unload
(21)以下能够正确计算n!的程序是
A) Private Sub Commandl_ClicK()
n＝5:x＝1
Do
X=x*1
i＝i十1
i=1
Do While i<=Len(xStr) -3
tempStr=tempStr+Mid(xStr, i,1) +Mid(xStr, strLen -i+1, 1)
i=i+1
Loop
Pat=tempStr
End Function
A) abcdef
B) afbecd
C) fedcba
D) defabc
将显示一个输入对话框，在对话框的输入区中显示的信息是
A)TodayB)TomorrowC)YesterdayD)Day before yesterday
(12)设有语句open "c：\Test．Dat" For OutPut则以下错误的叙述是（）
VB期末考试题B卷
VB期末考试题B卷一、选择题每题2分，共50分（1）以下关于窗体的描述中，错误的是A)执行UnloadFoMl语句后，窗体Fonnl消失，但仍在内存中B)窗体的Ioad事件在加载窗体时发生C)当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D)窗体的Height、width属性用于设置窗体的高和宽（2）下列可作为V2sualBasic变量名的是（）A)A#A B)4A C)?xY D)constA（3）函数String(n，“str”)的功能是（）A)把数值型数据转换为字符串B)返回由n个字符组成的字符串C)从字符串中取出n个字符D)从字符串中第n个字符的位置开始取子字符串（4）表达式3∧2*2+3 MOD 10\4的值是（）A)18B)1C)19D)0（5）设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是（）A)time1 = #11:34:04 #B)time1 = Format(Time,"yy:mm:dd")C)time1 = #"11:34:04"#D)time1 = Format("hh:mm:ss",Time)（6）在窗体上画一个名称为Command1的命令按钮，编写以列程序：Private Sub Command1_Click( )Dim a As IntegerStatic b As Integera = a + bb = b + 4Print a,bEnd Sub程序运行后，单击该命令按钮三次，屏幕上显示的值是（）A)4 12B)0 4C)4 8D)8 12（7）Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（）A)属性、控件和方法B)属性、事件和方法C)窗体、控件和过程D)控件、过程和模块（8）下列程序段错误的是（）A)Dim a As Integera = array(1,2,3,4)B)Dim a(),b()a = array(1,2,3,4):b = aC)Dim a As Varianta = array(1,"asd",true)D)Dim a() As Varianta = array(1,2,3,4)（9）引用列表框（List1）最后一个数据项应使用的表达式是（）A)List1.List(List1.ListCount)B)List1.List(List1.ListCount-1)C)List1.List(ListCount)D)List1.List(ListCount-1)（10）在窗体上画一个名称为Command1的命令按钮，编写如下程序：Private Sub Command1_Click()Print pl(3,7)End SubPublic Function pl(x As Single,n As Integer) As Single If n=0 Thenpl=1ElseIf n Mod 2=1 Thenpl=x*x+nElseP1=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是（）A)2B)1C)0D)16（11）执行如下语句：a＝inutBox(”Today”，”TomorroW，”Yesterday”,"Day before yesterday" ,5) 将显示一个输入对话框，在对话框的输入区中显示的信息是A)Today B)Tomorrow C)Yesterday D)Day before yesterday(12)设有语句open "c：\Test．Dat" For OutPut 则以下错误的叙述是（）A)该语句打开C盘根目录下一个己存在的文件Test．DaB)该语句在C盘根目录下建立一个名为Test．Dat的文C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息(13) Sub过程与Function过程最根本的区别是（）A) Sub过程可以用Call语句直接使用过程名调用，而Function过程不可以B) Function过程可以有形参，Sub过程不可以C) Sub过程不能返回值，而Function过程能返回值D) 两种过程参数的传递方式不同(14)下列关于过程叙述不正确的是（）A)过程的传值调用是将实参的具体值传值递给形参B)过程的传址调用是将实参在内存的地址传递给形参C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D)无论过程传值调用还是过程传址调用，参数传递都是双向的（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（）A）Combo1.RemoveItem TextB）Combo1.RemoveItem2C）Combo1.RemoveItem 3D）Combo1.RemoveItemCombo1.Listcount（16）下列叙述中正确的是（）A) 在窗体的Form_Load事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出所定义的过程C) 在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名，但其D) 在调用过程时，所有局部变量被系统初始化为0或空字符串(17) 以下叙述中错误的是（）A) 在同一窗体的菜单项中，不允许出现标题相同的菜单项B) 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C) 程序运行过程中，可以重新设置菜单的Visible属性D) 弹出式菜单也在菜单编辑器中定义(18) 以下叙述中错误的是（）A) 在程序运行时，通用对话框控件是不可见的B) 在同一个程序中，用不同的方法(不同的作用如ShowOpen或ShowSave等）打开的通用对话框具有C) 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件D) 调用通用对话框控件的ShowColor方法，可以打开颜色对话框（19）设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（）A) “中华民国”B) “中国人民”C) “中共人民”D) “人民共和”(20) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（）A) LoadB) ShowC) HideD) Unload(21)以下能够正确计算n!的程序是A) Private Sub Commandl_ClicK()n＝5:x＝1DoX=x*1i＝i十1Loop While i＜nPrint xEnd SubB) Private Sub Commandl_Click()n＝5: x＝1：i=1DoX＝X*1i＝i十1Loop While i＜nPrint xEnd SubC)Private Sub Commandl_Click()n=5：x＝1：i＝1DoX=X*1i＝i十1Loop while i<=nPrint xEnd SubD)Private Sub Commandl_C1ick()<n＝5：x＝1：i=1DoX=X*li=i十1loop While i＞nPrint xEnd Sub（22）执行了下面程序后，组合框中数据项的值是（）Private Sub Form_Click()For i=1 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd SubA)1 5 6B)1 3 5C)4 5 6D)2 4 6(23) 下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFirSt="abcdef"Print Pat(FirStr)End SubPrivate Function Pat(xStr As String) As StringDim tempStr As String, strLen As IntegertempStr=""strLen=Len(xStr)i=1Do While i<=Len(xStr) -3tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1LoopPat=tempStrEnd FunctionA) abcdefB) afbecdC) fedcbaD) defabc（24）下面关于多重窗体的叙述中，正确的是（）A)作为启动对象的Main 子过程只能放在窗体模块内B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C)没有启动窗体，程序不能执行D)以上都不对(25)在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的命令按钮。
vb程序设计期末试题B卷及答案
《VB 程序设计》试题 第1页（共3页） 《VB 程序设计》试题 第2页（共3页）《VB 程序设计》 B 卷考试形式：闭卷 考试时间：100分钟所有答案均要写在答题纸上，写在试卷上无效一、选择题(每题3分，共24分)1.对于具有背景色的对象，改变其背景色是通过改变对象的_____属性实现的。
A. font B. backcolor C. forecolor D. caption2.事件过程是指____时所执行的代码 A. 运行程序 B.使用控件 C. 响应事件 D. 设置属性3.如果参与运算的两个表达式均为true 时，结果为true ，该逻辑运算符是_____。
A. And B. Or C. Not D. Xor4.下列_____属性决定控件的拖放模式。
A. mousepointer B. autoredraw C. dragmode D. caption5.调用列表框控件的_____方法，可清除列表框中的所有列表项。
A. clsB. removeitemC. clearD.remove6.通过_____函数，可将指定的图形赋值给对象的picture 属性。
A. loadimage B. imageload C. loadpicture D. pictureload7.下列_____语句或函数，不能读出顺序文件中的内容。
A. Get #B. Line Input #C. Input #D. Input()8.下列命令中_____可实现对顺序文件的写操作。
A. Print B. Line Input C. Input D. Put二、填空题（每空2分，共30分）9．工程资源管理器主要包含的三种文件是_____ 、____、_____。
10． _____ 属性决定控件上显示的内容，命令按钮接收的时间是____事件，____方法的作用是在对象上输出信息。
11．常量声明使用关键字_____。
vb期末考试试题及答案百度文库
vb期末考试试题及答案百度文库一、单项选择题（每题2分，共20分）1. VB中，哪个关键字用于声明变量？A. DimB. SetC. CallD. Function答案：A2. 下列哪个选项不是VB的数据类型？A. IntegerB. StringC. BooleanD. Array答案：D3. VB中，哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. 在VB中，如何表示“不等于”？A. =B. ==C. <>D. !=答案：C5. VB中，哪个关键字用于循环结构？A. ForB. NextC. ToD. Loop答案：A6. VB中，哪个函数用于将字符串转换为大写？A. StrConvB. LCaseC. UCaseD. Trim答案：C7. VB中，哪个语句用于退出子程序？A. Exit SubB. End SubC. ReturnD. Exit Function答案：A8. VB中，哪个关键字用于声明函数？A. FunctionB. SubC. DimD. Const答案：A9. VB中，哪个关键字用于声明常量？A. DimB. ConstC. PrivateD. Public答案：B10. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D二、填空题（每题3分，共15分）1. 在VB中，使用________关键字可以定义一个类。
答案：Class2. VB中，________函数用于获取当前时间。
答案：Time3. VB中，________关键字用于定义一个接口。
答案：Interface4. VB中，________关键字用于定义一个事件。
答案：Event5. VB中，________关键字用于定义一个属性。
答案：Property三、简答题（每题5分，共20分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，其中程序的执行流程由外部事件（如用户操作、消息、定时器等）触发，而不是按照预先定义的顺序执行。
大一vb期末考试试题及答案
大一vb期末考试试题及答案一、选择题（每题2分，共20分）1. VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. 3variableD. variable-2答案：B2. 在VB中，以下哪种数据类型用于存储字符串？A. IntegerB. StringC. DoubleD. Date答案：B3. VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If x > 0 End IfD. If x > 0 Then End答案：A4. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 1 To 10 Step 2D. All of the above答案：D5. VB中，以下哪个函数用于计算一个数的平方？A. SqrB. PowC. AbsD. Round答案：B6. 在VB中，以下哪个是数组的正确声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(10) As Integer = New Integer(10)答案：A7. VB中，以下哪个是正确的函数调用方式？A. MsgBox("Hello World")B. MessageBox("Hello World")C. Message("Hello World")D. Alert("Hello World")答案：A8. 在VB中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Sub MySub() As IntegerD. Function MySub() As Integer答案：A9. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Load()B. Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs)C. Private Sub Form_Load(ByVal sender As Object)D. Private Sub Form_Load(ByVal e As EventArgs)答案：A10. 在VB中，以下哪个是正确的窗体属性？A. NameB. TextC. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，用于声明全局变量的关键字是________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB期末考试试题（A卷） 一、 选择题 1.要改变控件的宽度，应修改该控件的（ B ）属性。 A、TOP B、width C、Left D、Height 2.将命令按钮Command1设置为不可见，应修改该命令按钮的（ A ）属性。 A、Visible B、Value C、Caption D、Enabled 3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（ C ）事件。 A、Scroll B 、KeyDown C、change D、Dragver 4.（ D ）对象具有clear方法。 A、图片框 B、窗体 C、复选框 D、列表框 5.中心定义图片框控件的坐标系统，可采用该图片框的（ A ） A、scale B、Scale X C、scale Y D、setFocus 6.将通过对话框CommdDialog1的类型设置成另存为对话框，可调用该控件的（ B ）方法。 A、Showopen B、Showsave C、ShowColor D、ShowFont 7.形状控件所显示的图形不可能是（ D ） A、圆 B、椭圆 C、圆角正方形 D、等边三角形 8.由Fro K=10 TO oslept 3：next K循环语句控件的循环次数是（ B ） A、12 B、0 C、-11 D、-10 9.下列数据类型中，占用内存最大值是（ D ） A、Boolwan B、Byte C、Lnteger D、Single 10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ）属性决定了该图片的颜色。 A、BackColro B、Forelklor C、Fillcolor D、Dlawstyle 一、 选择题 1.要在垂直位置上移动控件，应利用控件的（ C ）属性。 A、Left B、Width C、Top D、Height 2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（ D ）属性为False。 A、Txet B、Enabled C、Visible D、Multline 3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。 A、KeyPress B、KeyDown C、Click D、Keyllp 4.一下（ D ）对象不具有Clear方法。 A、列表框 B、组合框 C、剪贴框 D、图片框 5.软件列表中设定“文件列表”显示文件类型应改该控件的（ D ）属性。 A、Path B、FileName C、Name D、Patterw 6．组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为（ B ） A、0 B、1 C、2 D、3 7.下列可调整图片框的大小以适合图片的属性是（ B ） A、Stretch B、autosize C、picture D、oledropmode 8.要想清除文本框中的内容则可利用（ A ）进行。 A、Caption B、Text C、Clear D、Cls 9.下列表达式中，其值为0的是（ C ） A、7/9 B、7mod 15 C、7\9 D、15 mod 9 10.求以10 为底X的常用对数的表达式为（ A ） A、LoG（X）/LoG（10） B、LN（X） C、LoG（X）/LoG(E) D、LoG（X）
二、 填空题（每空2分，共20分） 1．代数式 的Visual Basic 表达式是 sqr((x^3+exp(-6)*log(y))*atn(a*3.14159/180)/(x*x+y*y)) 2.设x=2,y=4,a=4,b=6,表达式 （a>x Xor by3．a 和b 中有仅只有一个不为1，相应的Visual Basic逻辑表达式为 a<>1 xor b<>1。 4．把条件为1£ x £ 5 写成VB表达式为: x>=1 and x<=5。 5. 语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是：在窗体上绘制以角点为（2000，2000）和（4000，3500）的红色实心的矩形。 6．用随机函数产生10个100～500的整数，其表达可为：for I=1 to 10 a(i)=100+int(400*rnd) next I。 7．当x=2时，语句if x=2 then Print x=2 的结果值是 True。 8. Static Private Sub cmdSum_Click() Dim Sum as integer Sum=2*Sum+1 End Sub 问：第三次单击命令按钮cmdSum后，Sum的值为： 7。 9．声明单精度常量g(重力加速度)代表9．8可写成：const g=9.8。 10．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:\windows\notepad.exe,可在程序代码窗口必要的地方添加语句：shell(“c:\windows\notepad.exe”)。 三、编程题 1随机产生n个两位正整数（n由对话框输入，切n>0)。求出其中的偶数之和，并在标签框Labol1上显示。 程序写在命令按钮Command1的click事件中。 Private Sub Command1_Click() Dim n As Integer Dim i As Integer, sum As Long n = Val(InputBox("Please input a integer", "Input N value")) For i = 1 To n rnddat = (10 + Int(90 * Rnd)) If rnddat Mod 2 = 0 Then sum = sum + rnddat End If Next i Label1.Caption = sum End Sub 2由输入对话框中输入100个数值数据，放入数组a，将其 中的整数放入数组b，然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。 注：程序写在窗体form的click事件上。 Private Sub Form_Click() Dim a(1 To 100) Dim b() as integer Dim i As Integer, j As Integer, k As Integer, pos As Integer,temp as integer For i = 1 To 100 a(i) = Val(InputBox("Please input data")) If a(i) = Int(a(i)) Then j = j + 1 ReDim Preserve b(j) b(j) = a(i) End If Next i For k = 1 To j - 1 pos = k For m = k To j If b(m) < b(pos) Then pos = m Next m If k <> pos Then temp = b(k) b(k) = b(pos) b(pos) = temp End If Next k For k = 1 To j If k Mod 5 = 0 Then Print b(k) Else Print b(k); Next k End Sub
四、 程序阅读题（每小题6分，共18分） 1．程序1： Dim Y As Integer Private Stub Command_Click() Dim X As Integer X=1 Y=1 Call AA(Y+1) Z=BB(X) Print X, Y, Z End Sub Private Sub AA(ByVal Z As Integer) Y = Z + X Z = X + Y End Sub Private Function BB (ByRef Y As Integer) Y = Y + 1 BB=X + Y End Function 结果： （ 2 2 2 ） 2．程序2： private sub Form_click() N = 3 Dim A(3，3) As Integer For I = I To N For J = I To N A(I, J) = (J – l) * N + I Next J Next I For I = 2 To N For J = 1 To I – 1 TEMP = A(I, J) A(I, J) =A(J, I) A(J, I) = TEMP Next J Next I For X = 1 To N Print X, A(X, N +X - I), A(X, X) Next X End Sub 结果：（ 1 0 4 2 7 8 3 11 12 ) 3．程序3： Private Sub Form_click() Dim f1 As Integer,f2 As Integer,f3 As Integer Open "c:\a1.dat"For Output As #1 f1=2:f2=3 Print #1,"NO."; 3,f1 Print #1,"NO."; 4,f2 For I=5 To 7 f3=f1+f2 Print #1,"NO.";I,f3 f1=f2 f2=f3 Next I Close #1 End Sub 写出文件a1.dat的最终结果。 （ NO.3 2
NO.4 3 NO.5 5 NO.6 8 NO.7 13）
五、 程序填空题（每小题9分，共18分）1.从计算机输入三个数,找出中间数 Private Sub FindMidNum( ) X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”) Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER)