vb经典题目及答案

合集下载

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基础函数试题及答案

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考试试题和答案**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道(附答案)

最新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高中试题及答案一、选择题(每题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编程题及答案

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初级编程试题及答案

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基础期末考试题库及答案

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中,________关键字用于定义一个全局变量。

vb考试试题题库及答案

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复习题(含答案)

VB复习题允许上机调试一、选择题1 设窗体上有一个文本框,名称为text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是: BA)text1.maxlength=0 B)text1.enabled=falseC)text1.visible=false D)text1.width=02 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 CA) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:CPrivate Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是A)分支1 B)分支2 C)Else分支D) 程序出错4 以下关于MsgBox的叙述中,错误的是 D (见书P88-92)A)MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是 DA)Timer1.InterV al=0.5 B) Timer1.Interval=5C) Timer1.Interval=50 D) Timer1.Interval=5006 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:BPrivate Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后,连续三次单击Command1按钮后,窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 67 以下叙述中错误的是DA)事件过程是响应特定事件的一段程序B)不同的对象可以具有相同名称的方法C)对象的方法是执行指定操作的过程D)对象事件的名称可以由编程者指定8 以下合法的V isual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x9 当一个复选框被选中时,它的V alue属性的值是 CA) 3 B) 2 C) 1(复选框被选中显示1,不选中显示0)D) 010 表达式5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 611 设x=4,y=8,z=7,以下表达式的值是Dx<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False12 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: A Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A)VVV B) Vis C) sic D) 1113设有如下程序段:x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后,x的值是 BA) 26 B) 27 C) 38 D) 5714 以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中,将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符15 执行如下两条语句,窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8617 在窗体上画一个名称为Command1的命令按钮,并编写如下程序:DPrivate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后,单击命令按钮,在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 718 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:BOption Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后,单击命令按钮,则在窗体上显示的内容是A) 4 B) 5 C) 6 D)719 阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后,单击窗体,输入结果为 CA)13 B)14 C)27 D)1520 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:D Option Base 1Private Sub Command1_Click()Dim a As V arianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后,单击命令按钮,在窗体上显示的内容是A)1 2 B) 1 2 3 C) 3 4 5 D)4 521.在V isual Basic设计界面中不能隐藏的窗口是( A)。

Vb操作题题库(含答案)

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考试题及答案一、选择题(每题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经典考试题及答案

vb经典考试题及答案VB经典考试题及答案1. 题目:以下哪个选项是中声明变量的正确方式?A. Dim myVarB. Dim myVar As IntegerC. Dim myVar = 10D. Dim myVar As Integer = 10答案:B2. 题目:在中,如何将字符串转换为小写?A. str.ToLower()B. str.ToLowercase()C. str.ToLowerCase()D. str.tolower()答案:A3. 题目:中,下列哪个关键字用于定义一个类?A. ClassB. StructureC. InterfaceD. Module答案:A4. 题目:在中,下列哪个方法用于获取字符串的长度?A. LengthB. SizeC. CountD. Length()答案:A5. 题目:如何声明一个的事件?A. Event MyEvent As EventHandlerB. Declare Event MyEventC. Event MyEvent()D. Declare MyEvent As EventHandler答案:A6. 题目:在中,下列哪个选项是正确的继承语法?A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass As MyBaseClassD. Inherits MyBaseClass MyBaseClass答案:A7. 题目:在中,下列哪个关键字用于捕获所有未处理的异常?A. TryB. CatchC. FinallyD. Throw答案:B8. 题目:在中,如何声明一个只读属性?A. ReadOnly Property MyPropertyB. Property MyProperty As TypeC. ReadOnly Property MyProperty As TypeD. Property MyProperty As Type ReadOnly答案:C9. 题目:在中,下列哪个选项是正确的方法重载声明?A. Sub MyMethod()B. Sub MyMethod(ByVal x As Integer)C. Sub MyMethod(ByVal x As Integer, ByVal y As Integer)D. All of the above答案:D10. 题目:在中,下列哪个关键字用于定义一个结构体?A. StructureB. ClassC. InterfaceD. Module答案:A11. 题目:在中,如何声明一个枚举类型?A. Enum MyEnumB. Type MyEnumC. Const MyEnumD. Define MyEnum答案:A12. 题目:在中,如何声明一个委托?A. Delegate MyDelegate As ActionB. Delegate MyDelegateC. Function MyDelegate()D. Sub MyDelegate()答案:B13. 题目:在中,下列哪个关键字用于定义一个接口?A. InterfaceB. ClassC. StructureD. Module答案:A14. 题目:在中,如何声明一个数组?A. Dim myArray() As IntegerB. Dim myArray As Integer()C. Dim myArray As IntegerD. Dim myArray As Integer[10]答案:A15. 题目:在中,如何使用LINQ查询一个数组?A. From item In myArray Select itemB. For Each item In myArrayC. For item In myArrayD. All of the above答案:A。

(完整word)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考试试题及答案

vb考试试题及答案

vb考试试题及答案一、选择题1. VB中,用于声明变量的关键字是:A. DimB. DeclareC. ConstD. Option答案:A2. 在VB中,下列哪个选项不是合法的变量名?A. _myVarB. var2C. 123variableD. my$Var答案:C3. VB中,下列哪个选项是正确的条件语句?A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案:A4. VB中,下列哪个函数用于计算字符串的长度?A. Len()B. Length()C. StrLen()D. Size()答案:A5. 在VB中,下列哪个选项是正确的循环结构?A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案:D二、填空题1. 在VB中,声明一个整型变量并赋值为100的语句是:________。

答案:Dim myVar As Integer = 1002. VB中,用于输出信息到立即窗口的函数是:________。

答案:Debug.Print3. VB中,用于暂停程序执行的函数是:________。

答案:Sleep4. VB中,用于获取当前日期的函数是:________。

答案:Date5. VB中,用于将字符串转换为整型的函数是:________。

答案:CInt三、简答题1. 简述VB中事件驱动编程的概念。

答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、系统消息等)触发,而不是由程序内部的逻辑顺序决定。

2. 描述VB中如何实现多线程编程。

答案:在VB中,可以使用Thread类或BackgroundWorker组件来实现多线程编程。

vb练习题(含答案)

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考试题及答案解析一、选择题(每题2分,共20分)1. 在Visual Basic中,以下哪个关键字用于声明变量?A. DimB. FunctionC. SubD. Class答案:A2. 下列哪个选项是Visual Basic中的保留字?A. MainB. IfC. ElseD. My答案:B3. 在Visual Basic中,以下哪个函数用于将字符串转换为数字?A. StrB. ValC. ChrD. Asc答案:B4. 以下哪个控件用于在Visual Basic中显示文本?A. LabelB. TextBoxC. ComboBoxD. CheckBox5. 在Visual Basic中,如何表示“或”逻辑运算?A. AndB. OrC. NotD. Xor答案:B6. Visual Basic中,以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text答案:A7. 在Visual Basic中,以下哪个事件用于响应按钮点击?A. ClickB. DoubleClickC. MouseDownD. KeyPress答案:A8. Visual Basic中,以下哪个关键字用于循环结构?A. ForB. WhileC. DoD. All of the above答案:D9. 在Visual Basic中,以下哪个函数用于获取当前系统时间?B. DateC. TimeD. Timer答案:A10. 以下哪个选项是Visual Basic中的错误处理语句?A. TryB. CatchC. FinallyD. All of the above答案:D二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________关键字可以声明一个数组。

答案:Dim2. 如果需要在Visual Basic中创建一个自定义函数,应该使用________关键字。

vb100题(含答案)

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精选试题及答案一、单项选择题(每题2分,共20分)1. 在VB中,以下哪个关键字用于声明变量?A. DimB. ConstC. FunctionD. Sub答案:A2. VB中数组的默认下标是从哪个数字开始的?A. 0B. 1C. -1D. 2答案:B3. 在VB中,以下哪个函数用于计算字符串的长度?A. LenB. UBoundC. LBoundD. Sqr答案:A4. VB中,哪个属性用于获取或设置一个窗体的标题?A. CaptionB. TextC. TitleD. Label答案:A5. 在VB中,以下哪个事件用于响应鼠标单击窗体?A. ClickB. DblClickC. MouseDownD. MouseUp答案:A二、填空题(每题3分,共15分)1. 在VB中,声明一个整型变量的正确语法是________。

答案:Dim myVar As Integer2. VB中,用于定义一个过程的关键字是________。

答案:Sub 或 Function3. VB中,用于读取用户输入的函数是________。

答案:InputBox4. VB中,用于打开文件的语句是________。

答案:Open5. VB中,用于关闭文件的语句是________。

答案:Close三、简答题(每题5分,共10分)1. 请简述VB中的事件驱动编程是什么?答案:事件驱动编程是一种编程范式,程序的执行流程由外部事件(如用户操作、消息、信号等)触发。

在VB中,用户可以通过编写事件处理程序来响应这些事件。

2. VB中如何实现循环结构?答案:在VB中,可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。

四、编程题(每题10分,共20分)1. 编写一个VB程序,计算并输出1到100之间所有偶数的和。

答案:请参考以下代码:```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是:" & sum```2. 编写一个VB程序,判断一个给定的年份是否为闰年。

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中函数的使用。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 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,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其它部分。

相关文档
最新文档