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”。
- 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语句来实现。