计算机二级vb作业集
- 格式:doc
- 大小:1.58 MB
- 文档页数:49
Private Sub Command1_Click()Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)s = 0For i = 1 To ns = s + i ^ 2Next iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerOpen App.Path & "\" & "yssj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()''' 不得删除本行注释Dim i As IntegerText1.Text = ""For i = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & Str(a(i)) End IfNext iEnd SubPrivate Sub command1_Click()'''不得删除本行注释Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text)a = 0b = 0For i = 1 To na = a + ib = b + aNext iText2.Text = bEnd SubPrivate Sub Command1_Click()'''不得删除本行注释Dim i%, xh$, xm$Open App.Path & "\" & "Xhxm.txt" For Output As #1For i = 1 To 3xh = InputBox("请输入学号")xm = InputBox("请输入姓名")Write #1, xh, xmNext iClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim s as stringOpen App.Path & "\" & "Xhxm.txt" For Input As #2Do While Not EOF(2)Line Input #2, sText1.Text = Text1.Text & s & vbCrLf LoopClose #2End SubPrivate Sub Command1_Click()‘”读取文件”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & “jmwb.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text)n = Len(s)co = ""For i = 1 To nc = Mid(s, i, 1)p = Asc(c) + 5co = co + Chr(p)Next iText2.Text = coEnd SubPrivate Sub command1_click()'''不得删除本行注释For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)) Next NEnd Sub Private Sub Command2_Click()'''不得删除本行注释Dim m As Integer, K As IntegerFor N = 1 To 15For m = N + 1 To 15If x(m) > x(N) ThenK = x(N)x(N) = x(m)x(m) = KEnd IfNext mText2.Text = Text2.Text + Str(x(N)) Next NEnd SubPrivate Sub Command1_Click()Dim char As String * 1char = Trim(Text1.Text)If Not IsNumeric(char) ThenIf (Asc(char) >= 65 And Asc(char) <= 90) Or _(Asc(char) >= 97 And Asc(char) <= 120) ThenLabel1.Caption = "输入的是字母"Else: Label1.Caption = "输入的是其它符号"End IfElse: Label1.Caption = "输入的是数字"End IfEnd SubPrivate Sub Command1_Click()Text1.Text = UCase(Text1.Tag)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Tag)End SubPrivate Sub Command3_Click()Text1.Text = Text1.TagEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区End SubPrivate Sub command1_Click()''' 不得删除本行注释Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = a + b + Abs(a - b)max = max / 2min = a + b - Abs(a - b)min = min / 2max = max + c + Abs(max - c)max = max / 2min = min + c - Abs(min - c)min = min / 2Text4.Text = maxText5.Text = minEnd SubPrivate Sub Command1_Click()Dim a As IntegerIf Not IsNumeric(Text1.Text) ThenMsgBox "请输入数字!", 48, "输入的不是数字"Else a = Val(Text1.Text)If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 ThenText2.Text = "闰年"Else: Text2.Text = "非闰年"End IfEnd ifText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" Open App.Path & "\" & "jfwj.txt" For Output As #1For i = 1 To nPrint #1, String(i, "*")Next iClose #1End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerFor i = 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 ThenText1.Text = Text1.Text + Str(i)End IfNextEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim sum As Single, i As IntegerOpen App.Path & "\" & "Jsdata.txt" For Input As #1 For i = 1 To 15Input #1, Arr(i)Next iClose #1If Op1 ThenT1.Text = AaaEnd IfIf Op2 ThenT1.Text = BbbEnd IfEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As Integer, n As Integer, s As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" s = 0For i = 1 To nIf i Mod 3 = 0 Thens = s + iEnd IfNext iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a)‘ zh过程在原本的程序代码中已经有了~直接可用End SubPrivate Sub Command1_Click() ''' 不得删除本行注释Dim x As DoubleDim y As Doublex = Val(Text1.Text)If x < 10 Theny = x - 1ElseIf x < 20 Theny = 2 * x - 1Else: y = 3 * x - 1End IfText2.Text = yEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Text1.Text = ""Open App.Path & "\" & "zfwj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & " " & a(i)Next iClose #1End Sub Private Sub Command2_Click()''' 不得删除本行注释Dim t As StringText2.Text = ""For i = 1 To 10t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tText2.Text = Text2.Text & " " & a(i) Next iEnd SubPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = Val(Text1.Text)b = Val(Text2.Text)Label1.Caption = Int(Rnd() * (b - a + 1) + a) Label2.Caption = Int(Rnd() * (b - a + 1) + a) Label3.Caption = Int(Rnd() * (b - a + 1) + a)End SubPrivate Sub Command1_Click()Dim s as stringOpen App.Path & "\" & "Bdata.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10) LoopClose #1End SubPrivate Sub Command1_Click()'''不得删改本行注释Dim n As Integern = Val(Text1.Text)If n < 100 Or n > 999 ThenMsgBox "请输入三位正整数", , "输入出错" Else: Text2.Text = Int(n Mod 10)Text3.Text = Int((n Mod 100) / 10)Text4.Text = Int(n / 100)End IfEnd SubPrivate Sub Command1_Click()'产生按钮的代码i = List1.ListIndexFor i = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click() ’清除按钮的代码List1.ClearList2.ClearEnd Sub Private Sub Command2_Click()'''不得删改本行注释Dim n As Double, j As Integeri = List1.ListIndexFor i = List1.ListCount - 1 To 0 Step -1 n = Val(List1.List(i))If n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command1_Click()‘”读入数据”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & "yy.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integerx = Trim(Text1.Text)n = Len(x)p = 0For i = 1 To ny = UCase(Mid(x, i, 1))If y >= "A" And y <= "Z" Thenp = p + 1End IfNext iLabel1.Caption = "共" & p & "个字母"End SubPrivate Sub Command1_Click()'''不得删除本行注释Dim n As Integer, k As Integer, i As IntegerFor n = 200 To 300k = Int(Sqr(n))For i = 2 To kIf n Mod i = 0 Then Exit ForNext iIf i > k Then List1.AddItem nNext nEnd Sub。
计算机二级《VB》备考练习题及答案1[单选题] 数据库设计中反映用户对数据要求的模式是()。
A.内模式B.概念模式C.外模式D.设计模式参考答案:C参考解析:数据库系统的三级模式是餐念摸式、外模式和内模式。
概念模式是数据库系统中全局数据逻辑结构的描述,是全体用户公共数据视图。
外模式也称子模式或用户模式,它是用户的数据视图,给出了每个用户的局部囊据描述,所以选择C。
内模式又称物理模式,它给出了数据库暂理存储结构与物理存取方法。
2[单选题] 有如下数据定义语句:Dim X,Y As Integer以上语句表明()。
A.x、Y均是整型变量B.x是整型变量,Y是变体类型变量C.X是变体类型变量,Y是整型变量D.x是整型变量,Y是字符型变量参考答案:C参考解析:用Dim可同时定义多个变量,但变量要l分别声明其数据类型,如果不声明数据类型,默认是Variant变I体型变量。
l本题中,变量x定义时没声明数据类型,所以为Variant型I变量,变量Y是整型变量。
故c选项正确。
3[单选题] 现有如下语句:X=IIf(a>50,Int(a\3),a Mod 2)当a=52时,X的值是()。
A.0B.1C.17 D.18参考答案:C参考解析:首先计算Int(a、3)即Int(52、3)=IInt(17)=17,52 MOD 2结果为0。
I再计算IIf(52>50,17,0),52>50结果为True,所以IIF l函数返回l7,则x值为l7,故选C。
4[单选题] 在窗体上画一个水平滚动条,其属性值满足MinA.增加一个SmallChange量B.减少一个SmallChange量C.增加一个LargeChange量D.减少一个LargeChange量参考答案:A参考解析:当水平滚动条的属性值kiln本题单击的是滚动条右端的箭头,故Vlaue属性值应该是增加一个SmaUChange量。
故选A。
5[单选题] 以下不能触发滚动条Change事件的操作是()。
全国计算机二级《VB》练习题及答案(2)全国计算机二级《VB》练习题及答案16.执行语句s=Len(Mid("VisualBasic",1,6))后,s的值是(A)(单)A.VisualB.BasicC.6D.1117.以下叙述中错误的是(D)(单)A.下拉式菜单能用菜单编辑器建立B.在多窗体程序中,每个窗体都可以建立自己的菜单系统C.能够对菜单项的Click事件编程D.如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见18.在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click( )a = "12345"Print Format$(a, "000.00")End Sub程序运行后,单击命令按钮,窗体上显示的是(B)(单)A.123.45B.12345.00C.12345D.00123.4519.以下关于函数过程的'叙述中,正确的是(A)(单)A.函数过程形参的类型与函数返回值的类型没有关系B.在函数过程中,过程的返回值可以有多个C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递D.如果不指明函数过程参数的类型,则该参数不能有数据类型的参数20.以下关于变量作用域的叙述中,正确的是(C)(单)A.用dim定义变量是静态变量B.静态变量必须在标准模块中声明C.用public定义变量是全局变量D.Static类型变量的作用域范围是它所在的窗体或模块文件21.确定一个控件在窗体上的位置的属性是(C)(单)A.Width和HeightB.Width或HeightC.Top和LeftD.Top或Left22.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后,如果单击命令按钮,则在文本框中显示的是(C)(单)A.VisualB.BasicC.ProgramD.出错23.以下关系表达式中,其值为False的是(A)(单)A."ABC">"AbC"B."the"<>"they"C."VISUAL"=UCase("Visual")D."Integer">"Int"24.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)A.0B.1C.2D.325.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:Private Sub Command1_Click( )strText = InputBox("请输入")Text1.Text = strTextEnd SubPrivate Sub Text1_Change( )Label1.Caption = Right(Trim(Text1.Text), 3)End Sub程序运行后,单击命令按钮,如果在输入对话框中输入abcdef,则在标签中显示的内容是(D)(单)A.空B.abcdefC.abcD.def26.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )x = -5If x >0 Theny = x ^ 2Elsey = xEnd IfPrint yEnd Sub程序运行后,单击命令按钮,窗体上显示的是(A)(单)A.-5B.25C.1D.-127.一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Pubilc X AsInteger,在Model1中有语句Pubilc Y As Integer,则以下叙述中正确的是(A)(单)A.变量X、Y的作用域相同B.Y的作用域是Model1C.在Form1的任何地方中可以直接使用YD.在Form2中可以直接使用X和Y28.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。
1.基本操作题(1)新建一个名为“图书管理”的项目。
(2)在项目中建立一个名为“辅导书”的数据库。
(3)将考生文件夹下的所有自由表添加到“辅导书”数据库中。
(4)在项目中建立查询book_qu,查询价格大于等于27的图书(book表)的所有信息,查询结果按价格升序排序。
【参考答案】(1)在“命令”窗口输入命令:CREATE PROJECT图书管理,新建一个项目管理器,保存到考生文件夹下。
(2)具体步骤如下:①在项目管理器中,单击“数据”选项卡,然后选择列表框中的“数据库”选项,单击“新建”命令按钮。
②弹出“新建数据库”对话框,单击“新建数据库”图标按钮。
③弹出“创建”对话框,输入新的数据库名称“辅导书”,保存到考生文件夹下。
(3)具体步骤如下:①在项目中新建数据库后,弹出数据库设计器,在其上右击鼠标,选择“添加表”快捷菜单命令。
②弹出“打开”对话框,依次将考生文件夹下所有自由表添加到数据库中。
(4)具体步骤如下:①在“数据”选项卡中选择“查询”选项,然后单击“新建”命令按钮。
②弹出“新建查询”对话框,单击“新建查询”图标按钮。
③弹出查询设计器,按照系统要求,先将数据表book添加到查询设计器中。
④在查询设计器的“字段”选项卡中,将“可用字段”列表框中的字段全部添加到右边的“选定字段”列表框中。
⑤单击“筛选”选项卡,在“字段名”下拉列表框中选择“book.价格”字段,在“条件”下拉列表框中选择>=,在“实例”文本框中输入27。
⑥单击“排序依据”选项卡,将“选定字段”列表框中的“book.价格”字段添加到右边的“排序条件”中,在“排序选项”选项区中选中“升序”单选按钮。
⑦利用菜单命令“查询”→“运行查询”,浏览查询结果。
⑧查询文件以book_qu名保存在考生文件夹下。
【试题解析】本试题考查的是通过项目管理器来完成数据库与数据库表的基本操作。
项目的建立可以通过在命令窗口输入命令来实现;数据库的建立及数据库表的添加,可以通过项目管理器中的命令按钮,打开相应的设计器进行操作。
计算机二级常见vb操作题一、选择题1. 在VB中,以下哪个关键字用于声明一个变量?A. DimB. SubC. FunctionD. If2. VB中的循环结构不包括以下哪一项?A. ForB. WhileC. DoD. Switch3. 在VB中,以下哪个函数用于计算一个数的平方根?A. SqrB. AbsC. IntD. Round4. 以下哪个控件不是VB窗体设计器中的控件?A. LabelB. TextBoxC. ButtonD. Hyperlink5. VB中,以下哪个属性用于设置文本框的只读状态?A. ReadOnlyB. EnabledC. VisibleD. MultiLine二、填空题6. 在VB中,使用________关键字可以定义一个过程。
7. 一个VB程序的开始执行点是________。
8. 在VB中,要实现数组的排序,可以使用________函数。
9. VB中的________属性用于设置控件的显示文本。
10. 使用VB的________方法可以打开一个文件。
三、简答题11. 请简述VB中事件处理程序的基本结构。
12. 描述如何在VB中创建一个新模块,并在该模块中添加一个公共函数。
四、编程题13. 编写一个VB程序,实现以下功能:- 创建一个名为"frmMain"的窗体。
- 在窗体上添加一个文本框(TextBox1)和一个按钮(cmdCalculate)。
- 当用户在文本框中输入一个数字并点击按钮时,计算该数字的平方,并在文本框下方显示结果。
14. 设计一个VB程序,实现以下功能:- 创建一个名为"frmLogin"的登录窗体。
- 在窗体上添加两个文本框(txtUsername和txtPassword)和一个按钮(cmdLogin)。
- 当用户输入用户名和密码并点击登录按钮时,验证用户名是否为"admin"且密码是否为"123456",如果验证成功,则显示欢迎信息,否则显示错误信息。
浙江计算机二级vb考试试题及答案一、单项选择题(每题2分,共20分)1. VB中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 在VB中,以下哪个选项不是控制结构?A. If...Then...ElseB. For...NextC. While...WendD. Function答案:D3. 以下哪个选项是VB中合法的变量名?A. 2variableB. variable2C. $variableD. variable$答案:B4. VB中,以下哪个函数用于计算一个数的绝对值?A. AbsB. SqrC. RoundD. Int5. 在VB中,以下哪个选项是正确的数组声明方式?A. Dim arr(5)B. Dim arr(5) As IntegerC. Dim arr(5) As StringD. Both B and C答案:D6. VB中,以下哪个选项是正确的子程序声明?A. Sub MySub()B. Function MySub()C. Both A and BD. None of the above答案:C7. 在VB中,以下哪个选项是正确的事件处理程序的声明方式?A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案:A8. VB中,以下哪个选项是正确的窗体属性?A. CaptionB. TextC. Both A and BD. None of the above答案:C9. 在VB中,以下哪个选项是正确的控件事件?B. DoubleClickC. Both A and BD. None of the above答案:C10. VB中,以下哪个选项是正确的文件访问模式?A. Open For InputB. Open For OutputC. Both A and BD. None of the above答案:C二、填空题(每空2分,共20分)1. VB中,使用________函数可以将字符串转换为小写。
计算机二级vb试题题目及答案一、选择题(每题2分,共20分)1. 在VB中,以下哪个选项是正确的字符串比较?A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案:B2. VB中,哪个函数可以用来计算数组中元素的个数?A. UBoundB. LBoundC. CountD. Size答案:A3. 在VB中,以下哪个选项表示创建一个名为“myForm”的窗体?A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案:D4. VB中,下列哪个选项是正确的文件打开模式?A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案:D5. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. IntC. FloatD. All of the above答案:D6. VB中,哪个关键字用来声明一个变量?A. DimB. DeclareC. ConstD. All of the above答案:D7. 在VB中,以下哪个选项是正确的循环结构?A. ForB. DoC. WhileD. All of the above答案:D8. VB中,哪个函数可以用来获取当前系统日期?A. NowB. DateC. TimeD. Today答案:D9. 在VB中,以下哪个选项表示创建一个名为“myButton”的按钮?A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案:D10. VB中,哪个关键字用来结束一个程序的运行?A. EndB. ExitC. StopD. All of the above答案:D二、填空题(每题2分,共20分)1. 在VB中,使用________关键字可以声明一个全局变量。
国家二级计算机vb考试试题及答案一、单项选择题(每题1分,共10分)1. 在VB中,用于定义变量的关键字是()。
A. DimB. SubC. FunctionD. Const答案:A2. 下列哪个选项不是VB中的控制结构?()A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案:D3. VB中,用于声明一个子程序的关键字是()。
A. FunctionB. SubC. DimD. Const答案:B4. 在VB中,用于表示逻辑“与”运算符的是()。
A. AndB. OrC. NotD. Xor答案:A5. VB中,用于表示逻辑“或”运算符的是()。
A. AndB. OrC. NotD. Xor答案:B6. 在VB中,用于声明一个数组的关键字是()。
A. DimB. SubC. FunctionD. Const答案:A7. VB中,用于声明一个常量的关键字是()。
A. DimB. SubC. FunctionD. Const答案:D8. 在VB中,用于表示逻辑“非”运算符的是()。
A. AndB. OrC. NotD. Xor答案:C9. VB中,用于声明一个函数的关键字是()。
A. FunctionB. SubC. DimD. Const答案:A10. 在VB中,用于表示逻辑“异或”运算符的是()。
A. AndB. OrC. NotD. Xor答案:D二、填空题(每题2分,共10分)1. 在VB中,使用____关键字可以定义一个全局变量。
答案:Public2. 当需要在VB中定义一个私有变量时,应使用____关键字。
答案:Private3. 在VB中,使用____关键字可以定义一个局部变量。
答案:Dim4. VB中,使用____关键字可以定义一个过程。
答案:Sub5. VB中,使用____关键字可以定义一个函数。
答案:Function三、简答题(每题5分,共20分)1. 请简述VB中事件驱动编程的概念。
一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
1.在窗体上建立一个二级菜单,该菜单含有“文件”和“帮助”两个主菜单项(名称分别为vbFile和vbHelp),其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项(名称分别为vbOpen、vbClose和vbExit)。
只建立菜单,不必定义其事件过程。
注意:保存时必须存放在考生文件夹下,窗体文件名为kt1.frm,工程文件名为kt1.vbp。
2.在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。
编写适当的事件过程,要求程序运行后,如果单击“喜欢”命令按钮,则在窗体上显示“数理化”;如果单击“不喜欢”命令按钮,则在窗体上显示“政史地”。
程序中不能使用任何变量,直接显示字符串。
注意:保存时必须存放在考生文件夹下,窗体文件名为kt2.frm,工程文件名为kt2.vbp。
一、基本操作题答案1.【解题步骤】(1)打开“菜单编辑器”。
(2)菜单设计见表4-1。
表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0(3)按要求设计含有“文件”和“帮助”的菜单栏。
(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。
(5)设计完成之后,按规定方式存盘。
2.【解题步骤】(1)建立界面和控件并设置控件属性。
程序中用到的控件及其属性见表4-2。
表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢(2)编写程序代码。
参考代码:Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub(3)调试并运行程序。
9月计算机二级《VB》上机操作题练习2016年9月计算机二级《VB》上机操作题练习一、基本操作题(1)在名称为Forml的窗体上用名称为shapel的形状控件画一个长、宽均为1200的正方形。
请设置适当的属性以满足下列要求:①窗体的标题为“正方形”,窗体的最小化按钮不可用。
②正方形的边框为虚线(线型不限)。
程序运行后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjtl.vbp,窗体文件名保存为sjtl.frm。
(2)在名称为Forml、标题为“标签”的窗体上,添加一个可自动调整大小的标签,名称为l_abell,其标题为“计算机等级考试”,字体大小为三号字;再添加两个命令按钮,标题分别是“宋体”和“黑体”,名称分别为Commandl、Command2,如图所示。
要求:编写两个命令按钮的Click事件过程。
程序运行后,如果单击“宋体”命令按钮,则标签标题显示为宋体字体;如果单击“黑体”按钮,则标签标题显示为黑体字体。
注意:程序中不得使用变量,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
二、简单应用题(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个控件数组,名称为Labell,含三个标签,标题分别是“开始时间”、“结束时间”和“通话费用”;有一个名称为T extl的控件数组,含三个初始内容为空的文本框;此外还有两个名称分别为Cmdl和Cmd2的命令按钮,标题分别是“通话开始”和“通话结束”。
其中通过属性窗口对“通话结束”命令按钮的初始状态设置为不可用,如图所示。
该程序的功能是计算公用电话计时收费。
计时收费的标准是:通话时间在3分钟以内时,收费0.5元;3分钟以上时,每超过1分钟加S0.15元,不足1分钟按1分钟计算。
程序执行的操作如下:①如果单击“通话开始”按钮,则在“开始时间”右侧的文本框中显示开始时间,且“通话结束”命令按钮变为可用,“通话开始”命令按钮变为不可用。
全国计算机二级vb考试试题及答案一、单项选择题(每题2分,共40分)1. VB中,以下哪个不是基本数据类型?A. IntegerB. DoubleC. StringD. Object答案:D2. 在VB中,以下哪个关键字用于声明变量?A. DimB. ConstC. FunctionD. Sub答案:A3. VB中,以下哪个函数用于计算字符串的长度?A. LenB. LengthC. SizeD. Count答案:A4. 在VB中,以下哪个是正确的循环结构?A. ForB. WhileC. LoopD. All of the above答案:D5. VB中,以下哪个不是控制结构?A. IfB. Select CaseC. DoD. Call答案:D6. 在VB中,以下哪个不是数组的声明方式?A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. ReDim arr(10)D. Dim arr As Integer = {1, 2, 3}答案:D7. VB中,以下哪个不是窗体(Form)的属性?A. NameB. CaptionC. TextD. Color答案:C8. 在VB中,以下哪个不是基本的输入输出函数?A. InputBoxB. MsgBoxC. PrintD. MessageBox答案:D9. VB中,以下哪个不是事件驱动编程中的事件?A. ClickB. LoadC. ChangeD. Execute答案:D10. 在VB中,以下哪个不是常用的控件?A. LabelB. TextBoxC. ButtonD. Chart答案:D11. VB中,以下哪个不是控件的属性?A. NameB. TextC. ValueD. Execute答案:D12. 在VB中,以下哪个不是控件的事件?A. ClickB. DoubleClickC. MouseDownD. Open答案:D13. VB中,以下哪个不是文件操作的函数?A. OpenB. CloseC. WriteD. Execute答案:D14. 在VB中,以下哪个不是数据库访问的方法?A. OpenB. FetchC. UpdateD. Execute答案:D15. VB中,以下哪个不是错误处理的关键字?A. On ErrorB. ResumeC. ExitD. Err答案:C16. 在VB中,以下哪个不是面向对象编程的概念?A. ClassB. ObjectC. InterfaceD. Function答案:D17. VB中,以下哪个不是类的成员?A. PropertyB. MethodC. EventD. Variable答案:D18. 在VB中,以下哪个不是继承的特性?A. 单继承B. 多继承C. 覆盖D. 封装答案:B19. VB中,以下哪个不是多态性的表现?A. 方法重载B. 方法重写C. 接口实现D. 函数调用答案:D20. 在VB中,以下哪个不是封装的体现?A. PrivateB. PublicC. ProtectedD. Friend答案:D二、填空题(每题2分,共20分)1. VB中,声明一个整型变量并赋值为10的语句是:Dim num As Integer; num = _______。
计算机二级考试VB练习题及答案(2)2017计算机二级考试VB练习题及答案(22)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i As Integer, j As IntegerDim a(10, 10) As IntegerFor i = 1 To 3For j = 1 To 3a(i, j) = (i - 1) * 3 + jPrint a(i, j);Next jPrintNext iEnd Sub程序运行后,单击命令按钮,窗体上显示的是A)1 2 3 B)2 3 4 C)1 4 7 D)1 2 32 4 6345 2 5 8 4 5 63 6 9456 3 6 978 9(23)在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:Option Base 0Private Sub Command1_Click()Dim A(4) As Integer,B(4) As IntegerFor k = 0 To 2A(k + 1) = InputBox("请输入一个整数")B(3 - k) = A(k + 1)Next kPrint B(k)End Sub程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为A)0 B)2 C)3 D)4(24)有以下程序:Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2); arr(3, 4)End Sub程序运行后,单击窗体,输出结果为A)8 13 B)0 13 C)7 12 D)0 0(25)以下叙述中正确的是A)一个Sub过程至少要有一个Exit Sub语句B)一个Sub过程必须有一个End Sub语句C)可以在Sub过程中定义一个Function过程,但不能定义Sub 过程D)调用一个Function过程可以获得多个返回值(26)有以下程序:Sub subP(b() As Integer)For i = 1 To 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5a(2) = 6a(3) = 7a(4) = 8subP a()For i = 1 To 4Print a(i)Next iEnd Sub运行上面的程序,单击命令按钮,输出结果为A) 2 B) 5 C)10 D)出错4 6 126 7 148 8 16(27)设有如下通用过程:Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr = ""strL = Len(xStr)i = 1Do While i <= strL / 2tStr = tStr & Mid(xStr, i, 1) & Mid(xStr, strL - i + 1, 1)i = i + 1LoopFun = tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。
全国计算机二级考试《VB》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为1,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签,并分别显示1和100,运行时的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjtl.vbp,窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框,初始内容均为空;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Copy和Clear,标题分别为“复制”、“清除”,请编写适当的事件过程,使得在程序运行时,单击“复制”选项菜单,则把Textl中的内容复制到Text2中,单击“清除”选项菜单,则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名为sit2.vbp,窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp,窗体上已经有一个标签Labell,请添加一个单选按钮数组,名称为Opl,含三个单选按钮,它们的Index 属性分别为0、1、2,标题依次为“飞机”、“火车”、“汽车”,再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击“飞机”或“火车”单选按钮时,在Textl中显示“我坐飞机去”或“我坐火车去”,单击“汽车”单选按钮时,在Text1中显示“我开汽车去”,如图所示。
计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后,单击命令按钮,结果为(B)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后,单击命令按钮,结果为(A)(单)A.显示对话框,提示信息为"帐号正确"B.显示对话框,提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong",则程序运行结果为(A)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong",则程序运行结果为(B)(单)A.显示对话框,提示"密码帐号正确!"B.显示对话框,提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1,编写下面程序:Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123",显示"密码错误"对话框,关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框,名称分别为text1、text2和text3,还有一个名称为label1的标签,一个名称为command1的命令按钮,编写如下代码:Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8,则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入1,则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入2,则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入3,则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段:Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后,输入4,则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表,一行7个表达式B.打印九九乘法表,一行7个表达式C.打印ASCII码表,一行8个表达式D.以上说法都不正确15.我国现在人口有13亿,按人口增长0.8%计算,多少年后我国人口将超过26亿。
计算机二级vb操作题一、选择题(每题2分,共20分)1. 在VB中,下列哪个选项是正确的数据类型?A. IntegerB. StringC. DoubleD. All of the above2. 以下哪个是VB中的循环结构?A. IfB. ForC. WhileD. Select3. 在VB中,用于定义变量的关键字是:A. DimB. SetC. LetD. Const4. 在VB中,以下哪个是数组的正确声明方式?A. Dim myArray(10)B. Dim myArray = New Integer(10)C. Dim myArray[10]D. Dim myArray(0 To 10)5. VB中的事件处理程序通常使用哪个关键字来定义?A. SubB. FunctionC. EventD. Procedure6. 在VB中,以下哪个是正确的条件语句?A. If-ThenB. If-ElseC. If-End IfD. All of the above7. VB中的窗体(Form)对象默认的事件是:A. ClickB. LoadC. PaintD. Resize8. 在VB中,以下哪个是正确的方法来获取用户输入?A. InputBox()B. MsgBox()C. Textbox()D. ComboBox()9. VB中的控件通常放在哪个容器中?A. FormB. PanelC. GroupBoxD. All of the above10. 在VB中,以下哪个是正确的方法来设置控件的可见性?A. Visible = TrueB. Show()C. Hide()D. All of the above二、填空题(每空2分,共20分)11. 在VB中,使用________关键字可以声明一个常量。
12. VB中的________属性可以用来设置控件的宽度和高度。
13. 当需要在VB中调用另一个窗体时,可以使用________方法。
⼀、选择题1、某⼀VB⼯程含F1、F2两个窗体,执⾏“F1.Show:F2.Hide”语句后,F1、F2窗体显⽰的结果为()。
A、都显⽰B、都不显⽰C、仅显⽰F1窗体D、仅显⽰F2窗体2、在VB中,执⾏“Text1.Text= “0551-*******” “Tel=0551-*******”这⾏语句时,“,”后⾯的部分为()。
A、注释部分,不是可执⾏代码B、注释部分,但是可以执⾏代码C、程序代码的⼀部分D、程序代码的另⼀种写法3、 VB的数据类型分为()A、数值型、字符型、布尔型、⽇期型B、数值型、字符型、对象型、⽇期型C、基本类型、扩展类型D、整型、实型、字符型、⽇期型、布尔型4、VB中的变量如果没有显⽰声明其数据类型,则默认为()A、⽇期型B、数据型C、字符型D、变体型5在VB中,通过改变表框()属性的值,可以为列表框添加项⽬。
A、ListB、(名称)C、Caption D 、Text6、在VB中,执⾏“A=5:A=A+5”语句后,变量A的值为()A、0B、5C、10D、不⼀定7、VB中运算符被分为四类,分别是()A、算术运算符、连接运算符、关系运算符、逻辑运算符B、算术运算符、⽐较运算符、关系运算符、逻辑运算符C、算术运算符、连接运算符、布尔运算符、逻辑运算符D、连接运算符、⽐较运算符、逻辑运算符、关系运算符8、在VB中,执⾏“A=18MOD4”语句后,A的值为()。
A、2B、4C、6D、89、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是()。
A、True,TrueB、True False C 、False,True D 、False,False10、在VB中,执⾏ “DimA,B As String” 语句后,A,B的数据结构为()。
A、整型数B、实型数C、字符型D、字节型11、在VB中,执⾏ “A=123:B=Str$(A)”语句后,B的数据结构为()。
计算机二级vb题库2016年计算机二级vb题库1.基本操作题在考生文件夹下,完成如下操作:(1)创建一个名为Sproject的项目文件。
(2)将考生文件夹下的学生数据库SDB添加到新建的项目文件中。
(3)打开学生数据库SDB,将考生文件夹下的自由表TEACHER添加到学生数据库SDB中;为教师表TEACHER创建一个索引名和索引表达式均为教师号的主索引(升序);为班级表CLASS创建一个索引名和索引表达式均为班主任号的普通索引(升序)。
(4)通过“班级号”字段建立班级表CLASS和学生表STUDENT之间的永久关系;通过班级表CLASS的“班主任号”字段和教师表TEACHER的“教师号”字段建立班级表CLASS和教师表TEACHER 之间的永久联系。
【参考答案】(1)具体步骤如下:① 从“文件”菜单中选择“新建”命令,系统弹出“新建”对话框。
② 在“文件类型”中选中“项目”单选按钮,单击“新建文件”按钮。
③ 在弹出的“创建”对话框中,选择保存路径为考试目录,在“项目文件”文本框中输入Sproject,在“保存类型”下拉列表框中选择“项目(.pjx)”,单击“保存”按钮。
即可新建一个Sproject项目,同时打开项目管理器。
(2)具体步骤如下:① 单击项目管理器中的“数据”选项卡,选择“数据库”选项。
② 单击“添加”按钮,系统弹出“打开”对话框。
③ 选择要添加的SDB.DBC文件,单击“确定”按钮。
(3)具体步骤如下:① 在项目管理器中选择数据库文件SDB,单击“修改”按钮,系统打开“数据库设计器”窗口,并显示SDB中所有的表文件。
② 在“数据库设计器”窗口中的空白处单击鼠标右键,在弹出的快捷菜单中选择“添加表”命令。
③ 在弹出的“打开”对话框中选择需要添加的TEACHER.DBF文件。
④ 单击“确定”按钮,返回到“数据库设计器”窗口中。
⑤ 选中TEACHER表,单击鼠标右键,在弹出的快捷菜单中选择“修改”命令,系统打开“表设计器”对话框。
1、课本P42二(1)注意:“前景红”改为:“前景红,背景白”。
保存窗体文件名为test01.frm,工程文件名为test01.vbp。
使label有陷入感1左对齐2右对齐3水平居中先设置这个为 1 再设置背景颜色再设置前景色课本P42二(2)保存窗体文件名为test02.frm,工程文件名为test02.vbp。
先设置为TRUE 再设置成1水平拉条2竖直拉条3水平竖直拉条3、设计如图所示的窗体Form1;窗体上有一个按钮和一个标签。
标签名称为L2,有边框,背景色为浅蓝色(&H00FF8080&),其中文字为“VB程序设计”,居中显示,粗体,4号字;按钮名称为C2,标题为“按钮”,背景为粉红色(&H008080FF&),按钮高度为500,宽度为1500,其位置距窗体左边框2500,距窗体的上边框2300。
保存窗体文件名为vb01.frm,工程文件名为vb01.vbp先再4、设计口令验证界面,要求文本框输入的口令字符显示为“*”。
保存窗体文件名为vb02.frm ,工程文件名为vb02.vbp设置5、新建一个工程,进行如下设置:① 窗体Form1距屏幕左边2000、距屏幕上端1000、高5000、宽6000;② 在学号文件夹下将窗体文件保存为sy01.frm ,工程文件保存为sy01.vbp ; ③ 建立一个标签控件Label1,将Caption 属性改为“脑筋急转弯”,并在Font 属性中设置为隶书四号字;④ 再建立一个标签控件Label2,标题显示“什么海最深?”,五号宋体; ⑤ 建立一个命令按钮Command1,标题为“答案”;⑥ 建立一个文本框Text1,清空文本框内容(提示:将Text 属性清空); ⑦ 在代码窗口中编写代码,使得单击Command1后,文本框中显示“脑海”; ⑧ 运行调试程序,保存。
标签Label1标签Label2文本框Text1命令按钮Command1Private Sub Command1_Click()Text1.Text = "脑海"End Sub新建一个工程,按图设计一个窗体,窗体上有一个标题为“允许使用”的命令按钮,其位置在距窗体左边框800,距窗体上边框600。
编写适当的事件过程,使得在运行时,单击窗体,命令按钮的标题变为“禁止使用”,且命令按钮呈灰色(禁用状态)。
完成后,将窗体文件保存为sy22.frm,工程文件保存为sy22.vbp。
Private Sub Form_Click()Command1.Enabled = FalseCommand1.Caption = "禁止使用"End Sub1、P64 1 保存成3-1Private Sub Command1_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Text)End SubPrivate Sub Command3_Click()Text1.Text = Text1.TagEnd Sub第二种做法Option ExplicitDim cPrivate Sub C1_Click()Text1.Text = UCase(Text1.Text)End SubPrivate Sub C2_Click()Text1.Text = LCase(Text1.Text)End SubPrivate Sub C3_Click()Text1.Text = cEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)c = c & Chr(KeyAscii)End Sub2、P64 2保存成3-2Private Sub Command1_Click()Dim x As Integerx = Val(Text1.Text)Text1.Text = (180 / 3.14) * xEnd Sub3、设置文本框和命令按钮各一个。
命令按钮被禁止使用。
运行时(如右图所示),当向文本框中输入字符时窗体标题变为文本框中输入的字符,命令按钮允许使用。
窗体文件名bq.frm,工程文件名bq.vbp。
Private Sub Text1_Change()Command1.Enabled = Trueform1.caption=text1.textEnd Sub4、在窗体上设置一个文本框,字号三号,设置命令按钮Command1和Command2,标题分别为“隐藏”和“显示”。
程序运行时,单击“隐藏”按钮,文本框隐藏;单击“显示”按钮,文本框显示,且内容为“我要好好学VB”。
窗体名为wen.frm,工程文件为wen.vbp。
Private Sub Command1_Click()Text1.Visible = FalseEnd SubPrivate Sub Command2_Click()Text1.Visible = TrueEnd Sub5、按图设计窗体,并编写代码,求输入两个数的加、减、乘和除的结果。
完成后,将窗体文件保存为sy26.frm,工程文件保存为sy26.vbp。
Dim a As IntegerDim b As IntegerPrivate Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = a + bEnd SubPrivate Sub Command2_Click()a = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = a - bEnd SubPrivate Sub Command3_Click()a = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = a * bEnd SubPrivate Sub Command4_Click()a = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = a / bEnd Sub6、设计一个应用程序,如图所示:在一个文本框中输入任意字符串(长度大于2),单击“处理”按钮时,则取出该字符串的头、尾部各一个字符,合并后显示在第二个文本框中。
如输入“ABCDEF G”,则输出“A G”。
在学号文件夹下将此工程保存为sy31.frm及sy31.vbp。
Private Sub Command1_Click()Text2.Text = Left(Text1.Text, 1) & Right(Text1.Text, 1)End Sub7、设计一个应用程序,由用户通过文本框Text1输入圆的半径,计算并输出圆的面积。
Private Sub Command1_Click()Dim x As Doublex = Val(Text1.Text)Text2.Text = 3.14 * x ^ 2End SubPrivate Sub Command2_Click()EndEnd Sub4、如果年份能被4整除,但不能被100整除,或年份能被400整除,则是闰年。
Private Sub Command1_Click()Dim x As Integerx = Val(Text1.Text)If x Mod 4 = 0 And x Mod 100 <> 0 Or x Mod 400 = 0 ThenLabel1.Caption = x & "年是闰年"ElseLabel1.Caption = x & "年不是闰年"End IfEnd Sub《学习指导》P165 1Private Sub Command1_Click()Command1.Visible = FalseEnd SubPrivate Sub Form_Click()Command1.Visible = TrueEnd SubP170 1Private Sub Command1_Click()Label1.Caption = "计算机程序设计"End SubPrivate Sub Command2_Click()Label1.Caption = "西方艺术欣赏"End SubP175 1标签透明文本内容居中显示P181 1Private Sub Form_Click()Command1.Caption = "禁止使用"Command1.Enabled = FalseEnd Sub设计一个应用程序sy43.vbp,窗体上只有一个控件Command1。
程序功能:单击Command1,弹出输入框(如图所示,要求:对话框标题是“输入数据”,提示信息是“请输入一个小于100的正整数:”,默认值是50),在输入框中输入一个数,如果此数是小于100的正整数,则计算其平方根并输出到当前窗体;否则弹出对话框“请输入一个小于100的正整数”。
假设:你输入的都是整数(包含正整数和负整数),即:不输入小数。
Private Sub Command1_Click()Dim x As Doublex = InputBox("请输入一个小于100的正整数", "输入数据", "50") If x < 100 And x > 0 ThenPrint x ^ (1 / 2)Elsex = MsgBox("请输入一个小于100的正整数", 0, "输入有误") End IfEnd Sub课本65 3窗体命名为4-1.frm,工程文件名为4-1.vbp Private Sub Command1_Click()Dim a, b As Integera = Val(Text1.Text)b = Val(Text2.Text)Label1.Caption = Int((b - a + 1) * Rnd + a)Label2.Caption = Int((b - a + 1) * Rnd + a)Label3.Caption = Int((b - a + 1) * Rnd + a)End Sub136 2窗体命名为4-2.frm,工程文件名为4-2.vbpPrivate Sub Command1_Click()Dim a, x, y As Doublea = Val(Text1.Text)x = Val(Text2.Text)If -a < x And x < a Theny = Sqr(a ^ 2 - x ^ 2)ElseIf x = a Or x = -a Theny = 0Elsey = x - 1End IfText3.Text = yEnd Sub6、实现以下功能:在文本框内输入三条边的长度,单击按钮“能否构成三角形”,在Text4中显示结论:“能”或“否”。