vb经典题目及答案
vb试题及答案
VB试卷一、单项选择题(每题2分,共40分)1. 窗体的标题栏显示内容由窗体对象的属性决定。
A) BackColor B)BackStyle C)Text D)Caption2. 窗体的示意图标可用属性来设置。
A) Picture B) Image C) Icon D) MouseIcon3. 窗体的控制菜单的有无由窗体对象的属性决定。
A) ControlBox B) MinButton C) MaxButton D) BorderStyle4. 若要取消窗体的最大化功能，则可设置属性为False来实现。
A) ControlBox B) MinButton C) MaxButton D) Enabled5. 以下4个选项，不属于VB的工作模式。
A) 编译 B) 设计 C) 运行 D) 中断6. 窗体的边框样式由窗体对象的属性来设置。
A) BackStyle B) BorderStyle C) WindowState D) FillStyle7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。
A) FontName B) Font C) FontSize D) FontBold8. 命令按钮的标题文字由属性来设置。
A) Text B) Caption C) Name D) (名称)9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。
A) 变量 B) 属性 C) 事件 D) 方法10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。
A) Value B) Cancel C) Default D) Enabled11. 若要使命令按钮不可见，可设置属性为False来实现。
A) Value B) Enabled C) Visible D) Cancel12. 运行程序时，系统自动执行窗体的事件。
A) load B) click C) unload D) GotFocus13. 若要设置文本框最大可接收的字符数，可通过属性来实现。
vb基础函数试题及答案
vb基础函数试题及答案一、选择题（每题2分，共20分）1. 在VB中，哪个函数用于计算字符串的长度？A. LenB. StrC. UCaseD. LCase答案：A2. 下列哪个函数可以将数字转换为字符串？A. ValB. StrC. IntD. CInt答案：B3. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D4. 如果变量x的值为5，那么表达式"x * 2"的结果是什么？A. 10C. 5D. 2答案：A5. 在VB中，哪个函数用于获取系统时间？A. NowB. DateC. TimeD. Today答案：C6. 下列哪个函数用于将字符串转换为数字？A. ValB. StrC. IntD. CInt答案：A7. 在VB中，哪个函数用于计算两个数的和？A. SumB. AddC. +D. =答案：C8. 如果变量x的值为10，那么表达式"x Mod 3"的结果是什么？B. 0C. 3D. 10答案：A9. 在VB中，哪个函数用于计算两个数的差？A. DiffB. SubtractC. -D. =答案：C10. 下列哪个函数用于将数字四舍五入到最接近的整数？A. RoundB. IntC. CIntD. Fix答案：A二、填空题（每题2分，共20分）1. VB中，使用________函数可以将字符串转换为大写。
答案：UCase2. 使用________函数可以获取当前的日期和时间。
答案：Now3. 使用________函数可以将数字格式化为货币格式。
答案：FormatCurrency4. 使用________函数可以获取系统当前的年份。
答案：Year(Date)5. 使用________函数可以获取系统当前的月份。
答案：Month(Date)6. 使用________函数可以将数字格式化为百分比。
答案：FormatPercent7. 使用________函数可以获取系统当前的星期几。
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经典例题13道(附答案)
V B经典例题13道(附答案)1.一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, q, w, rs = TextBox1.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1ElseIf c >= "0" And c <= "9" Thenw = w + 1Elser = r + 1End IfNextLabel1.Text = "字母有" & q & "个数字有" & w & "个其他有" & r & "个" End Sub2.一串字符以？结尾，求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, z, x, c, is = TextBox1.Texta = Mid(s, 1, 1)i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Thenz = z + 1ElseIf a >= "0" And a <= "9" Thenx = x + 1Elsec = c + 1End Ifi = i + 1a = Mid(s, i, 1)LoopLabel1.Text = z & x & cEnd Sub3.给定一个数字求它是几位数字，如（1）.12345 (2).-12345 (3).123.45 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clicks = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabel1.Text = "是" & Len(c) & "位数"ElseLabel1.Text = "是" & Len(c) - 1 & "位数"End IfElseIf c >= 0 ThenFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "ElseFor i = 1 To Len(c)If Mid(c, i, 1) = "." Then Exit Forj = j + 1NextLabel1.Text = "小数点前有" & j - 1 & "位数 " & " 小数点后有" & Len(c) - j - 1 & "位数 "End IfEnd IfEnd Sub4.求圆周率公式Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pia = 1n = 1While Math.Abs(1 / n) > 0.0001pi = pi + a * (1 / n)n = n + 2a = -aLabel1.Text = 4 * piEnd Sub5.求自然对数e 公式e=1+1+1/2!+1/3!+…+1/n!+….Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, ln = 1e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1e1 = e1 + 1 / lEnd WhileLabel1.Text = e1End Sub6.右直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To ns = ""Label1.Text &= Space(n - i)For j = 1 To is &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub7．等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = 1 To nLabel1.Text &= Space(n - i)For j = 1 To 2 * i - 1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub8．倒等腰三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub9．右上角的直角三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text = ""n = Val(TextBox1.Text)For i = n To 1 Step -1s = ""Label1.Text &= Space(n - i)For j = i To 1 Step -1s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10．菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = ""For i = 1 To 6s = ""Label1.Text &= Space(i - 1)For j = 1 To 12s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub11.水仙花数字三位数字的个位数字的立方和等于该数字本身（1）.判断输入的数字是否是水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cs = Val(TextBox1.Text)Label1.Text = ""a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & "是水仙花数"ElseLabel1.Text &= s & "不是水仙花数"End IfEnd Sub（2）.找出所有的水仙花数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, a, b, cLabel1.Text = "水仙花数是" & vbCrLfFor s = 100 To 999a = s \ 100b = (s - a * 100) \ 10c = s Mod 10If a ^ 3 + b ^ 3 + c ^ 3 = s ThenLabel1.Text &= s & vbCrLfNextEnd Sub12.完全数正整数的因数之和等于这个数（1）.判断输入的数字是不是完全数Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, j, l, a(100)s = Val(TextBox1.Text)j = 1For i = 1 To s - 1If s Mod i = 0 Thena(j) = ij = j + 1End IfNextFor i = 1 To jl = l + a(i)NextIf l = s ThenLabel1.Text = s & "是完全数"ElseLabel1.Text = s & "不是完全数"End IfEnd Sub（2）.找出1到n内的完全数,n 由用户输入Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, jn = Val(TextBox1.Text)Label1.Text = ""For p = 2 To nj = 0For i = 1 To p - 1If p Mod i = 0 Thenj = j + iEnd IfNextIf j = p ThenLabel1.Text &= p & " "End IfNextEnd Sub13.显示1，1，2，3，5，8，13，21…… F(i)=f(i-1)+ f(i-2)Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim f(30)f(1) = 1f(2) = 1For i = 3 To 30f(i) = f(i - 1) + f(i - 2)NextLabel1.Text = ""For i = 1 To 30Label1.Text &= f(i) & ","If i Mod 6 = 0 Then Label1.Text &= vbCrLfNextEnd Sub。
vb高中试题及答案
vb高中试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. LetD. Set答案：A2. VB中，用于条件判断的关键字是？A. IfB. ElseC. ThenD. For答案：A3. 以下哪个函数用于计算字符串的长度？A. LenB. StrC. ValD. Mid答案：A4. 在VB中，如何表示一个数组？A. Dim numbers(10) As IntegerB. Dim numbers(1 to 10) As IntegerC. Dim numbers(0 to 10) As IntegerD. All of the above答案：D5. VB中，用于循环遍历数组的关键字是？A. ForB. WhileC. DoD. Repeat答案：A6. VB中，用于定义子程序的关键字是？A. FunctionB. SubC. ProcedureD. Method答案：B7. 在VB中，以下哪个关键字用于创建类？A. ClassB. ModuleC. InterfaceD. Structure答案：A8. VB中，用于定义全局变量的关键字是？A. GlobalB. PublicC. PrivateD. Dim答案：B9. VB中，用于结束一个循环的关键字是？A. ExitB. BreakC. ContinueD. End答案：A10. 在VB中，以下哪个函数用于将数字转换为字符串？A. StrB. ValC. CStrD. Format答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的正确语法是：__________。
答案：Dim variableName As Integer2. 如果要在VB中声明一个常量，应该使用关键字：__________。
答案：Const3. 在VB中，要定义一个函数，应该使用关键字：__________。
vb编程题及答案
v b编程题及答案1. 在代码中引用一个控件时，应使用控件的(b)属性。
A.C ap t ionB.Na meC. TextD. Index2. 设变量X= 4, y =—1, a= 7, b =—8, 下面表达式(a)的值为“假＂。
A x+a <= b—yB x > 0 A N D y < 0C.a = b O R x>yD. x+y > a+b AN D NOT (y < b)3. 表达式I nt(Rnd71)+10产生的随机整数范围是(C)。
A. (10, 80)B. (10, 81)C. [10, 80]D. [10, 81]4. 函数Sgn(3. 1416)的返回值是(C)。
A. —1B. 0C. 1D. 以上都不对5.67890属于(d)类型数据。
A. 整型B.单精度浮点数C.货币型D.长整型6. 下列变量名中正确的是(d)。
A. 3SB.PrintC. Sel ect M y NameD.Sel ect—l7. 下列赋值语旬(a)是有效的。
A. u m= u m—u mB.x+2 = x + 2C.x + y = u mD. l as t= y / 08. 以下的控件或方法具有输入和输出双重功能的为(b)。
A.PrintB. Text b oxC.O t ionb u ttonD.C h eck b o x9. 若要获得列表框中被选中的列表项的内容，可以通过访问(d)属性来实现。
()。
A.Na me B.Li t lndex C.Li t C ou nt D. Text10. 下列代码的运行结果为(b)。
Priv a t e S u b m a nd l—cl ick()D i m m(lO)For k=1 T o10m(k) = 11—kN ext kX = 5Print m(2 + m(x))End S u bA. 2B. 3C.4D. 5标准控件不包括（）控件。
vb初级编程试题及答案
vb初级编程试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明一个类？A. DimB. SubC. FunctionD. Class答案：D2. 如果一个变量在VB中被声明为Static，那么它的生命周期是多久？A. 只在程序运行期间B. 只在过程运行期间C. 直到程序结束D. 只在线程运行期间答案：C3. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Float答案：C4. 使用哪个VB函数可以将字符串转换为数值？A. ValB. StrC. ChrD. Asc答案：A5. 在VB中，以下哪个控件用于显示单行文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：B6. 在VB中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A7. 在VB中，以下哪个属性用于设置控件是否可用？A. EnabledB. VisibleC. CaptionD. Text答案：A8. 在VB中，以下哪个方法用于在文本框中添加文本？A. AppendB. WriteC. PrintD. Add答案：B9. 在VB中，以下哪个循环结构用于重复执行代码直到条件满足？A. Do WhileB. ForC. For EachD. While答案：D10. 在VB中，以下哪个关键字用于创建一个数组？A. DimB. NewC. ArrayD. Create答案：A二、填空题（每题2分，共20分）11. 在VB中，使用________函数可以获取字符串的长度。
答案：Len12. 当需要在VB中创建一个自定义函数时，应使用________关键字。
答案：Function13. 在VB中，________事件用于响应文本框内容的变化。
答案：Change14. 要将一个变量的值传递给VB中的函数，应使用________关键字。
vb基础期末考试题库及答案
vb基础期末考试题库及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的数据类型？A. IntegerB. intC. StringD. str答案：A、C2. 下列哪个选项不是VB的控件？A. TextBoxB. ButtonC. LabelD. ComboBox答案：B3. VB中，用于声明一个变量的关键字是：A. DimB. DeclareC. FunctionD. Sub答案：A4. 在VB中，以下哪个是正确的函数用于将字符串转换为整数？A. StrToIntB. CIntC. ValD. Convert.ToInt32答案：B5. Visual Basic中，哪个属性用于设置文本框的文本？A. TextB. CaptionC. ValueD. Label答案：A6. 下列哪个是VB中用于循环的语句？A. IfB. ForC. WhileD. Select答案：B、C7. VB中，下列哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B8. 在VB中，以下哪个是正确的事件处理程序？A. OnClickB. OnClickC. ClickD. OnClick答案：A、C9. VB中，下列哪个选项用于声明一个常量？A. ConstB. DimC. StaticD. Public答案：A10. 在VB中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. StructureD. Interface答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________关键字来结束一个程序。
答案：End2. VB中，________关键字用于声明一个数组。
答案：Dim3. 使用________函数可以将一个数字转换为字符串。
答案：Str4. 在VB中，________关键字用于定义一个全局变量。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确的程序代码，然后删除？及所有注释符号（即 '号），但不能修改其它部分。
修改后的程序文件都保存，存盘时不得修改文件夹和文件名。
本题描述如下：在窗体上有一个名为Text1的文本框，有三个命令按钮，名称分别是C1、C2和C3，标题分别是"读入"、"加密"和"存盘"。
要求程序运行后，点击"读入"按钮，将文本文件in7.txt（该文件在考生文件夹下）中的文本信息读入文本框Text1中；点击"加密"按钮将Text1中的英文字母加密转换，并将转换后的结果显示到Text1中。
转换方式为转换成该字母对应字母表中后两个位置的字母。
例如，转换前的字母是"a"，则转换后的是"c"，转换前是"E"，转换后是"G"；点击"存盘"按钮，则将转换后的文本框中的文本保存到out7.txt文件中（该文件保存到考生文件夹下）。
Private Sub C1_Click()Dim strinfo As StringOpen "in7.txt" For Input As 1Input #1, strinfoClose #1Text1.Text = strinfoEnd SubPrivate Sub C2_Click()Dim strchange As StringDim i As IntegerFor i = 1 To Len(Text1.Text)strchange = strchange + Chr(Asc(Mid(Text1.Text, i, 1)) + 2)NextText1.Text = strchangeEnd SubPrivate Sub C3_Click()Open "out7.txt" For Output As 1Print #1, Text1.TextClose #1End Sub2、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在窗口中有一个RichText文本框控件（名称为rtx1）和一个文本框控件（名称为Text1），两个命令按钮，名称分别为Command1和Command2，标题分别为"加入WY01.TXT"、"统计字符个数"。
要求程序运行后，单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中；单击"统计字符个数"按钮统计Text1中有多少个字符，将结果显示在Text1中。
Option ExplicitPrivate Sub Command1_Click()rtx1.LoadFile App.Path + "\wy01.txt"End SubPrivate Sub Command2_Click()If rtx1.Text <> "" ThenText1.Text = Len(rtx1.Text)End IfEnd Sub\3、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件prog8a.dat存放一些字符。
1）按"开始"按钮后,能从考生文件夹下的prog8a.dat中读出数据并分别统计出其中数字、大写字母、小写字母和其它类型字符的个数，将结果写入考生文件夹下的prog8b.dat文件中（以标准格式在一行中输出）；2）执行完毕，"开始"按钮变成"完成"，且无效（变灰）Private Sub COMSTART_Click()Dim Ch As String, Number As Integer, Cp As Integer, Lp As Integer, Others As Integermyfile1 = App.Path & "\" & "prog8a.dat"myfile2 = App.Path & "\" & "prog8b.dat"Open myfile1 For Input As #1Open myfile2 For Output As #2While Not EOF(1)Input #1, Ch$If Asc(Ch$) >= 48 And Asc(Ch$) <= 57 ThenNumber = Number + 1ElseIf Asc(Ch$) >= 65 And Asc(Ch$) <= 90 ThenCp = Cp + 1ElseIf Asc(Ch$) >= 97 And Asc(Ch$) <= 122 ThenLp = Lp + 1ElseOthers = Others + 1End IfWendPrint #2, Number, Cp, Lp, OthersCloseCOMSTART.Caption = "完成"COMSTART.Enabled = FalseEnd Sub4、在考生文件夹下有工程文件wy7.vbp及窗体文件wy7.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹，相应的dat文件也保存到考生文件夹下，否则没有成绩。
本题描述如下：在名称为Form1的窗体上有五个Label控件和两个命令按钮，数据文件grade.dat存放一些成绩。
1）按"开始"按钮后，从考生文件夹下的grade.dat中读出数据并求出它们的平均数，将结果写入考生文件夹下的average.dat文件中；2）执行完毕，"开始"按钮变成"完成"，且无效（变灰）5、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在名称为Form1的窗体上有一个Label控件，4个Text控件及7个命令按钮，功能如下：1）开始启动工程时，界面上除"开始录入"及"退出"按钮之外,其它按钮均不可用（灰色显示）。
2）单击"开始录入"按钮之后，利用INPUTBOX让用户连续且必须录入10个数。
若录入为非数字符号，则给出警告"输入数据无效，请重新输入数值数据，请输入第n个数"。
3）录入完毕后，"开始录入"变灰，其它变为可用状态。
4）按相应的按钮可分别求出所录入数据的"升序"、"降序"排列及"最大数"和"最小数"并在右侧对应的文本框中显示。
（注意用A(10)存放最大数，A(1)存放最小数）5）单击"清除"按钮将所有文本框清空。
Private Sub COMSTART_Click()Dim g As Single, N As Integer, S As Singlemyfile1 = App.Path & "\" & "grade.DAT"myfile2 = App.Path & "\" & "average.dat"Open myfile1 For Input As #1Open myfile2 For Output As #2Do While Not EOF(1)Input #1, gN = N + 1S = S + gLoopClose #1S = S / NWrite #2, SCOMSTART.Caption = "完成"COMSTART.Enabled = FalseEnd Sub***********************************************************************（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：在名称为Form1，标题为"求和程序"的窗体上有三个Label控件，两个Text控件和三个命令按钮。
该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和：1）刚启动工程时，"显示结果"和"清除"按钮均为灰色2）可以在输入框内输入任意自然数（n值太大时，运算时间将很长，建议不超过9位)。
在输入数的同时"显示结果"变为可用。
当输入为非数值时，累加结果为03）单击"显示结果"可以在Text2中显示累加和，且该框内的文字不可修改；同时"显示结果"变灰，"清除"变为可用4）单击"清除"，输入框和显示框均显示"0"5）单击"关闭"按钮结束程序的运行Option ExplicitPrivate Sub Command1_Click()Dim i As DoubleDim sum As DoubleDim n As Doublesum = 0n = Val(Text1.Text)For i = 1 To nsum = sum + iNext iText2.Text = sumCommand1.Enabled = FalseCommand2.Enabled = TruePrivate Sub Command2_Click()Text1.Text = 0Text2.Text = 0Command1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseEnd SubPrivate Sub Text1_Change()Command1.Enabled = TrueEnd Sub6、（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。