vb经典题目及答案
VB练习题(含答案)
VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。
2 简要回答创建MDI应用程序的步骤。
3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数，功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。
5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。
17 叙述VB集成开发环境的组成。
18 叙述文件访间的类型。
19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。
26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。
30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。
34 请写出If语句的块语法格式。
35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。
37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案：1．简述Timer控件中Interval属性和Enanbeled属性答：Timer控件中的Enanbeled设置或返回计时器控件的有效性，该属性值为布尔值，如果设置为True，则每经过指定的时间间隔将触发Timer事件，为False，计时器控件成为无效，停止工作。
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简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
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试题及答案选择VB试题及答案选择1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. 以下哪个选项不是Visual Basic的控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Switch...Case答案：D3. 在Visual Basic中，如何将文本框（TextBox）的内容赋值给一个变量？A. Dim text As String = TextBox1.TextB. Dim text As String = TextBox1.TextC. Dim text As String = TextBox1.ValueD. Dim text As String = TextBox1.Text答案：A4. 如果要在Visual Basic中创建一个窗体（Form），应该使用以下哪个类？A. FormB. UserControlC. PanelD. Button答案：A5. 在Visual Basic中，如何声明一个名为“myFunction”的过程，它不接受参数也不返回值？A. Function myFunction() As VoidB. Sub myFunction()C. Function myFunction() As IntegerD. Sub myFunction() As Integer答案：B6. 如果要在一个事件处理程序中引用当前窗体，可以使用哪个关键字？A. MeB. ThisC. SelfD. Current答案：A7. 在Visual Basic中，如何声明一个数组？A. Dim numbers(5) As IntegerB. Dim numbers As Integer(5)C. Dim numbers(5) As StringD. Dim numbers As Integer[5]答案：A8. 在Visual Basic中，以下哪个是正确的字符串连接运算符？A. +B. &C. *D. =答案：B9. 如何在Visual Basic中声明一个名为“myClass”的类？A. Function myClassB. Sub myClassC. Class myClassD. Dim myClass答案：C10. 在Visual Basic中，以下哪个关键字用于捕获所有未处理的异常？A. Try...CatchB. If...Then...ElseC. For...NextD. While...End While答案：A11. 在Visual Basic中，如何声明一个名为“myButton”的按钮？A. Dim myButton As ButtonB. Sub myButtonC. Function myButtonD. Dim myButton As Control答案：A12. 在Visual Basic中，如何将一个变量的值增加1？A. Increment myVarB. myVar += 1C. myVar = myVar + 1D. myVar.Increment()答案：C13. 在Visual Basic中，如何声明一个名为“myLabel”的标签？A. Dim myLabel As LabelB. Sub myLabelC. Function myLabelD. Dim myLabel As Control答案：A14. 在Visual Basic中，以下哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Quit答案：A15. 在Visual Basic中，如何声明一个名为“myList”的列表？A. Dim myList As List(Of String)B. Dim myList As String()C. Dim myList As ArrayD. Dim myList As Collection答案：A16. 在Visual Basic中，如何声明一个名为“myDictionary”的字典？A. Dim myDictionary As DictionaryB. Dim myDictionary As HashtableC. Dim myDictionary As List(Of String)D. Dim myDictionary As Array答案：A17. 在Visual Basic中，如何声明一个名为“myEvent”的事件？A. Event myEventB. Sub myEvent()C. Function myEvent()D. Dim myEvent As Event答案：A18. 在Visual Basic中，如何声明一个名为“myDelegate”的委托？A. Delegate myDelegateB. Sub myDelegate()C. Function myDelegate()D. Dim myDelegate As Delegate答案：D19. 在Visual Basic中，如何声明一个名为“myEnum”的枚举？A. Enum myEnumB. Sub myEnumC. Function myEnumD. Dim myEnum As Enum。
Vb操作题题库(含答案)
VB填空题:1、Visual Basic 6.0分为3种版本，这3种版本是______、______和______。
其中，最完整的是______。
答案：1：学习版#专业版#企业版2：学习版#专业版#企业版3：学习版#专业版#企业版4：企业版知识点：VB知识点/第一章2、可以通过______快捷键或______快捷键退出Visual Basic。
答案：1：Alt+F4#Alt+Q2：Alt+F4#Alt+Q知识点：VB知识点/第一章3、传统的程序设计语言主要是面向______的，而现在涌现出的许多可视化程序设计语言，如Visual Basic主要是面向______进行程序设计的。
答案：1：过程#问题2：对象知识点：VB知识点/第一章4、在面向对象程序设计中，对象是由______和______组成的概念。
答案：1：代码#数据2：代码#数据知识点：VB知识点/第一章5、Visual Basic开发环境中，在标题栏的方括号内能指出目前正处在______、______状态或______状态。
答案：1：设计#中断#运行#设计状态#中断状态#运行状态2：设计#中断#运行#设计状态#中断状态#运行状态3：设计#中断#运行#设计状态#中断状态#运行状态知识点：VB知识点/第一章6、在设计模式下，工程中的某个窗体没有出现，可通过双击______窗口中的相应窗体名来使之出现。
答案：1：工程资源管理器知识点：VB知识点/第一章7、Visual Basic开发环境中，当属性窗口在界面上末出现时，可使用______菜单中的______选项让它显示出来。
答案：1：视图2：属性窗口知识点：VB知识点/第一章8、在属性窗口中，属性显示方式分为两种，即按______顺序和按______顺序，分别通过单击相应的按钮来实现。
答案：1：字母#分类2：字母#分类知识点：VB知识点/第一章9、菜单命令中有"…"标记表示该命令是一个______的命令。
vb考试试题及答案
vb考试试题及答案VB考试试题及答案VB（Visual Basic）是一种面向对象的编程语言，广泛应用于Windows平台的应用程序开发中。
对于学习VB的人来说，参加考试是一种检验自己掌握程度的方式。
下面将为大家提供一些VB考试试题及答案，希望对大家的学习有所帮助。
一、选择题1. VB是以下哪种类型的编程语言？A. 面向过程编程语言B. 面向对象编程语言C. 函数式编程语言D. 混合编程语言答案：B. 面向对象编程语言2. VB中的变量声明关键字是？A. DimB. VarC. IntD. Public答案：A. Dim3. VB中的循环结构中，以下哪个关键字用于跳出当前循环？A. ExitB. BreakC. ContinueD. End答案：A. Exit4. VB中的条件语句中，以下哪个关键字用于多个条件的判断？A. IfB. ElseC. ElseIfD. Switch答案：C. ElseIf5. VB中的函数定义关键字是？A. SubB. FunctionC. MethodD. Procedure答案：B. Function二、填空题1. VB中的注释符是（）。
答案：'2. VB中的数组下标是从（）开始的。
答案：03. VB中的字符串连接符是（）。
答案：&4. VB中的逻辑与运算符是（）。
答案：And5. VB中的模块化编程可以通过（）来实现。
答案：函数和子程序三、简答题1. VB中的控件是什么？请举例说明。
答：VB中的控件是用于与用户进行交互的可视化组件。
例如，按钮（Button）、文本框（TextBox）、标签（Label）等都是VB中常见的控件。
通过控件，我们可以实现用户输入、数据展示、按钮点击等功能。
2. VB中的事件是什么？请举例说明。
答：VB中的事件是指在特定条件下发生的操作或响应。
例如，按钮的点击事件（Click Event）是指当用户点击按钮时触发的事件，我们可以在该事件中编写相应的代码来实现按钮的功能。
vb概述测试题及答案
vb概述测试题及答案一、单项选择题（每题2分，共20分）1. VB的全称是什么？A. Visual BasicB. Visual C++C. Visual FoxProD. Visual Pascal答案：A2. VB是一种面向对象的编程语言吗？A. 是B. 否答案：B3. VB的运行环境是什么？A. Windows操作系统B. Linux操作系统C. MacOS操作系统D. 以上都不是答案：A4. VB中，哪个关键字用于声明变量？A. DimB. LetC. ConstD. Static答案：A5. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. DoD. 以上都是答案：D6. VB中，以下哪个函数用于计算字符串的长度？A. LenB. StrLenC. LengthD. Size答案：A7. VB中，哪个关键字用于定义子程序？A. FunctionB. SubC. ProcedureD. Method答案：B8. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. If...Then...End IfD. 以上都是答案：C9. VB中，哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A10. VB中，哪个控件用于接收用户输入的文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：B二、填空题（每题2分，共20分）1. VB是一种由微软公司开发的_______语言。
答案：事件驱动2. VB程序的基本单位是_______。
答案：模块3. VB中，用于定义常量使用的关键字是_______。
答案：Const4. VB中，用于定义数组的关键字是_______。
答案：Dim5. VB中，用于输出信息到立即窗口的函数是_______。
(完整word)VB_经典考试题及答案,推荐文档
目录一、填空题 (2)二、选择题 (5)三、程序填空 (18)四、阅读程序写结果 (25)五、编程题 (31)六、历年全国计算机二级等级考试真题(附答案) (33)2006年4月全国计算机等级考试二级VB笔试试卷 (33)2005年9月全国计算机等级考试二级VB笔试试卷 (43)2005年4月全国计算机等级考试二级VB笔试试卷 (50)2004年9月全国计算机等级考试二级VB笔试试卷 (57)一、填空题1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。
2、VB 集成发环境窗口，它包括了数个独立的窗口。
除必须的"主窗口"外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。
3、在计算机上建立一个VB 应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。
4、VB 中每个对象都有自己的属性， visible 属性决定控件是否允许可见。
5、在VB 对象的三要素中，可以把 属性 看作一个对象的性质，把 事件 看作对象的响应，把 方法 看作对象的动作。
6、VB 有三种工作模式，它们分别是 模式、 模式和 模式。
7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal 属性值应设置为 。
8、在VB 中，为了使一个控件在运行时不可操作，应将控件的 enable 属性设置为 false 。
9、为了防止用户编辑文本框内的内容，应将控件的 locked 属性设置为 true 。
10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时，应将该控件的 autosize 属性设置为 true 。
11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。
12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存，用 unload 语句从内存中删除指定窗体.13、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。
vb练习题(含答案)
___B___ 。
A ． 设计流程和编写代码
B． 设计界面和编写代码
C． 设计算法和编写代码
D． 设计程序和编写代码
44．在 VB 6.0 中， 12345& 的数据类型是（ B）
A ． 整数型
B ． 长整数型 C． 字符常数 D． 双精度常数
45．在 VB6.0 中，语句 Dim M1#,Abc,Xyz As Single 定义的 M1 、 Abc 和 Xyz 的类型分别是（ D ）
19、若要执行下列程序段后窗体上显示＂红＂字，则
x 可取的值为：
Select case int(x/10)
case2,4,6,8
print" 黄 "
case1,3,5,7,9
print" 绿 "
case else
print" 红 "
end select
(A)27
(B)38
(C)10
(D)5( 对 )
(A) 必须是字母开头，不能是数字或其他字符
(B) 不能是 VB 的保留字
(C) 可以包含字母、数字、下划线和标点符号 (对 )
(D) 不能超过 255 个字符
15、以下变量名中， ______是不符合 VisualBasic 的命名规范的。
(A)Abc901
(B)_mnu_Open_234( 对 )
A. 字符串类型
B. 日期类型
C. 逻辑类型
D. 指针类型
8、表达式 Left( “Visual ”,3)+Lcase( “AB ”)的值是？（ C）
A. visAB
B. VisAB
C. Visab
D. ualab
vb的操作题（有答案）
vb的操作题（有答案）第一篇：vb的操作题(有答案)1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。
程序刚运行时，会生成一个有10个元素的整型数组。
若选中“查找最大值”（或“查找最小值”）单选按钮，再单击“查找”按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。
请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。
最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10 If Option1.Value = True Then If a(i)x Thenx = a(i)End If ElseIf a(i)< y Then y = a(i)End If Next If Option1.Value = True Then Label2.Caption = x Else Label2.Caption = y End If End Sub 2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。
画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。
将窗体的标题设为“图形控件”。
单击列表框中的某一项，则将所选的值作为形状控件的填充参数。
例如，选择3，则形状控件中被竖线填充。
如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：内实线。
List控件的Click事件过程为： Private Sub List1_Click() Shape1.FillStyle = List1.Text End Sub 3.（1）在名称为Form1的窗体上画一个文本框，名称为T ext1；再画二个命令按钮，名称分别为C1、C2，标题分别为“隐藏”、“显示”（如图所示）。
vb试题及答案
一、选择题（1-30 题每小题1分，共30分,31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”,正确的语句是：aA．Form1。
Caption=“正在复制文件…”B．Form1。
Title=“正在复制文件…”C．Form1。
Text=“正在复制文件…”D．Form1.名称=“正在复制文件…”如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：aA．1000B．100C．10D．13、下列关于控件的基本操作中,错误的是A）当控件处于活动状态时,可以对控件进行缩放B）在设计阶段不能移动控件C) Visual Basic 6.0 允许对画好的控件进行复制和删除D）可以通过属性窗口改变控件的位置和大小4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是：A) ①②③B）①③②C) ③②①D）③①②5、为使文本框只能显示不能输入,即只读，应设置文本框的属性是：cA．MaxLength设置为0B．Cancel设置为TrueC．Locked设置为True D．Read设置为True6、InputBox函数返回值的类型为。
BA．数值B．字符串C．变体D．数值或字符串（视输入的数据而定)7、为了把焦点移到某个指定的控件，所使用的方法是：AA．SetFocus B．Visible C．ReFresh D．GetFocus8、函数String（3，”str”)的功能是：bA．把数值型数据转换成字符串B．返回有3个字符串组成的字符串C．从字符串中第3个字符D．从字符串中第3个字符的位置开始取字符串9、双击窗体中的对象后,Visual Basic将显示的窗口是：cA．项目（工程)窗口B．工具箱C．代码窗口D．属性窗口10、用于获得字符串s最左边4个字符的函数是：aA．Left(s，4）B．Left（1,4）C．LeftStr(s）D．LeftStr（3，4）11、以下程序段的输出结果是：da=Sqr（3）b=Sqr(2）c=a>bPrint cA．-1 B．0 C．False D．True12、用下面语句定义的数组的元素个数是：cDim A （—4 to 6) As IntegerA．6 B．7 C．11 D．913、若x=—5，执行If x Then x=0 Else x=1的结果为：dA．实时错误B．编译错误C．x=1 D．x=0列程序段的循环结构执行后，i的输出值是：cFor i=1 To 10 Step 2y=y+iNext iPrint iA．25 B．10 C．11 D．因为y的初值不知道，所以不确定15、可以用作其他控件容器的控件有: cA．窗体、列表框、图像框B．窗体、文本框、框架C．窗体、框架、图片框D．窗体、标签、图片框16、以下不属于Visual Basic 支持的循环结构的是：dA．For …Next B．For Each …NextC．Do …Loop D．While …End17、下列可以打开立即窗口的操作是:DA．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G18、下列可作为Visual Basic变量名的是A）A_3 B）4A C）?xy D）Integer19、设a=8,b=5，执行语句Print a>b后，窗体上显示的是A）True B)False C）1 D）出错信息20、以下能够触发文本框Change事件的操作是A）文本框失去焦点B) 文本框获得焦点C) 设置文本框的焦点D）改变文本框的内容21、列表框图标的英文名称是A）ListBox B)ComboBoxC）Frame D)CommonDialog22、下列类型说明符中表示整型的是A) ％B) ！C) $ D) &23、执行下列语句a$ = "abcdefg”：Print Len(a＄)后,在窗体上输出的结果是A） 1 B） 2 C）7 D) 1424、文本框不具有的属性是A) Caption B）text C) left D)font25、设a=6，则执行x=IIf（a〉5，1,2)后,x 的值为：A）1 B)2 C)5 D）026、语句Print 5/4＊6\5 Mod 2的输出结果是A) 0B) 1C）2 D）327、滚动条控件的largeChange属性所设置的是A）滚动条所能表示的最小值B）滚动条所能表示的最大值C）单击滚动条中滚动框前面或后面的部位时，Value属性增加或减小的增量值D）单击滚动条两端的箭头时，Value属性增加或减小的增量值28、按钮控件数组元素是：cA．共享一个事件过程的B．只共享一个Click事件过程的C．共享该控件的所有事件过程D．各自有自己的部分事件过程有如下的记录类型Type studentid As Stringname As Stringage As IntegerEnd Type则正确引用该记录类型变量的代码是：BA．student。
vb100题(含答案)
18. 为了使标签的大小根据其Caption属性的值自动扩大或缩小，则应设置标签的（B ）属性为True。
（A）WordWrap （B）AutoSize（C）Stretch （D）AutoRedraw19. 为了使图片自动调整尺寸以适应图像框的大小，则应设置图像框的（C ）属性为True。
（A）WordWrap（B）AutoSize （C）tretch （D）AutoRedraw20. 如果一个变量未声明其类型，则该变量的类型为（D ）（A）Integer （B）Byte （C）Boolean （D）Variant21. 在程序运行期间将当前文件夹下图形文件File1.jpg装入窗体的图片框Picture1中，用语句（A）Picture1.Picture="File1.jpg"（B）Picture1.Picture=LoadPicture("File1.jpg")（C）LoadPicture("File1.jpg") （D）Call LoadPicture("File1.jpg")22. 在一个较长的程序语句放在几行时，可以用续行符。
续行符是（C ）（A），（B）；（C）_ （D）：23. 下列对象中，（ B ）不是容器（父）控件。
（A）Form （B）Image （C）PictureBox （D）Frame24. 在窗体上建立通用对话框需要添加的控件是（C ）。
（A）Data控件（B）Frame控件（C）CommonDialog控件（D）ComboBox控件25. 在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value 的值是（D）。
（A）True （B）2 （C）0 （D）126.一只红色的足球被踢进球门，则红色、足球、踢、进球门是（ A ）。
(A)属性、对象、方法、事件(B) 属性、对象、事件、方法(C) 对象、属性、方法、事件(D) 对象、属性、事件、方法27. 若在某窗体模块中有如下事件过程Private Sub Command1_Click(Index As Integer)……End Sub则以下叙述正确的是（D ）（A）此事件与不带参数的事件过程没有区别（B）有一个名称为Command1的窗体，单击此窗体则执行此事件过程（C）有一个名称为Command1的控件数组，数组中有多个不同类型的控件（D）有一个名称为Command1的控件数组，数组中有多个相同类型的控件28. 在控件数组中。
高中vb试题题目及答案
高中vb试题题目及答案高中VB试题题目及答案一、选择题1. VB是一种面向对象的编程语言，它的全称是什么？A. Visual BasicB. Visual C++C. Visual FoxProD. Visual Pascal答案：A2. 下列哪个是VB中的保留字？A. MyNameB. DimC. IfD. Print答案：B3. 在VB中，以下哪个语句用于定义变量？A. SubB. FunctionC. DimD. For答案：C4. VB中，哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A5. VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A二、填空题1. 在VB中，________ 语句用于定义一个过程。
答案：Sub 或 Function2. VB中的________ 属性用于设置控件的可见性。
答案：Visible3. VB中，________ 方法用于在文本框中显示文本。
答案：Text4. VB中，________ 属性用于设置控件的标题。
答案：Caption5. VB中，________ 属性用于设置控件的背景颜色。
答案：BackColor三、简答题1. 简述VB中事件处理程序的作用。
答案：事件处理程序是VB中响应用户操作或系统生成的事件的代码块。
当特定的事件发生时，如按钮点击或表单加载，相应的事件处理程序会被执行。
2. 解释VB中的类和对象的区别。
答案：类是一个模板，定义了对象的结构和行为，而对象是类的实例，具有类定义的属性和方法，可以进行操作和交互。
四、编程题编写一个VB程序，实现以下功能：- 创建一个文本框，用于输入数字。
- 创建一个按钮，点击后将文本框中的数字转换为相反数，并在文本框中显示结果。
```vbPrivate Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.ClickDim num As Integernum = Val(TextBox1.Text)TextBox1.Text = (-num).ToString()End Sub```结束语通过本试题的练习，同学们应该对VB的基本语法、控件使用以及事件处理有了更深入的理解。
VB经典例题(附答案)
实验4：编写一个程序。
要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。
在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。
1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。
Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。
设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。
vb的操作题(有答案)
1.（1）在考生文件夹中有工程文件sj126.vbp，其中的窗体如图所示。
程序刚运行时，会生成一个有10个元素的整型数组。
若选中"查找最大值"（或"查找最小值"）单选按钮，再单击"查找"按钮，则找出数组中的最大值（或最小值），并显示在标签Label2中。
请去掉程序中的注释符，把程序中的？改为正确的容。
注意：考生不得修改窗体文件中已经存在的程序。
最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()x = a(1)y = a(1)For i = 2 To 10If Option1.Value = True ThenIf a(i)> x Thenx = a(i)End IfElseIf a(i) < y Theny = a(i)End IfNextIf Option1.Value = True ThenLabel2.Caption = xElseLabel2.Caption = yEnd IfEnd Sub2.（2）在名称为Form1的窗体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。
画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。
将窗体的标题设为"图形控件"。
单击列表框中的某一项，则将所选的值作为形状控件的填充参数。
例如，选择3，则形状控件中被竖线填充。
如图所示。
要求：程序中不得使用变量，每个事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下，工程文件名为sj107.vbp，窗体文件名为sj107.frm。
在Shape控件中，可以用FillStyle属性设置图形的填充图案，0：透明，2：虚线，3：点线，4：点划线，5：双点划线，6：实线。
List控件的Click事件过程为：Private Sub List1_Click()Shape1.FillStyle = List1.TextEnd Sub3.（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为"隐藏"、"显示"（如图所示）。
计算机vb基础知识试题及答案
计算机vb基础知识试题及答案一、选择题（每题1分，共10分）1. VB（Visual Basic）是一种______。
A. 操作系统B. 编程语言C. 网页浏览器D. 数据库管理系统答案：B2. 在VB中，以下哪个是正确的变量声明方式？A. Dim xB. Declare xC. Define xD. Let x答案：A3. VB中的“Sub”过程用于______。
A. 执行代码，但不需要返回值B. 执行代码，并返回一个值C. 声明变量D. 定义类答案：A4. 下列哪个是VB中的循环结构？A. IfB. ForC. SubD. Function答案：B5. VB中的“Option Explicit”语句的作用是______。
A. 声明变量类型B. 强制变量声明C. 定义常量D. 指定默认属性答案：B6. 在VB中，以下哪个是数组的正确声明方式？A. Dim arr(5) As IntegerB. Declare arr(5)C. Define arr(5)D. Let arr(5)答案：A7. VB中的“MsgBox”函数用于______。
A. 显示消息框B. 计算数学表达式C. 打开文件D. 连接数据库答案：A8. 在VB中，以下哪个是正确的条件语句？A. If x = 10 ThenB. If x = 10C. Condition x = 10 ThenD. If x = 10 End If答案：A9. VB中的“Select Case”语句用于______。
A. 条件判断B. 循环控制C. 定义类D. 声明变量答案：A10. 在VB中，以下哪个是正确的函数声明方式？A. Function myFunction As IntegerB. Declare myFunctionC. Define myFunctionD. Let myFunction答案：A二、填空题（每题1分，共5分）11. 在VB中，使用________关键字来声明常量。
复习vb(含小题答案)
（一）算法与程序结构一个算法应包含有限个操作步骤，每一步的完成时间无限制。
（F）22.执行如图所示的程序流程，输出的T是（C）。
A．10 B．20 C．30 D．4041.下列关于算法的说法中，不正确的是（ A）。
A．用自然语言表示算法通俗易懂，描述包含分支和循环的算法方便B．流程图是用一些图框表示各种操作，用图形表示算法，直观形象，易于理解C．伪代码是介于自然语言和计算机语言之间的文字和符号来描述算法D．用计算机语言表示算法必须严格按所用语言的语法规则50.一般算法的三种基本控制结构是（A）。
A．顺序结构、选择结构、循环结构B．顺序结构、循环结构、模块结构C．顺序结构、模块结构、选择结构D．模块结构、选择结构、循环结构（二）vb程序构成模块(Module)是相对独立的程序单元。
TVisual Basic是一种面向对象的可视化程序语言，采用了事件驱动的编程机制。
TVB编程中使用过程可使大程序分解成多个小程序模块，使程序编写与调试变得容易。
T 在VB中，要在一行中写多条语句时，逗号(",")可作为语句间的分隔符。
F11、以下叙述错误的是（ A ）。
A. 一个窗体模块通常包括声明部分、通用过程部分、自定义过程部分B. 全局变量通常在标准模块中定义C. 一个工程中可以包含多个窗体文件D. 窗体和窗体模块是一一对应的31.当一个工程含有多个窗体时，其中的启动窗体是（ D ）。
A. 启动VB时建立的窗体B. 第一个添加的窗体C. 最后一个添加的窗体D. 在“工程属性”对话框中指定的窗体73.以下叙述中错误的是（ A ）。
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B.以.BAS为扩展名的文件是标准模块文件C.窗体文件包含该窗体及其控件的属性D.一个工程中可以含有多个标准模块文件（三）常量与变量静态变量不能在过程中定义而只能在通用声明处中定义。
FPublic可以用于在某过程中定义变量。
- 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、Load + "\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, SCloseCOMSTART、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 = TrueEnd SubPrivate 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,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。