经典VB练习题(一级)
VB经典的程序设计题
累加求和1到100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub1到100的奇数和Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100 step 2sum = sum + iNextText1.Text = sumEnd SubPrivate Sub Command2_Click()End求n!Private Sub Command1_Click()Dim fact As Double, n As Integer, i As Integer n = Val(Text1.Text)fact = 1For i = 1 To nfact = fact * iNextText2.Text = factEnd Sub累加求和1到100（Do while）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do While i <= 100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub（Do Until）Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0i = 1Do until i >100sum = sum + ii = i + 1LoopText1.Text = sumEnd SubPrivate Sub Command2_Click()EndEnd Sub求平均成绩Private Sub Command1_Click()Dim a As Single, b As Single, c As Single, d As Single Dim pj As Singlea = 60:b = 70:c = 80:d = 90pj = (a + b + c + d) / 4Text1.Text = Str(pj)End Sub求圆的周长Private Sub Command1_Click()Dim r As DoubleConst pi = 3.1415926r = Val(InputBox("请输入圆的半径"))Print "圆的周长为:", 2 * pi * rEnd Sub输入两个整数m n，使得m>=n,并输出m nPrivate Sub Command1_Click()Dim m As Integer, n As Integer, a As Integerm = Val(InputBox("请输入m:", 输入, "m"))n = Val(InputBox("请输入n:", 输入, "n"))If n > m Thena = mm = nn = aEnd IfPrint "m=", mPrint "n=", nEnd Sub计算sum=1/1!+1/2!......+1/10!Private Sub Command1_Click()Dim m As Integer, n As Long, s As Doublen = 1s = 0For m = 1 To 10n = n * ms = s + 1 / nNextPrint sEnd Sub定义一个下标上界为10的整型数组，并随机函数为其赋值（值处于【0,100】之间，计算数组中所有偶数的和Private Sub Command1_Click()RandomizeDim a%(10)Dim i%, s%For i = 0 To 10a(i) = 101 * Rnd()NextFor i = 0 To 10If a(i) Mod 2 = 0 Thens = s + a(i)End IfNextPrint "所有偶数的和为:", sEnd Sub输入一个四位数，分别输出它的个位数字、十位数字、百位数字、和千位数字。
Visual Basic程序设计综合练习题一及答案
Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。
A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）C．分别保存工程文件和标准模块文件(.bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中，变量的默认类型是（）。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
VB基础部分(练习题)
语言基础单选1、与传统的程序设计语言相比，Visual Basic 最突出的特点是：A 结构化程序设计B 程序开发环境C事件驱动编程机制 D 程序调试技术2、假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口设置窗体的属性，预先应执行的操作是：A 单击窗体上没有控件的地方B 单击任一个控件C 不执行任何操作10D 双击窗体的标题栏3、在Visual Basic工程中，可以+-*作为启动对象的程序是A 任何窗体或标准模块B 任何窗体或过程C Sub Main过程或其他任何模块D Sub Main过程或任何窗体4、以下叙述中错误的是A 一个工程可以包括多种类型的文件B Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C程序运行后，在内存中只能驻留一个窗体D 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样5、以下叙述中错误的是A 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B 保存Visual Basic程序时，应分别保存窗体文件及工程文件C Visual Basic应用程序只能以解释方式执行D 事件可以由用户引发，也可以由系统引发6、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A如果工程中含有Sub Main过程，则程序一定首先执行该过程B 不能把标准模块设置为启动模块C 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D 任何时刻最多只有一个窗体是活动窗体7、下列可以作为Visual Basic的变量名的是：A FileNameB a(A+b)C 23D D print8、以下声明语句中错误的是A Const var1=123B Dim var2 = 'ABC'C public a,b as integerD Static var3 As Integer9、以下运算符中，不是逻辑运算符的是：A OrB XorC ImpD mod10、下列选项中，把r定义为双精度型变量的是：A r%B r!C r#D r$11、用来将数值转换为字符串类型的函数是:A Chr$()B Asc()C Str$()D Val()12、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()X = 12345Print Format$(X, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是A 123.45B 12345.00C 12345D 00123.4513、inputBox函数的返回值类型是：A 数值B 字符串C 变体 D数值或字符串（视输入的数据而定）填空1、在VB中，Len(“共产党”)的值是：_3______________；执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是：__6_____________2、语句print “25+32”的结果是：_25+32__________________3、设a=2,b=3,c=4,d=5，则表达式3>2*b OR a=c AND b<>c OR c>d的值是：_____false_________ ；NOT a<=c OR 4*c=b^2 AND b<>a+c的值是_____________4、以下语句的输出结果是：_3______a%=3.14159Print a%5、在VB中，工程文件的扩展名是.VBP，窗体文件的扩展名是.____ ___________。
VB试题1（4）1
Visual Basic练习题1、当文本框的内容发生变化时，必将触发（ C ）事件。
A、LostFocusB、KeyPressC、ChangeD、Click2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。
A、INT(X)B、ABS(X)C、SQR(X)D、SGN(X) 即“取正负号函数”3、下列Visual Basic程序段运行后，变量a、b、c的值为（）。
a = 1 :b = 1 :c = 1Do While a + b + c < = 10a = a + 1b = b * 2c = b / 2LoopA、2 2 1B、3 4 2C、4 8 4D、4 4 24、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。
A、设计B、运行C、中断D、工具5、要改变控件的高度，应改变（A）属性。
A、HeightB、WidthC、TopD、Left6、下列Visual Basic程序段运行后，变量x的值为（ C ）。
x = 3y = 77Dox = x + 2Loop Until x > Sqr (y)A、 7B、8C、9D、107、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。
A、命令按钮B、标签控件C、文本控件D、定时器控件8、下列（ D ）表达式的值不等于4。
A、Int (4.1)B、Int (4.9)C、Abs (int (-3.9))D、Abs (int (-4.5))9、下列Visual Basic程序段运行后，变量m 的值为（ B ）。
a = 2 :b = 1 :c = 5If a < b Then m = a Else m = bIf c < m Then m = cA、2B、1C、5D、三项答案均不是10、窗体模块文件的扩展名是（A）。
A、frmB、basC、vbpD、txt11、对象的三个要素是（A）。
VB经典例题13道(附答案)
1. 一串字符求有多少字母，有多少数字，有多少其他Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonl.ClickDim s, c, q, w, rs = TextBoxl.TextFor i = 1 To Len(s)c = Mid(s, i, 1)If UCase(c) >= "A" And UCase(c) <= "Z" Thenq = q + 1Elself 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, i s = TextBox1.Text a = Mid(s, 1, 1) i = 1Do While a <> "?"If UCase(a) >= "A" And UCase(a) <= "Z" Then z = z + 1Elself 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.45Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim s, c, js = TextBox1.Textc = Trim(Str(s))If Int(c) = c ThenIf c >= 0 ThenLabell.Text ='是"& Len(c) & "位数" ElseLabell.Text ="是"& Len(c) - 1 & "位数" End IfElseFor 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 Sub1111 _ 714. 求圆周率公式厂衬厂7七’Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, s, n, pi a = 1 n = 1While Math.Abs(1 / n) > 0.0001 pi = pi + a * (1 / n) n = n + 2 a = -aEnd WhileLabel1.Text = 4 * piEnd Sub5. 求自然对数e 公式e=1+1+1/2!+1/3!+…+巾+ •••.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, e1, l n = 1 e1 = 1While 1 / n > 0.01l = 1For i = 1 To nl = l * iNextn = n + 1el = el + 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)s =""Label1.Text &= Space(n - i)Forj = 1 To i s &= "*"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 ns =""Label1.Text &= Space(n - i)Forj = 1 To 2 *i - 1 s &= "*"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(TextBoxl.Text)For i = n To 1 Step -1s =""Labell.Text &= Space(n - i)For j = 2 * i - 1 To 1 Step -1 s &= "*"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 -1 s &= "*"NextLabel1.Text &= s & vbCrLfNextEnd Sub10. 菱形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n, sLabel1.Text =""Fori = 1 To 6s =""Label1.Text &= Space(i - 1)Forj = 1 To 12 s &= "*"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, c s = Val(TextBoxl.Text)Labell.Text =""a=s\100b = (s - a * 100) \ 10c = s Mod 10If a A 3 + b A 3 + c A 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 A 3 + b A 3 + c A 3 = s ThenLabel1.Text &= s & vbCrLfEnd IfNextEnd 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 IfNextFori = 1 Tojl = l + a(i)NextIf l = s ThenLabel1.Text = s & 是完全数”ElseLabell.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 Then j = 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 &= vbCrLf NextEnd Sub。
vb练习题及答案
vb练习题及答案VB练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。
为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。
练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。
要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。
解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。
要求用户输入学生的姓名和成绩，然后将其保存到数组中。
用户可以通过输入姓名来查询学生的成绩。
解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。
vb6.0试题 1
vb6.0练习题及答案一,选择题1.在设计应用程序时,可以查看到应用程序工程中的所有部分的窗口是( ) . A.窗体设计.代码C.属性D.工程资源管理器窗口2.窗体的Load 事件的触发时机是( ) . A.用户单击窗体时B.窗体被加载时C.窗体显示之后D.窗口被卸载时>> 答案:b3.与传统的程序设计语言相比,Visual Basuc 最突出的特点是( ) . A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术答案:C4.VB6.0 集成开发环境的主窗口包括( ) . A.标题栏B.菜单栏C.状态栏D.工具栏答案:c5.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是( ) . A.Text.Mytext B.Mytext.text C.Mytext.(Text) D.Mytext*Text 答案:b6.下列可以激活属性窗口的操作是( ) . A. 用鼠标双击窗体的任何部位B. "工程" 执行菜单中的"属性窗口" 命令 C. Ctrl+F4 按D.按F4键答案: b d7.假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应制造的操作是( ) . A.单击窗体上没有控件的地方 B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏答案:a8.如果在文本框中键入字符时,只显示某个字符,如星号(*) ,应设置文本框的( )属性.A.CaptionB.PasswordCharC.TextD.Char 答案:b9.如果想让文本框中的内容在运行时不能编辑,需将文本框的( )属性设置为True.A.LockedB.MultiLineC.TabStopD.Visible 答案:a10.对于定时器(Timer)控件,设计其定时是否开启的属性是( ) . A.Index B.Tag C.EnabledD.Left 答案:c11.要在窗体Form1 内显示"myfrm" ,使用的语句是( ) . A.Form.Caption="myfrm"B.Form1.Caption="myfrm"C.Form1.Print="myfrm"D.Form.Print="myfrm" 答案:b12.对象的性质和状态特性称为( ) . A.事件B.方法C.属性D.类答案:c13.下列正确的赋值语句是( ) . A.x+y=20 B.y=x+20C.3x=y D.s=π*r*r 答案:b14.当使用上下文相关的帮助时,选择要帮助的内容,然后按( )键,就可出现MSDN 窗口直接显示所需的帮助信息. A.Help B.F10 C.ESC D.F1答案:d15.将调试通过的工程经"文件"菜单的"生成.exe.文件"编译成名.exe 后,就该可执行文件放到其它机器上不能运行的主要原因是( ) A.运行的机器上无VB 系统 B.缺少.frm . 文件C.该可执行文件有病毒D.以上原因都不对答案: d二,填空题1.当进入VB 集成开发环境后,发现没有显示"工具箱"窗口,应选择(视图)菜单的(工具箱)选项, 使"工具箱"窗口显示. 答案:2.在VB 中,事件过程名由(Sub ) 和(事件名称()) 构成. 答案:3.工程文件的扩展名是(vbp ) ,窗体文件的扩展名是(frm) . 答案:.4.对象是代码和数据的集合,例如,Visual Basic 中的(窗体文本框命令按钮) ,等都是对象. 答案:5.对象的方法应用于(程序代码中) .当对象不需要任何参数并且也没有返回值时,调用对象的方法的格式为(对象名.方法名) .例如,对窗体Form1 使用Show 方法,应写成(Form1.Show) . 答案:6.要使文本框显示滚动条,需要将其(Multiline ) 属性设置为(True) . 答案:7.欲设置定时器的时间间隔为4 秒,则属性的Interval 属性设置为(4000)8.要使标签框的大小随Caption 属性作自动调整,应将(AutoSize) 属性设置为(True )9.通过(StartUpPosition) 可以在设计时直观地调整窗体在屏幕上的位置10.要想在代码中给名为txtshow 的文本框赋予文本:GOOD WORK!时,应当编写的语句是(txtshow.Text="GOOD WORK !) . 答案: "11.若命令按钮的名称为Cmdopen,程序要求单击以上命令按钮时,打开一个窗口frm1 时, 请对以下事件过程填空. Private Sub Cmdopen( ) ) End Sub ( 答案:Click( ) frm1.Show12.事件就是在对象上所方式的事情,Visual Basic 中的事件如( ) ) )等.一个对象( ( 响应的事件可以有() 个,用户不能建立新的事件.事件过程是指( ) .假设一个事件过程如下: Private Sub cmd1_Click( ) Form1.Caption="VB 示例" End Sub 则响应该过程的对象名是( ) ,事件名是( ) . 答案:Click 事件DbClick 事件Load 事件多由事件来驱动应用程序执行一段VB 代码cmd1 cmd1_Click( ) True13.对象的方法应用于(程序代码中) .当对象不需要任何参数并且也没有返回值时,调用对象的方法的格式为(对象名.方法名) .例如,对窗体Form1 使用Show 方法,应写成(Form1.Show ) . 答案:14. 为了在编写代码时能自动进行语法检查, 必须执行) 菜单中的) 命令, ( ( 打开("工具" "选项") 对话框,然后选择"编辑器"选项卡中的("选项" "自动语法检测" ) . 答案:15.定时器控件可识别的事件是(Timer) ,发生该事件的时间间隔由定时器的(Interval) 属性设置,其单位为(毫秒) . 答案:三,简答题1.什么是可视化编程和事件驱动?答案: 编程人员只需针对某个事件编写程序代码称为可视化编程. 应用程序是在响应不同的事件时执行不同的代码片段称为事件驱动.2.对象,属性,事件和方法指的关系任何?答案:窗体和控件是创建应用程序所使用的对象,方法是对象的动作,事件是对象的响应, 属性可看作对象的性质.3.简述事件驱动编程机制与传统编程方式的不同.答案:传统编程方式是结构化程序设计,它从系统的功能入手,按照工程的标准和严格的规范将系统分解为若干功能模块, 系统是实现功能模块的函数和过程的集合. 事件驱动编程则是从所处理的数据入手,以数据为中心而不是以服务(功能)为中心来描述系统.它把编程问题视为一个数据集合,数据相对于功能而言,具有更强的稳定性.事件驱动编程与传统编程方式相比,最大的区别在于:前者首先关系关心的是所要处理的数据,而后者首先关心的是功能.4.简述事件驱动的工作过程. 答案:答:事件驱动的工作过程为: 1.启动应用程序,装载和显示窗体. 2.窗体或窗体上的控件等待事件的发生. 3.当某个事件发生后,执行其对应的事件过程代码. 4.重复执行第 2 和第 3 步,直到遇到End 语句或单击结束按钮停止程序的运行.四,程序设计题1.在窗体上添加一个文本框和两个命令按钮,并把两个命令按钮的标题分别色绘制为"隐藏文本框"和"显示文本框" .当单击第一个命令按钮时,文本框消失;而当单击第二个命令按钮时,文本框重新出现,并在文本框显示"VB 程序设计" (字体大小为16)程序运行界面如图 1 所示. 图一答案:程序代码: Private SubCommand1_Click() Text1.Visible = False End Sub PrivateSub Command2_Click() Text1.Visible = True Text1.Text ="VB 程序设计" End Sub2.设计一个计算程序.该程序用户界面如图2 所示,由四个文本框:文本框1(text1) ,文本框2 text2) 文本框3 text3) 文本框4 text4) 和三个命令按钮: ( , ( , ( , 命令按钮1 command1) ( , 命令按钮2(command2) ,命令按钮3(command3)组成.程序运行后,用户按清除按钮, 则清除文本框中显示的内容,按计算按钮,则计算三科平均成绩.单击退出按钮则退出. 图二答案: 程序代码:Private Sub Command1_Click() Text1.Text = ""Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command2_Click() Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End Sub Private Sub Command3_Click() End End Subvb试卷2-答案1．在代码中引用一个控件时，应使用控件的（）属性。
《VB6.0》练习题一
09微机升学班《Visual Basic6.0》练习题一一、选择题：1、窗体上有一个列表框和一个文本框，编写如下两个事件过程：Private Sub Form_Load()List1.Additem＂Beijing＂List1.Additem ＂Tianjin＂List1.Additem＂Shanghai＂Text1.Text= ＂＂End SubPrivate Sub List1_DblClick()x=List1.TextPrint X+Text1.TextEnd Sub程序运行后，在文本框中输入＂China＂,然后双击列表框中的＂Shanghai＂,则输出结果为________。
A.China BeijingB.China TianjinC.China ShanghaiD.Shanghai China2、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程；Private Sub Form_Load()List1.AddITem＂357＂List1.AddITem＂246＂List1.AddITem＂123＂List1.AddITem＂456＂Text1.Text=＂＂End SubPrivate Sub List1.DblClickOM=List1.TextPrint M+Text1.TextEnd Sub程序运行后,在文本框中输入“123”,然后双击列表框中的“456”,则输出结果为________。
A.1245B.456123C.123456D.03、在列表框中当前被选中的列表项的序号是由下列________属性表示的。
A.ListB.IndexC.ListlndexD.False4、在Visual Basic中，组合框是文本框和________特性的组合。
A.复选框B.标签C.列表框D.目录列表框5、为组合框Combol增加一个数据项"计算机"，下列命令正确的是________bol.Text="计算机"bol.ListIndex="计算机"bol.Addltem "计算机"bol.ListCount="计算机"6、执行了下面的程序后，组合框中数据项的值是________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB实验一
一. 实验目的：能够编写简单的程序
二. 复习：
编写程序的一般步骤
（1）界面设计：新建一个工程
（2）设置对象控件属性
（3）编写代码
（4）保存文件
（5）运行并调试程序
三. 实验内容：
先在自己帐号（Z盘）文件夹中新建一个“VB实验一”文件夹，按照下来各题要求编制程序，并上机调试和运行：保存文件按照第1题的格式保存。
题目1、在窗体上放置一个文本框和“OK”命令按钮。
单击命令按钮，文本框中会出现 "Hello , world!" 文字。
(提示：新建“第1题”文件夹，在该文件夹下，将“窗体”保存为frm1.frm，工程保存为V1.vbp)
设计界面如图1-23所示：
图1-23 设计界面
实验步骤：
步骤一：创建应用程序界面：如图图1-23（一个文本框和一个命令按钮）
步骤二：属性设置
步骤三：编写代码
双击命令按钮控件后出现的代码编辑器窗口，以及该命令的事件。
图1-24代码编辑器窗口
在 Sub 和 End Sub 语句之间输入下面的代码：
Text1.Text = "Hello, world!"
完整的事件过程应该是：
Private Sub Command1_Click ()
Text1.Text = "Hello, world!"
End Sub
步骤四、保存文件，先保存窗体，再保存工程
（1）．选择“文件”→“保存Form1”，在文件另存为对话框中输入窗体文件名：“frm1”
（2）．选择“文件”→“保存工程”，在文件另存为对话框中输入工程文件名：“V1”步骤五、运行工程，选择“运行”菜单→“启动”或直接按“F5”键或直接按工具栏的“ ”单击刚才在窗体上创建的命令按钮，文本框中就会显示 "Hello, world!"。
题目2、在窗体上建立一个文本框，当单击窗体时，在文本框中显示“你单击了窗体”。
(提示：新建“第2题”文件夹，在该文件夹下，将“窗体”保存为frm2.frm，工程保存为V2.vbp)
题目3、设计一个窗体，当在窗体上双击鼠标时，能将窗体最大化，且窗体背景颜色设为蓝色。
(提示：窗体最大化的属性为WindowState属性；背景颜色属性BackColor。
除以上属性之
外，同时对窗体的其他属性（BoderStyle属性、Caption属性、MaxButton属性、MinButton 属性进行自我练习）
题目4、新建一工程，修改窗体属性如下：
(1) 设置窗体的标题栏图标（Icon）属性：“VB实验一\msn.ico”
(2) 设置窗体的背景图像（Picture）属性：“VB实验一\ leaves.jpg”
(3) 设置窗体没有最小化和最大化按钮
(4）设置窗体启动时位于屏幕的中心
(5）设置窗体大小为宽12000高10000
在窗体上添加一标签，并修改标签属性如下：
（1）将标签的Caption属性设置为“欢迎进入本系统”；
（2）标签位置为top=80,left=0；
（3）标签根据内容自动调整大小（Autosize）；
（4）标签字体颜色为红色，字号42号，加粗；
（5）标签有边框；
（6）标签为透明；
在窗体上添加一命令按钮，并修改命令按钮属性如下：
（1）命令按钮的Caption属性设置为“移动”
（2）命令按钮背景颜色为黄色
（3）设置命令按钮的图片为：VB实验一\ arrow_green_mouseover.bmp
设置命令按钮的单击事件，当单击命令按钮时标签往右移动100twip。
题目5、在窗体上放置一个文本框和“隐藏”、“显示”两个命令按钮，文本框中显示“Visual Basic的使用”。
当单击“隐藏”按钮时，隐藏文本框；当单击“显示”按钮时，显示文本框。
并在文本框中显示“你单击了显示按钮”。
窗口设计界面
题目6.建立一个显示当前时间的窗体，将窗体名称改为frmTime。
在窗体上添加3个命令按钮，将它们的名称属性分别改为cmdRed、cmdBlue和cmdExit，Caption 属性分别设置为“红色”、“蓝色”和“退出”。
再添加一个标签按钮，不修改其名称。
利用Visual Basic的Time函数获取当前的系统时间，并将时间的值在标签中显示。
要求程序一启动就在标签中显示机器的当前时间，且单击cmdRed按钮标签字体变红色、时间也相应改变，单击cmdBlue 按钮程序无任何反应，单击cmdExit按钮程序退出运行。