下载文档原格式
vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。
vb期末试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 以下哪个选项是正确的VB变量声明方式？A. Dim varNameB. varName As IntegerC. Integer varNameD. Both A and B答案：D3. VB中的For循环结构不包括以下哪个部分？A. 初始化表达式B. 循环条件C. 迭代表达式D. 循环体答案：D4. 在VB中，以下哪个是正确的数组声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr As Integer(0 To 10)C. Dim arr(10)D. Both A and C答案：A5. VB中，以下哪个是正确的函数定义？A. Function myFunction() As IntegerB. Sub myFunction() As IntegerC. Function myFunction() IntegerD. Both A and C答案：A6. 以下哪个是VB中的事件处理程序的正确声明方式？A. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickB. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)C. Private Sub Button1_Click()D. Both A and C答案：A7. 在VB中，以下哪个不是控件的属性？A. TextB. FontC. ClickD. Size答案：C8. VB中，以下哪个是正确的类定义？A. Class MyClassB. Type MyClassC. Structure MyClassD. Both A and B答案：A9. VB中，以下哪个是正确的方法调用？A. myMethod(10)B. myMethod = 10C. myMethod += 10D. Both A and C答案：A10. 在VB中，以下哪个是正确的条件语句？A. If x > 0 ThenB. If x > 0C. If (x > 0)D. All of the above答案：D二、填空题（每空2分，共20分）1. 在VB中，使用 ______ 语句可以定义一个类。
vb期末试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. CallC. SubD. Function答案：A2. 下列哪个控件不是Visual Basic的标准控件？A. TextBoxB. ComboBoxC. ListBoxD. Chart答案：D3. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. DoubleD. All of the above答案：D4. Visual Basic中的事件处理程序通常使用什么关键字开始？A. SubB. FunctionC. EventD. Procedure5. 在Visual Basic中，以下哪个选项不是窗体的属性？A. NameB. CaptionC. TextD. Height答案：C6. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D7. Visual Basic中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ProcedureD. Method答案：B8. 在Visual Basic中，以下哪个选项是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray() As IntegerC. Dim myArray As Integer(5)D. Dim myArray As Integer()答案：A9. 在Visual Basic中，以下哪个选项是正确的条件语句？B. ElseC. ElseIfD. All of the above答案：D10. Visual Basic中，以下哪个选项不是文件访问模式？A. OpenB. BinaryC. AppendD. Close答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
vb期末考试题库及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. Both A and BD. None of the above答案：C2. VB中，用于声明变量的关键字是？A. DimB. DeclareC. VarD. Let答案：A3. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C4. 如果要声明一个整型变量并初始化为5，正确的语句是？A. Integer x = 5B. Dim x As Integer = 5C. Dim x = 5D. x = 5答案：B5. VB中，哪个控件用于显示文本，并且用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. WhileC. Both A and BD. None of the above答案：C7. VB中，以下哪个语句用于结束当前程序的执行？A. EndB. ExitC. StopD. All of the above答案：D8. 在VB中，以下哪个选项是正确的条件判断语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C9. VB中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TodayD. Time答案：C10. 在VB中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个字符型变量可以使用关键字________。
答案：Dim2. VB中，数组的声明格式为________。
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
vb试题及答案期末一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. SubD. Function答案：A2. VB中，哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Mid答案：A3. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. BooleanD. All of the above答案：D4. VB中，哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B5. VB中，哪个函数用于将字符串转换为小写？A. LCaseB. UCaseC. StrConvD. Trim答案：A6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. Do WhileC. For NextD. All of the above答案：D7. VB中，哪个关键字用于创建一个数组？A. DimB. ReDimC. EraseD. Option Base答案：A8. VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Timer答案：B9. 在VB中，以下哪个选项是正确的文件访问模式？A. Open For InputB. Open For OutputC. Open For RandomD. All of the above答案：D10. VB中，哪个关键字用于退出一个循环？A. ExitB. BreakC. ContinueD. Return答案：A二、填空题（每题3分，共30分）1. VB中，声明一个整型变量并赋值为100的语句是________。
答案：Dim myVar As Integer = 1002. 要将一个变量的值增加10，可以使用________运算符。
答案：+=3. 在VB中，________函数用于输出信息到即时窗口。
vb期末试题及答案一、选择题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. SetC. CallD. Sub答案：A2. 下列哪个选项不是VB中的控件？A. TextBoxB. LabelC. ButtonD. Excel答案：D3. VB中，用于执行循环操作的关键字是：A. ForB. IfC. ElseD. While答案：A4. VB中，用于打开文件的函数是：A. OpenB. CloseC. PrintD. Write答案：A5. VB中，用于定义过程的关键字是：A. FunctionB. SubC. DimD. Const答案：B6. VB中，用于定义函数的关键字是：A. FunctionB. SubC. DimD. Const答案：A7. VB中，用于定义常量的关键字是：A. DimB. ConstC. FunctionD. Sub答案：B8. VB中，用于定义数组的关键字是：A. DimB. FunctionC. ConstD. Sub答案：A9. VB中，用于判断条件的关键字是：A. IfB. ForC. WhileD. Dim答案：A10. VB中，用于退出循环的关键字是：A. ExitB. EndC. StopD. Loop答案：A二、填空题（每题2分，共20分）1. VB中，声明一个整型变量a，可以使用关键字________。
答案：Dim2. VB中，声明一个字符串变量str，可以使用关键字________。
答案：Dim3. VB中，声明一个布尔型变量flag，可以使用关键字________。
答案：Dim4. VB中，声明一个数组变量arr，可以使用关键字________。
答案：Dim5. VB中，声明一个常量PI，可以使用关键字________。
答案：Const6. VB中，声明一个函数sum，可以使用关键字________。
答案：Function7. VB中，声明一个过程printData，可以使用关键字________。
vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。
VB期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假定有以下程序段, 则执行结束后k的值是：（ A ）For i =1 To 3k = i+2Next iA． 5 B．4 C． 3 D．62. 以下控件中可以作为容器控件的是（ B ）A．Image图像框控件 B．PictureBox图片框控件C．TextBox文本框控件 D．ListBox列表框控件3.关于Image控件和PictureBox控件的说明，其中错误的是（ B ）A．Image控件和PictureBox控件都有Picture属性B．Image控件和PictureBox控件都支持Print方法C．Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中D．Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为( D )A．5 B．500 C．10 D．5000 5.能显示窗体的方法是（ B ）。
A．Visible B．Show C．New D．Open6.MsgBox函数中有4个参数，其中必须写明的参数是（ C ）A．指定显示按钮的个数 B．对话框的标题 C. 提示信息 D. 所有参数都是可选的7.你若在代码窗口中编写：msgbox(“AAAA”,vbokonly,”BBBB”)语句后，所产生的信息框的标题是（ C ）A．AAAA B．空 C．BBBB D．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（D ）方法。
A．GotFocus B．LostFocus C．KeyPress D．SetFocus9.为了把焦点移到某个指定的控件，所使用的方法是（ A ）A．SetFoeus B．Visible C．Refresh D．GetFocus10.语句if 3*4>=10 thena=1elsea=2end if执行后，a的值为（ D ）。
vb期末测试题及答案一、单选题（每题2分，共20分）1. VB中，以下哪个是合法的变量名？A. 2variableB. Variable2C. Variable-2D. Variable 2答案：B2. 在VB中，以下哪个是正确的字符串连接运算符？A. +B. &&C. &D. ||答案：C3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个循环结构用于重复执行代码块，直到满足某个条件？A. For...NextB. Do...LoopC. While...WendD. If...Then答案：B5. VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. StaticD. Public答案：B6. 在VB中，以下哪个是正确的数据类型用于存储日期？A. DateB. DateTimeC. StringD. Integer答案：B7. VB中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Procedure MySub()D. Method MySub()答案：A8. 在VB中，以下哪个是正确的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(10) As IntegerD. Dim arr As Integer(10)答案：C9. VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. When...Then...ElseC. If...Then...End IfD. If...Then...Else...End答案：C10. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Load()B. Public Sub Form_Load()C. Private Function Form_Load()D. Public Function Form_Load()答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是________。
期期末末考考试试题题一、单项选择题（共10分）1．在代码中引用一个控件时，应使用控件的（ ）属性。
A ．CaptionB ．NameC ．TextD ．Index2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ ）的值为“假”。
A ．x+a <= b-yB ． x > 0 AND y < 0C ．a = b OR x>yD ． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ ）。
A ．（10，80）B ．（10，81）C ．[10，80]D ．[10，81]4．函数Sgn(3.1416)的返回值是（ ）。
A ．-1B ．0C ．1D ．以上都不对5．67890属于（ ）类型数据。
A ．整型B ．单精度浮点数C ．货币型D ．长整型6．下列变量名中正确的是（ ）。
A ．3SB ．PrintC ．Select My NameD ．Select_17．下列赋值语句（ ）是有效的。
A ．sum = sum -sumB ．x+2 = x + 2C ．x + y = sumD ．last = y / 08．以下的控件或方法具有输入和输出双重功能的为（ ）。
A ．PrintB ．TextboxC ．OptionbuttonD ．Checkbox9．若要获得列表框中被选中的列表项的内容，可以通过访问（ ）属性来实现。
A ．NameB ．ListIndexC ．ListCountD ．Text10．下列代码的运行结果为（ ）。
Private Sub command1_click()Dim m(10)For k = 1 To 10m(k) = 11 – knext kx = 5Print m(2 + m(x))End SubA ．2B ．3C ．4D ．5二、填空题（10分）1． 写出整数n 能同时被13和17整除的Basic 表达式 。
2． 代码窗口中有两个下拉列表框：左侧是 列表框，右侧是过程列表框。
3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual ” 的Basic 表达式 。
4．函数Len(“abcdef ”)的返回值是 。
5．设a = 2，b = 5，c = -2，d = 100，则a > b >= c AND a < b >= d 的值为 。
6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True 来实现。
7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic 的语句分隔符为 。
8．要强制显式声明变量，使用__________语句完成。
9．在VB 中，用户定义常量使用 语句，声明变量使用语句。
三、将下列数学表达式转换为VB 表达式。
（6分）1．a 2+2ab+b 2 _________________________2．43y x __________________________3．8e x ln10 __________________________4．2sin(450)cos(450) _______________________________5．222z y x zy x ++++ ___________________________________________6．)1ln(ba b a -++___________________________________________四、判断题，正确打“√”，错误打“×”（10分）1．在VB中，控件的事件只能通过用户的操作触发。
（）2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
（）3．保存工程时，窗体文件和工程文件的文件名不能相同。
（）4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
（）5．同一过程中，数组和简单变量可以同名。
（）6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
（）7．代码Const Number1=15：Number1=10合法。
（）8．允许将块If-Then语句结构中的所有语句都写在一行上（）9．定义数组语句Dim a(b) As Integer 是正确的（）10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
（）五、根据题意，将下列程序补充完整。
（16分）1．产生20个[10，100] 之间的随机整数，每行输出10个数据。
Private Sub command1_click()Dim a(1 To 20) As IntegerRandomizei = 0Do While i < 20i = i + 1a(i) = ( )If （）ThenPrint a(i);End IfIf i = 10 Then Print a(i)If i > 10 Then Print a(i);LoopEnd Sub2．打印九九乘法表Private Sub command1_click()For i = 1 To 9For j = 1 To 9Print （）Next jPrint（）End Sub3．判断一个数是否素数Private Sub command1_click()x = InputBox("请输入一个整数")flag = 1For i = 2 To （ )If x Mod i = 0 Thenflag = 0End IfNext iIf （）Then Print x; "是素数" Else Print x; "不是素数"End Sub4．利用数组输出Fibonacci数列的前15项。
该数列的第1项和第2项为1，其余各项均为其前两项之和。
Private Sub Command1_Click()（）f(1) = 1 : f(2) = 1List1.AddItem f(1) : List1.AddItem f(2)For i = 3 To 15f(i) = （ )List1.AddItem f(i)Next i六、写出下面程序的输出结果。
（每题3分，共18分）1． Private Sub command1_click()x = InputBox("enter x") ' x 的输入值为-8Select Case Sgn(x) + 2Case 1Print "y="; x ^ 2 + 1Case 2Print "y="; x - 4Case 3Print "y="; x ^ 3 + 100End SelectEnd Sub2．Private Sub command1_click()Dim a As String, b As String, c As String, e As Stringa = "Z heng Z hou"b = "Z hong Yuan G ong Xue Yuan"c = a + " " + bd = Left(a, 1) + Mid(a, 7, 1)e = Left(b, 1) + Mid(b, 12, 1)Print cPrint d; eEnd Sub3．设有Sub过程：Private Sub p1(x As Integer, ByVal y As Integer)x = 4 ：y = 5 ：z = 6则如下程序段的运行结果是:Private Sub Command1_Click()Dim x As Integer, y As Integerx = 1: y = 2: z = 3Print x, y, zCall p1(x, y)Print x, y, zEnd Sub4．Private Sub command1_click() k = 0For i = 1 To 3k = k + 1a = i * i * kPrint a;Next iEnd Sub5．Private Sub command1_click() Dim a(5, 5) As IntegerFor i = 1 To 5For j = 1 To 5a(i, j) = i * 2 + jPrint a(i, j);Next jPrintEnd Sub6．设有Function过程:Private Function f1(b, a)a = a * a:b = b * bf1 = a - bEnd Function则如下程序段的运行结果是什么？Private Sub command1_click()a = 4:b = 3a = f1(a, b)Print aEnd Sub七．编程题（共30分）注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；其他学生做第1、2、3、4 小题。
1．给出一个百分制的成绩，要求输出成绩的相应等级。
（7分）90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。
２．求n!,n由键盘输入。
（7分）３．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。
（8分）４．产生并输出一个6×6的二维数组A：（8分）（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。
（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。
5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。
（8分）VB试题答案及评分标准一、单项选择题（每题1分，共10分）1．B 2．A 3．C 4．C 5．D6．D 7．A 8．B 9．D 10．B二、填空题（每空1分，共10分）1．n Mod 13=0 And n Mod 17=01、对象3．LEFT(“Visual Basic 6.0”,6)4．65．False6．Autosize7．： 8．Option Explict 9．Const Dim三、将下列数学表达式转换成VB表达式（每题1分，共6分）1、a^2+2*a*b+b^22、x^(1/3)*y^(1/4)3、8*exp(x)*log(10)4、2*sin(3.1416/4)*cos(3.1416/4)5、(x+y+z)/sqr(x^2+y^2+z^2)6、l og(1+abs((a+b)/(a-b)))四、判断题（每题1分，共10分）1．× 2．√ 3．× 4．√ 5．×6．√ 7．× 8．× 9．× 10．√五、根据题意，将下列程序补充完整（每空1分，共10分）１．（1） int(rnd*91)+10 （2） I<10２．（1） i*j （2） next i３．（1）int(sqr(x))或者x-1 （2） flag=1４．（1）dim f(15) as integer （2）f(I-1)+f(I-2)六、写出下面程序的输出结果（每题4分，共24分）1、y=652、Z heng Zhou Zhong Yuan Gong Xue Yuan 2分ZZZG 2分3．1 2 34 2 34．1 8 275．3 4 5 6 75 6 7 8 97 8 9 10 119 10 11 12 1311 12 13 14 156．-7七、编写程序1. private sub command1_click()dim x as integer,grade as string 1分x=text1.text 1分select case x 4分case 90 to 100grade=”A”case 80 to 89grade=”B”case 70 to 79grade=”C”case 60 to 69grade=”D”case 0 to 59grade=”E”case elsemsgbox “请重新输入”end selectprint “该学生成绩为”+grade 1分 end sub2．Private Sub command1_click()Dim n as integer,f as long 1分n=text1.text 1分f=1for I=1 to n 3分f=f*Inext Itext2.text=f 2分end sub3． Private Sub Command1_Click()Dim a(1 To 20) As Integer ' 1分RandomizeFor i = 1 To 20 2分a(i) = Int(Rnd * 100)Print a(i);PrintFor i = 1 To 19 3分For j = i + 1 To 20If a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iFor i = 1 To 20 2分Print a(i);Next iEnd Sub4． Private Sub Command1_Click()Dim a(1 To 6, 1 To 6) As Integer ' 1分Dim aver As SingleRandomizeFor i = 1 To 6 3分 For j = 1 To 6If i = j Or i + j = 7 Thena(i, j) = 1Elsea(i, j) = Int(Rnd * 30)End IfPrint a(i, j);Next jNext iPrintMax = 0: Min = 30 4分For i = 1 To 6s = 0For j = 1 To 6s = s + a(i, j)Next javer = s / 6If aver > Max Then Max = aver: row_max = IIf aver < Min Then Min = aver: row_min = iNext iPrint row_max, row_minEnd Sub5． Private Sub Command1_Click()Dim i As Integer, c As IntegerDim s As IntegerFor i = 1 To 100 4分s = s + iIf i Mod 17 = 0 Then c = c + 1Next iPrint "1+2+...+100="; s 2分 Print "能被17整数的数据有"; c; "个" 2分End Sub6． Private Sub Command1_Click()Dim x As Integerx = InputBox("x=") 1分Print x;Max = x: Min = x: s = x 2分For i = 2 To 10 3分 x = InputBox("x=") ：Print x;s = s + xIf x > Max Then Max = xIf x < Min Then Min = xNext iPrint s / 10 1分Print Max, Min 1分End Sub。
