VB程序设计考试题库——考试专用
vb程序设计试题及答案
vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，下列哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. VB中用于声明变量的关键字是？A. DimB. DeclareC. SetD. All of the above答案：A3. 在VB中，下列哪个选项是正确的循环语句？A. ForB. DoC. WhileD. All of the above答案：D4. VB中用于打开文件的函数是？A. OpenB. CloseC. WriteD. Read答案：A5. 在VB中，下列哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：A6. VB中用于创建新窗体的语句是？A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案：A7. VB中用于声明常量的关键字是？A. ConstB. DimC. StaticD. Option答案：A8. 在VB中，下列哪个选项是正确的数组声明？A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案：A9. VB中用于结束程序的语句是？A. EndB. ExitC. CloseD. All of the above答案：B10. VB中用于捕获异常的语句是？A. Try...CatchB. On ErrorC. CatchD. All of the above答案：B二、填空题（每题2分，共20分）1. 在VB中，声明一个名为myVar的变量，其类型为字符串，应该使用语句________。
答案：Dim myVar As String2. VB中，用于定义一个名为myFunction的函数，返回值为整数，应该使用语句________。
大学vb考试题库及答案
大学vb考试题库及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. Variable2C. variable_2D. Variable!答案：B2. Visual Basic中，以下哪个是正确的整型常量？A. 123.45B. 0x1AC. 1.2E3D. 0.1答案：B3. 以下哪个是Visual Basic中的保留关键字？A. MyVarB. DimC. VarD. MyFunction答案：B4. 在Visual Basic中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Sub MySub(x As Integer)D. Function MySub(x As Integer) As Integer答案：C5. Visual Basic中，以下哪个是正确的数组声明？A. Dim MyArray(10)B. Dim MyArray(0 To 10) As IntegerC. Dim MyArray() As Integer = New Integer(10)D. Dim MyArray(10) As Integer答案：B6. 在Visual Basic中，以下哪个是正确的条件语句？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"End If7. Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iLoopC. While i < 10Print ii = i + 1End WhileD. Do While i < 10Print ii = i + 1Loop8. 在Visual Basic中，以下哪个是正确的函数调用？A. Call MyFunction(5)B. MyFunction 5C. MyFunction(5)D. MyFunction Call 5答案：C9. Visual Basic中，以下哪个是正确的事件处理程序？A. Sub Form_Click()End SubB. Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)End SubC. Sub Form_Click(ByVal sender As Object)End SubD. Sub Form_Click(ByVal e As EventArgs)End Sub答案：B10. 在Visual Basic中，以下哪个是正确的窗体属性？A. Me.Caption = "My Form"B. Me.Text = "My Form"C. = "My Form"D. Me.Title = "My Form"答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的正确语法是：Dim ________ As Integer。
vb考试试题和答案
vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。
**答案：Integer**2. VB中，用于定义一个函数的关键字是________。
**答案：Function**3. VB中，用于定义一个子程序的关键字是________。
VB程序设计考试题库——考试专用
程序设计题1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数〞或"零"。
2、题目：(事件)单击窗体。
(响应)求200~300之间既能被3整除又能被7整除的数。
并求出所有数之和存入变量SUM中3、题目：单击窗体。
(响应)S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。
4、题目：(事件)单击窗体。
(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。
5、题目：(事件)双击窗体。
(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚〕，求出其所有的换法，把结果输出在窗体上。
将所有的换法的数目存入变量N中6、题目：单击窗体。
)求1!+2!+3!+4!+5!并将结果输出到窗体上。
结果存入变量S中7、题目：(事件)单击窗体。
(响应)生成一个一维数组(10个数组元素依此为：' 15、23、72、43、96、23、3、65、88、17写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。
将最大值，最小值，平均值分别存入变量Ma*,Min,Aver中8、题目：(事件)单击窗体。
(响应)在窗体上输出100~200之间的所有合数。
求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。
9、题目：(事件)单击窗体。
(响应)求10~20之间所有素数的乘积并输出在窗体上。
将结果存入变量L 中。
10、题目：(事件)单击窗体。
(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。
将结果存入变量J中。
1题n = InputBo*("输入一个自然数")If n > 0 Thenresult = "正数"ElseIf n < 0 Thenresult = "负数"ElseIf n = 0 Thenresult = "零"End IfMsgBo* "输入的数据" & n & "为：" & result2题Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNe*tPrint sum3题Dim i As Integers = 0For i = 1 To 10s = s + 1 / (i ^ i)Ne*tPrint (s)4题Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10s = s + i / jm = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + mNe*t5题Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNe*tNe*tNe*t6题Dim i, j, k As IntegerFor i = 1 To 5k = 1For j = 1 To ik = k * jNe*ts = s + kNe*tPrint (CStr(s))7题Dim a(9) As IntegerDim i, s As Integera(0) = 15：a(1) = 23：a(2) = 72 a(3) = 43：a(4) = 96：a(5) = 23 a(6) = 3：a(7) = 65：a(8) = 88a(9) = 17：ma* = a(0)：min = a(0) s = 0For i = 0 To 9If a(i) > ma* Thenma* = a(i)End IfIf a(i) < min Thenmin = a(i)End Ifs = s + a(i)Ne*taver = Int(s / 10)Print (CStr(ma*))Print (CStr(min))Print (CStr(aver))8题Dim i, j, s As IntegerFor i = 100 To 200For j = 2 To Sqr(i)If (i Mod j) = 0 ThenPrint (CStr(i))sum = sum + iE*it ForEnd IfNe*tNe*tPrint sum9题Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNe*tIf b = False Thenl = l * iEnd Ifb = FalseNe*tPrint Str(l)10题Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Then j = j - 1 / iEnd IfNe*tPrint j11、题目： (事件)单击窗体。
vb考试试题题库及答案
vb考试试题题库及答案VB（Visual Basic）是一种由微软公司开发的编程语言，广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案，供参考：一、单选题1. 在VB中，以下哪个是正确的数据类型？- A. Integer- B. Real- C. String- D. All of the above答案：D2. VB中的“Sub”过程与“Function”过程的区别是什么？- A. Sub过程可以返回值，Function过程不能- B. Function过程可以返回值，Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案：B3. 在VB中，以下哪个是正确的变量声明方式？- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案：C二、多选题1. VB中的控件可以具有哪些属性？- A. Name- B. Caption- C. Font- D. All of the above答案：D2. VB中，以下哪些是事件驱动的编程语言的特点？- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案：A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案：错误2. 在VB中，可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案：正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案：正确四、简答题1. 简述VB中的事件和方法的区别。
答案：事件是用户或系统触发的动作，如点击按钮、键盘输入等。
方法是一种过程，可以包含代码来执行特定的任务或计算。
事件通常与控件相关联，并可以触发方法的执行。
2. 解释VB中“类”的概念。
VB程序设计考试试题及答案
VB程序设计考试试题及答案月考上机试题一．选择题：(10*2)1由单精度浮点型的数据组成的字节数是A.2B.4C.8D.162.可以同时删除字符串前导和尾部空白的函数是A．LtrimB．RtrimC．TrimD．Mid3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click()Dim a(10)As IntegerDim p(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd Sub该过程的运行结果为:A.35B.33C.31D.295.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是A.1B. -1C. 0D. 26.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3m=IIf(X＞Y，X+Y，X-Y)A.-1B.0C.1D. 27.设a=″Visual Basic″，下面使b=″Basic″的语句是A.b=Left(a，8，12)B.b=Mid(a，8，5)C.b=Right(a，5，5)D.b=Left(a，8,5)8.以下不能运行工程的操作是A..执行"运行"菜单中的"启动"命令B.单击工具栏中的"启动"命令D.按下F5键 C.按下Ctrl+F5键9.下列关于面向对象程序设计的叙述不正确的是A.对象具有属性、方法等特性B.对象之间的通信产生了消息C.一个对象是一个软件构造块，它包含数据与相关的操作D.对象的属性不能被改变10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1 _ Click（）Static X As IntegerStatic Y As IntegerClsY=lY=Y+5X=5+XPrint X，YEnd Sub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为:A.15 16B.15 6C.15 15D.5 6二．填空题（3*4）1.计算1*2*3*...*3000，当积大于3000时停止计算。
vb考试题及答案
vb考试题及答案一、选择题（每题2分，共20分）1. VB中的“Dim”关键字用于声明什么？A. 变量B. 常量C. 类型D. 过程答案：A2. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable-nameC. variable$nameD. variable name答案：B3. VB中的“Sub”过程可以返回值吗？A. 是B. 否答案：B4. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C5. VB程序中，以下哪个语句用于结束程序？A. Exit SubB. End SubC. Exit ForD. End答案：D6. VB中，以下哪个是正确的条件语句？A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案：C7. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D8. VB中的“With”语句用于什么？A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案：C9. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案：D10. VB中，以下哪个是正确的事件处理程序声明？A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：B二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
vb考试题库及答案
vb考试题库及答案1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 以下哪个关键字用于在Visual Basic中声明一个变量？A. DimB. DeclareC. ConstD. Option Explicit答案：A3. 在Visual Basic中，如何使用一个循环结构来重复执行一段代码？A. ForB. WhileC. DoD. All of the above答案：D4. 如果需要在Visual Basic中捕获并处理异常，应该使用哪个语句？A. Try...Catch...FinallyB. On Error Resume NextC. ThrowD. All of the above答案：D5. Visual Basic中的哪个控件用于显示文本，并且用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B6. 在Visual Basic中，如何将一个变量的值赋给另一个变量？A. 使用赋值运算符“=”。
B. 使用函数“Assign”。
C. 使用方法“Set”。
D. 使用运算符“<-”。
答案：A7. Visual Basic中用于定义类和对象的关键字是什么？A. ClassB. ObjectC. NewD. Both A and B答案：D8. 在Visual Basic中，以下哪个事件是在窗体加载时触发的？A. LoadB. ClickC. ResizeD. Paint答案：A9. 如何在Visual Basic中声明一个数组？A. 使用关键字“Array”。
B. 使用圆括号“()”。
C. 使用方括号“[]”。
D. 使用关键字“Dim”后跟变量名和圆括号。
答案：D10. 在Visual Basic中，如何将一个字符串转换为小写？A. 使用函数“ToLower”。
VB程序设计试题及参考答案
VB程序设计试题及参考答案VB程序设计及参考答案⼀、单选题（共20分，每⼩题1分）1、要改变控件的宽度，应修改该控件的（）属性。
（A）TOP （B）width （C）Left （D）Height2、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。
（A）Visible （B）Value （C）Caption（D）Enabled3、（）对象具有clear⽅法。
（A）图⽚框（B）窗体（C）复选框（D）列表框4、启动VB后，就意味着要建⽴⼀个新（）。
（A）窗体（B）⽂件（C）⼯程（D）程序5、下列（）对象不具有Clear⽅法。
（A）列表框（B）组合框（C）剪贴框（D）图⽚框6、组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style 属性值应为（）（A）0 （B）1 （C）2 （D）37、下列可调整图⽚框的⼤⼩以适合图⽚的属性是（）（A）Stretch （B）autosize （C）picture （D）oledropmode 8、要想清除⽂本框中的内容则可利⽤（）进⾏。
（A）Caption （B）Text （C）Clear （D）Cls9、在⽂本框控件中将Text的内容全部显⽰为所定义的字符的属性是（）。
（A）Password （B）PasswordChar（C）需要编程来实现（D）以上都不是10、Visual Basic是⼀种⾯向对象的程序设计语⾔，所采⽤的编程机制是（）。
（A）从主程序开始执⾏（B）按过程顺序执⾏（C）事件驱动（D）按模块顺序执⾏11、下列四项中合法的变量名是（）。
（A）a-bc （B）a_bc （C）4abc （D）integer12、⽆论何种控件，共同具有的属性是（）（A）Text （B）Name （C）Caption （D）ForeColor13、有程序代码如下：Text1.Text = "Visual Basic程序设计"则Text1、Text ，和"Visual Basic程序设计"分别代表（）。
(完整word版)VB程序设计试题题库及答案
VB程序设计笔试题题库一、选择题1 以下常量中，是 Integer种类常量的是（C ）。
A、123&B、-38844C、123%D、327682 下边选项中 () 是字符连结运算符 . （ A ）A、&B、AndC、%D、Mod3下边关于 VB 的集成开发环境（ IDE ）的叙述中，不正确的是（B ）。
A、IDE是设计、调试、运转 VB程序的工具。
B、用户不可以任意封闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。
D、翻开 / 封闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)履行后， A= （ A ）。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分开每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据变换成整型数据时，变换规则是（ D ）。
A、将 True 变换为 1 ，将 False 变换为 0B、将 True 变换为 1 ，将 False 变换为 -1C、将 True 变换为 0 ，将 False 变换为 -1D、将 True 变换为 -1 ，将 False 变换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最初进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 假如 x=2 ，则表达式And 3>x+3 的值（ B ）。
A、不可以计算B、 TrueC、5D、False11 随机产生 [10，50] 之间整数的正确表达式是（ D ）。
A、Round( Rnd*50)B、 Int(Rnd*40+10)C、Round( Rnd*51)D、 10+Int(Rnd*41)12 每成立一个窗体 , 工程管理器窗口中就会增添一个 ( C ).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13 INT(100*RND(1)) 产生的随机整数的闭区间是 ( B ).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14以下数据种类中 , 占用内存最小的是 ( D ). A、IntegerB、SingleC、BooleanD、Byte15 VisualBasic是一种( B ) 程序设计语言 .A、过程式B、非过程式C、机器D、初级16函数 Int(10*Rnd) 是在 ( A ) 范围内的整数 . A、[0,9]B、[0,1]C、[1,9]D、[1,10]17 以下合法的一组 Visual Basic 用户表记符是（ C ）A、Sum 和 8abcB、a#x 和 PiC、ForLoop 和 TotalD、Const 和 DoWhile18 函数 Len(Str(Val("123.4"))) 的值为 ( B ).A、5B、6C、8D、1119 Int(198.555*100+0.5)/100 的值为（ B ）A、B、C、200D、19820以下各表达式中 , 计算结果为 0的是 ( A ). A、FIX(12.4)+FIX(-12.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FIX(13.6)+FIX(-12.6)21 MsgBox() 的正确语法是（D）。
vb程序设计考试题库及答案
vb程序设计考试题库及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. RealD. All of above答案：D2. VB中，哪个函数用于计算两个数的最大值？A. MinB. MaxC. AbsD. Sgn答案：B3. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of above答案：D4. VB中，以下哪个是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of above答案：D5. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. Select...CaseD. All of above答案：D6. VB中，哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. SqrD. Int答案：A7. 在VB中，以下哪个是合法的数组声明？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C8. VB中，哪个函数用于将字符串转换为大写？B. UCaseC. StrCompD. StrConv答案：B9. 在VB中，以下哪个是正确的事件处理程序的声明方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. ExpD. Log11. 在VB中，以下哪个是正确的文件打开模式？A. Open For InputB. Open For AppendC. Open For RandomD. All of above答案：D12. VB中，哪个函数用于计算一个数的指数？A. SqrB. PowC. ExpD. Log答案：B13. 在VB中，以下哪个是正确的窗体属性？A. CaptionC. Both A and BD. None of the above答案：C14. VB中，哪个函数用于计算一个数的自然对数？A. SqrB. PowC. ExpD. Log答案：D15. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C16. VB中，哪个函数用于计算一个数的四舍五入？A. RoundB. IntC. FixD. Sgn答案：A17. 在VB中，以下哪个是正确的控件属性？A. NameB. CaptionC. Both A and BD. None of the above答案：C18. VB中，哪个函数用于计算一个数的符号？A. AbsB. SgnC. RoundD. Int答案：B19. 在VB中，以下哪个是正确的控件事件？A. KeyPressB. KeyDownC. Both A and BD. None of the above答案：C20. VB中，哪个函数用于计算一个数的固定整数部分？A. RoundB. IntC. FixD. Sgn答案：C二、填空题（每题2分，共20分）21. VB中，使用________函数可以将一个字符串转换为小写。
大学VB考试题库完整
大学VB考试题库一、单项选择题1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。
A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。
A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。
A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。
A、="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个VisualBasic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（.bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（A）。
A、相同B、不相同C、两可D、都不对7、下面正确的赋值语句是（C）。
A、x+y=30B、y=π*r*rC、y=x+30D、3y=x8、VisualBasic 6.0集成环境的主窗口中不包括（C）。
A、标题栏B、菜单栏C、状态栏D、工具栏9、以下叙述中错误的是(C)。
A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器)D、Visual Basic中控件的某些属性只能在运行时设置10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。
vb考试题库
vb考试题库一、多项选择题1. 下列哪个是VB中的数据类型？A. intB. stringC. floatD. all of the above2. VB中的条件语句是使用哪个关键字？A. ifB. elseC. elseifD. all of the above3. 下列哪个不是VB中的循环结构？A. forB. whileC. repeatD. do while4. 如何在VB中定义一个数组？A. dim myArray() as arrayB. dim myArray as integer()C. dim myArray as array()D. dim myArray() as integer5. VB中的函数和子程序的区别是什么？A. 函数有返回值，而子程序没有B. 函数只能在主程序中调用，而子程序可以在任何地方调用C. 函数只能有一个参数，而子程序可以有多个参数D. 函数只能返回整数值，而子程序可以返回任何类型的值二、填空题1. VB中的变量声明使用关键字__dim__。
2. VB中的字符串连接运算符是__&__。
3. VB中的逻辑非运算符是__not__。
4. VB中用于输入用户信息的控件是__TextBox__。
5. VB中用于显示消息框的函数是__MsgBox__。
三、问答题1. 请简要介绍VB语言的特点和用途。
VB语言（Visual Basic）是一种基于事件驱动的编程语言，它易于学习和使用，适用于开发Windows应用程序和数据库应用程序。
VB 语言的特点包括可视化编程环境、简单易懂的语法、丰富的控件库和强大的调试工具等。
它可以用于开发各种类型的应用程序，如图形用户界面（GUI）应用程序、数据库管理工具、游戏等。
2. 请简要解释VB中的条件语句和循环结构，并给出一个示例。
条件语句是用于根据特定条件执行不同的代码块。
在VB中，常用的条件语句是if语句、else语句和elseif语句。
VB程序设计考试题库(9)
VB程序设计考试题库（9）一、单选题（每题1分，共50题）1.以下不属于Visual basic的工作模式的是（）模式。
正确答案：AA。
编译 B.设计 C.运行 D。
中断2.VB集成开发环境有三种工作状态，不属于其中之一的是（ )。
正确答案：BA.设计状态B.写代码状态C。
运行状态D。
中断状态3。
下列属性中，文本框控件不具有的属性是（）。
正确答案：BA.Backcolor B。
Caption C.Passwordchar D。
Enabled4。
以下能够触发文本框Change事件的操作是( ）。
正确答案：DA。
文本框失去焦点B。
文本框获得焦点C。
设置文本框的焦点 D.改变文本框的内容5。
函数Int（Rnd*6+1)的取值范围是（）。
正确答案：CA。
从1到7共7个整数B。
从0到7共8个整数C。
从1到6共6个整数D.从0到6共7个整数6.可以同时删除字符串前导和尾部空白的函数是（）。
正确答案：CA.Ltrim B。
Rtrim C。
Trim D.Mid7.有如下程序:a＄=”Flying”:b$="IS"：c＄=”funny！"Print a＄+” ”+Lcase＄（b＄)+” "+Ucase$（c＄）End运行后，输出结果是（）。
正确答案：BA。
Flying Is funny！ B.Flying is FUNNY！C。
Flying IS FUNNY！D。
FLYING IS FUNNY!8。
表示学习成绩（score）在75分和90分之间的逻辑表达式是（）.正确答案：AA．score〉=75 And score〈=90B．score〉=75 0r score<=90C．score〈=75 And score>=90D．score<=75 0r score>=909.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（）。
正确答案:BA.4B.5 C。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中，优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用，要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件，共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 Form1窗体的标题栏显示“欢送使用 VB〞，以下语句正确的选项是 ( D )A〕 Form1.Caption= “欢送使用 VB〞〔B〕Form1.Caption= ˊ欢送使用 VBˊ〔 C〕 Form1.Caption= 欢送使用 VB〔D〕Form1.Caption=〞欢送使用VB〞7.VB 提供了结构化程序设计的 3 种根本结构，这 3 种根本结构是 ( D )〔 A〕递归结构，选择结构，循环结构〔B〕选择结构，过程结构，顺序结构（C〕过程结构，输入、输出结构，转向结构〔D〕选择结构，循环结构，顺序结构8. 给变量赋值 a=123+MID(“123456〞 ,3,2) ，a 变量中的值是 ( D )〔 A〕“ 12334〞〔B〕123〔C〕12334〔D〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 If sex= “男〞 And age＜40 And (duty= “教授〞 Or duty= “副教授〞 ) Then n=n+1〔 C〕 If sex= “男〞 And age＜40 And Right(duty,2)=“教授〞Then n=n+1〔 D〕 If sex=“男〞 And age＜ 40 And duty= “教授〞 And duty= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容，可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句，正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(" 输入： " ， " 输入整数 ")MsgBox"输入的数据是：〞，，〞输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10，那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞（C〕信息框的标题是“输入数据： 10〞〔 D〕信息框中显示的是“输入的数据是：〞二、填空题〔每题 2 分，共 20 分〕1、当进入 VB集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。
vb考试题及答案
vb考试题及答案**VB考试题及答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是合法的变量名？A. 2variableB. Variable2C. variable$2D. Variable-2**答案：B**2. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type**答案：A**3. 以下哪个是VB中的保留字，不能用作变量名？A. NameB. IntegerC. PrintD. String**答案：B**4. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count**答案：A**5. 如果变量x的值为10，那么表达式x Mod 3的值是多少？A. 1B. 2C. 3D. 0**答案：A**6. VB中，用于循环结构的关键字是：A. ForB. WhileC. DoD. All of the above**答案：D**7. 在VB中，以下哪个控件用于显示文本，但不提供文本编辑功能？A. TextBoxC. ComboBoxD. CheckBox**答案：B**8. VB中，以下哪个事件用于响应按钮点击？A. ClickB. PressC. ActivateD. Change**答案：A**9. 在VB中，以下哪个函数用于将字符串转换为数值？A. StrB. ValC. CInt**答案：B**10. VB中，以下哪个控件用于选择一个范围的值？A. ListBoxB. ComboBoxC. OptionButtonD. Slider**答案：D**二、填空题（每题3分，共30分）1. 在VB中，声明一个整型变量i，并赋值为5，代码应为：________。
**答案：Dim i As Integer: i = 5**2. VB中，使用________函数可以获取当前日期。
3. VB中，使用________函数可以获取当前时间。
VB语言程序设计试题库
VB 程序设计一、判断题1. 同一Form 窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
（ X ）2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（）3. 单选按钮与复选框对象的 Value 属性类型不同，且只能取值 True 和False。
（√）4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。
（）5. 图片框的Move 方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。
（√）6. “A=B=C”是一个合法的 Visual Basic 语句。
（）7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。
（）8. Visual Basic 程序的运行可以从 Main （）过程启动，也可以从某个窗体启动。
（√）9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
（）10. 对于文件系统控件，当驱动器控件 Drivel 中的驱动器符改变时，文件夹列表控件 Dir1 中显示的文件夹也作相应的改变，可以在Drive1 中的Change 事件中使用如下命令。
Dir1. Path＝ Drive1. Drive（√）11. 滚动条控件可作为用户输入数据的一种方法。
（√）12. 单选按钮控件和复选框控件都具有 Value 属性，它们的作用完全相同。
（）13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
（√）14. Visual Basic 提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。
（√）15．注释语句 REM 可自成一语句。
（√）16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （）17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。
VB程序设计考试题库（2）
VB程序设计考试题库（2）VB程序设计考试（2）一、单选题（每题1分，共50题）1.关于Visual Basic应用程序，正确的叙述是（未填）。
错误正确答案：AA.Visual Basic程序运行时，总是等待事件被触发B.Visual Basic程序设计的核心是编写事件过程的程序代码C.Visual Basic程序是以线性方式顺序执行的D.Visual Basic的事件可以由用户随意定义，而事件过程是系统预先设置好的2.可视化编程的基本过程主要有3步，这3个步骤是（未填）。
错误正确答案：CA.创建工程、设计界面、编写代码B.创建工程、编写程序、保存程序C.设计界面、设置属性、编写代码D.设计界面、编写代码、调试程序3.窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为（未填）。
Private Sub Command1_Click()Dim A As Integer，B As IntegerText1.SelStart=2Text1.SelLength=2A=Val(Text1.SelText)B=Len(Text1.Text)Print A*BEnd Sub错误正确答案：CA.68C.170D.11704.VB中可用（未填）语句产生一消息框。
错误正确答案：DA.InputBoxB.ShiftC.BothD.MsgBox5.在窗体Form1的标题栏中显示“VisualBasic窗体"的命令是（未填）。
错误正确答案：C/doc/5173e546f68a6529647d27284b73f24 2336c3184.html ="VisualBasic窗体"B.Form1.Title="VisualBasic窗体"C.Form1.Caption="VisualBasic窗体"D.Form1.T ext="VisualBasic窗体6.以下（未填）是Visual Basic中合法的函数使用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零".2、题目:（事件）单击窗体。
（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中3、题目：单击窗体。
（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。
4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。
5、题目：（事件）双击窗体。
(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。
将所有得换法得数目存入变量N中6、题目:单击窗体。
）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。
结果存入变量S中7、题目:（事件）单击窗体。
（响应)生成一个一维数组（10个数组元素依此为:' １5、23、７2、４3、9６、2３、３、65、88、１7写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。
将最大值，最小值,平均值分别存入变量Max，Min，Aver中8、题目:(事件）单击窗体。
（响应)在窗体上输出100～２0０之间得所有合数。
求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。
９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。
将结果存入变量L中。
1０、题目：(事件）单击窗体。
（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。
将结果存入变量J中。
１题ｎ = InputＢoｘ（"输入一个自然数”）If n ＞0 Thenrｅsulｔ = ”正数＂ElseIf n < 0 Ｔhenｒeｓult = ”负数"ElseIf n ＝ 0 Ｔhenresult ＝"零＂End IfMsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt2题Dｉｍ i As InteｇerFｏｒ i = 201 To 300Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） TｈenＰrinｔ (CStｒ(i)）sum = ｓum + iEnd IｆＮeｘtＰrint sum3题DiｍｉAｓ Inteｇeｒｓ = 0For i = 1 To 1０s ＝ s + 1 / (i ^ i)NextPrint (s)４题Ｄim i，ｊ, ｋ， m As Integers ＝ 0 :i = 2:j = １For k = 1 To 10s = s ＋ｉ / jｍ＝ jPrｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j)j = iｉ = i + mＮexｔ5题Ｄｉｍ i, j，ｋAｓＩnｔegｅrFor i = １ To １00Fｏr j = 1 Ｔo 50For k = 1 Tｏ 20If （（i + 2 ＊j ＋ k * 5）＝ 100) ＴｈｅnPrint (CＳｔr(i)）Priｎｔ (CStr（j)）Pｒinｔ（CＳtｒ(k)）n ＝n + １NextNeｘtNｅxt6题Dim ｉ，ｊ， k As IｎtegerFor i = １ Tｏ 5k ＝ 1For j = 1 Tｏ iｋ = ｋ＊ jNexts = s + kＮｅxtＰriｎt （ＣStr（s)）7题Dｉｍａ(９） As IｎtegerDiｍ i, s Ａs Inｔegerａ(0）= １５：a(1) ＝ 23:ａ(2) = ７2ａ（3) ＝ 43:a(4） = 96：a（５） = ２3ａ(6) = 3：a（7）＝65:a（８) = 88a(9）= 17：ｍax = a(０)：ｍin ＝ a（0)s = ０For ｉ= 0 Ｔo ９If a（i）＞max Thenmax ＝ a(i)Eｎd IfIf a(ｉ）〈ｍiｎ Thenmｉn = a(ｉ)Eｎd Ｉfｓ＝ s ＋ a(i)Ｎeｘtaveｒ＝ Iｎt(s ／10)Print （ＣStr(mａx))Prｉｎｔ（CSｔr(ｍin)）Print （CStｒ（aver））8题Dim i, j, ｓ As InteｇerFor ｉ= 100 Tｏ 200For j ＝ 2 To Sqr(i）If （ｉ Mod j) = 0 ThenPrint (CStr（i))sum = suｍ+ iExｉt FｏｒEnｄＩｆＮextNｅxtPｒint ｓum9题Dｉｍ i%，j％,b As Booｌeａｎl = 1：b = FalseFor i = 10 Ｔo 20Fｏr j = 2 To i — 2If i Ｍod j = ０ Tｈenb = TrｕeEnd IfNｅxtIf b = False Thｅnl ＝ l ＊ iＥnd Iｆb = ＦaｌseNextPｒint Str（l)１0题Diｍ i AｓＩｎteｇｅrFor i = 1 To 100If i Mod 2 ＝ 1 Ｔhenj = j + １/ iEｌｓｅIf ｉＭｏd 2 ＝ 0 Thenj = j －１ / iEnd IfＮexｔＰrｉｎt j11、题目:（事件）单击窗体.(响应）如果一个数得真因子之与等于这个数本身，则称这样得数为“完全数”。
例如,整数28得真因子为１、2、4、7、11,其与就是28。
因此2８就是一个完全数。
请编写一个程序，求出5０0以内最大得完全数。
并存入变量SUＭ中。
使用for、、、neｘt语句完成程序12、题目：应用选择法对数组A按升序排列13、题目：单击窗体。
求一个数，它除3余2，除5余3，除7余２，请将满足上面条件得最小数保存到suｍ变量中.使用for、、、next语句完成程序.14、题目:编写函数fｕｎ,函数得功能就是：判断一个字符就是字母字符、数字字符还就是其她字符，并做相应得显示。
字母字符显示字符串”字母＂，数字字符显示字符串”数字”，其她字符显示字符串"其她",要求使用IF语句来实现.Ｐｒivate Funcｔioｎfun（n As Sｔrｉｎg) AｓString’＊＊**＊＊***＊Proｇram＊＊***＊＊*＊＊’＊*＊***＊＊＊* Ｅnd *＊*＊＊**＊＊＊Ｅnd FunctionPrｉｖatｅSub Form_Loaｄ()ShoｗPrｉntｆuｎ（”A")Ｐrｉnt fun("9＂)Prｉnt ｆun（”&”)ＮJIT_VBEnｄＳubPrｉvate SuｂNJＩT_VB（）Dim i Ａs IntｅgerＤｉm l Ａs IｎtegｅrDiｍa（10) As Sｔrinｇ* １ＤiｍfInＡs IntegeｒDim fＯut ＡsＩntｅgerfＩn= FreeFileOpen Apｐ、Ｐａｔh ＆"\ｉｎ、ｄat” For InpｕtＡs#fInfOut ＝ＦreeFilｅＯpen Ａpp、Path ＆"\out、dat” ForＯutpｕt As ＃fOutFor i＝ 1 To 10ＬiｎｅInput #fIn, ａ(i)Print #ｆOｕt，fuｎ（a(i))NｅｘtCｌose #ｆInClose#ｆOutEnd Sub15、题目:编写函数ｆｕｎ,函数得功能就是：根据一个百分制成绩mark（整数）,显示对应五级制得评定.条件如下:＇mark大于等于９0显示＂优秀"’mａrk小于90且大于等于８0显示＂良好"'ｍarｋ小于８0且大于等于70显示"中等"’mark小于7０且大于等于60显示"及格＂＇mａrk小于60显示”不及格”＇要求使用IF语句来实现。
Privaｔe Fuｎcｔｉon ｆｕn（marｋAs Ｉnteｇeｒ）Ａs Strｉｎg'＊*＊＊＊＊＊*＊＊Prｏgram＊*＊**＊＊*＊＊'＊＊*＊****＊* Enｄ＊*＊*＊*＊＊*＊Eｎd FunctｉonPｒｉvaｔe SuｂForm＿Load()SｈoｗＰrint fuｎ（90）NJＩT_VBEnd SubＰrivａtｅSub NJIT＿ＶB（）Ｄim i As ＩnｔegerDim s As ＳtriｎgDim a（１0) As ＩｎtｅgerＤｉm ｆIn AｓＩntegerＤiｍfOut As ＩnｔeｇerfIn= FrｅeFileOpｅn Ａpｐ、Ｐａth ＆＂\iｎ、dat＂FoｒInput Aｓ＃fInfＯut= FreeＦｉlｅOpen App、Patｈ＆＂＼out、dａt＂Ｆｏr Oｕｔｐut Aｓ＃ｆOｕtFor i= 1 To 10Ｌｉne Inpｕt ＃ｆＩn，sａ（i）＝Vａl(s)Prinｔ＃fOｕｔ, fun（a（i))NeｘtClｏse ＃ｆInCｌoｓe #fOutEnｄSuｂ16、题目：编写函数fuｎ，函数得功能就是：当ｘ得初值为10,每年增长率为千分之八，计算多少年以后x得值能达到ｙ,并显示所需年数得值（变量名必须为n).＇要求使用Do Whiｌe 、、、Loｏp语句来实现。
Ｐrivate Funｃtiｏn fｕn(ｙAs Single) As LoｎgＤｉｍｘAs Siｎgle, n AｓＬｏng＇＊*＊＊＊＊***＊Proｇｒam＊*＊＊＊****＊'＊**＊****＊* Enｄ＊*＊＊*＊***＊EｎｄＦuｎctionPｒiｖａtｅSub Form＿Load（）ShowPrinｔfun（15)NJIT_VBＥｎd ＳｕbPrivaｔe SuｂNJIT_VB()Dｉｍi AｓInｔegeｒDim a（1０）As ＳtrｉngＤiｍfIｎAｓＩntegｅrDim fOｕｔＡs InteｇｅrfIｎ= FreeFileＯｐｅｎAｐp、Path ＆"\iｎ、dat” Ｆor ＩnpuｔAs #fIｎfOut =ＦｒｅｅFilｅOpｅn Apｐ、Paｔｈ& ”＼ｏut、dａt＂For Output As #ｆOutFｏr i= 1 Ｔｏ10Ｌｉne Inpｕｔ＃fＩｎ, a(i)Pｒｉｎｔ#fOut, Trim(Sｔr(ｆun（Ｖaｌ（ａ(i））））)ＮextClose #fInCｌose ＃fＯｕtEnｄSub1７、题目:编写函数fｕn，函数得功能就是：求从ｍ到ｎ得乘积并显示，’如:m为2,ｎ为4时,显示＂24＂＇存储连乘得乘积得变量必须为Prodｕｃt'要求使用For语句来实现。