VB第2版习题与解答

合集下载

(完整word版)计算机二级VB编程题目含答案

(完整word版)计算机二级VB编程题目含答案

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第2版习题与解答

VB第2版习题与解答
If c > sMax Then sMax = c
If a < b Then sMin = a Else sMin = b
If c < sMin Then sMin = c
Label1.Caption = "最大数为:" & sMax & ",最小数为:" & sMin
4. 编制程序,通过文本框输入年份和月份,显示该月的天数。注意判断年份是否为闰年:年号能被4整除,但不能被100整除,或者年号能被400整除的年份为闰年。
⑽Month(#5/4/2007#)
⑾Year(#05-08-07#)
解答:
⑴12;⑵"765";⑶"6982";⑷"GGG";⑸5;⑹"L";⑺15;⑻"3721efda";⑼"23.45678";⑽5;⑾2007
5.对于没有赋初值的变量,系统默认的值是什么?
解答:
对于没有赋初值的变量,数值型变量默认值为0;变长字符串型变量默认值为零长度的字符串("");定长字符串型变量中的每个字符均被填充为ASCII码值为0的字符(即Chr(0),等价于vbNullChar);逻辑型变量默认值为False;变体型变量默认值为Empty;对象型变量默认值为Nothing。
解答:
在窗体上放置两个文本框、三个标签和一个命令按钮,均采用默认名称。标签Label1和Label2的标题分别为【年份:】和【月份:】,Label3标题为空。按钮标题为【显示】,为其单击事件编写如下代码:
Dim y As Integer, m As Integer, d As Integer, blnY As Boolean

全国计算机二级《VB》练习题及答案(2)

全国计算机二级《VB》练习题及答案(2)

全国计算机二级《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的目录列表框。

二级vb考试题及答案

二级vb考试题及答案

二级vb考试题及答案1. 题目:在Visual Basic中,下列哪个选项是正确的数据类型?A. IntegerB. RealC. StringD. All of the above答案:D2. 题目:在Visual Basic中,如何声明一个整型变量?A. Dim myVar As IntegerB. Declare myVar IntegerC. Var myVar IntegerD. Integer myVar答案:A3. 题目:下列哪个函数用于计算两个数的和?A. Sum()B. Add()C. Total()D. None of the above答案:D4. 题目:在Visual Basic中,如何创建一个标签控件?A. Label1 = New Label()B. Label1 = CreateLabel()C. Label1 = Label()D. Label1 = New Label1()答案:A5. 题目:在Visual Basic中,哪个关键字用于循环直到满足特定条件?A. WhileB. ForC. DoD. Loop答案:A6. 题目:在Visual Basic中,如何声明一个数组?A. Dim myArray(10) As IntegerB. Declare myArray(10) IntegerC. Var myArray(10) IntegerD. Integer myArray(10)答案:A7. 题目:在Visual Basic中,如何调用一个子程序?A. Call MySub()B. MySub()C. Execute MySub()D. Run MySub()答案:B8. 题目:在Visual Basic中,如何声明一个布尔型变量?A. Dim myBool As BooleanB. Declare myBool BooleanC. Var myBool BooleanD. Boolean myBool答案:A9. 题目:在Visual Basic中,如何使用If语句进行条件判断?A. If condition ThenB. If condition ElseC. If condition Then ElseD. If condition答案:A10. 题目:在Visual Basic中,如何声明一个单精度浮点数变量?A. Dim myFloat As SingleB. Declare myFloat SingleC. Var myFloat SingleD. Single myFloat答案:A。

计算机vb二级考试试题及答案

计算机vb二级考试试题及答案

计算机vb二级考试试题及答案一、单项选择题(每题2分,共20分)1. 在Visual Basic中,下列哪个选项是正确的变量声明方式?A. Dim a$B. Dim a% IntegerC. Dim a As IntegerD. Dim a Integer答案:C2. 下列哪个函数用于计算一个数的平方?A. SqrB. AbsC. RoundD. Sq答案:A3. 在Visual Basic中,哪个控件用于显示图像?A. LabelB. PictureBoxC. TextBoxD. ComboBox答案:B4. 下列哪个选项是正确的Visual Basic程序结构?A. Sub Main()B. Function Main()C. Procedure Main()D. Process Main()答案:A5. 在Visual Basic中,哪个关键字用于声明一个子程序?A. FunctionB. SubC. ClassD. Module答案:B6. 下列哪个选项是正确的数组声明方式?A. Dim arr(10)B. Dim arr As Integer(10)C. Dim arr(10) As IntegerD. Dim arr Integer(10)答案:C7. 在Visual Basic中,哪个控件用于创建下拉列表?A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案:B8. 下列哪个选项是正确的条件语句?A. If condition ThenB. If condition BeginC. If condition Then ElseD. If condition Begin Else答案:C9. 在Visual Basic中,哪个关键字用于退出当前的循环?A. ContinueB. ExitC. BreakD. Return答案:C10. 下列哪个选项是正确的Visual Basic事件处理方式?A. Function eventname()B. Sub eventname()C. Procedure eventname()D. Call eventname()答案:B二、填空题(每题2分,共20分)1. 在Visual Basic中,使用________关键字可以声明一个全局变量。

《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案

《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案

第1章1. 按要求设置窗体属性2.在窗体上建立一个标签Label1。

程序代码如下:Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3.在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。

两个文本框的Text属性均为空。

Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章1~3题:按要求完成操作练习。

4. Private Sub Command1_Click() '"最大化"按钮Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"还原"按钮Form1.WindowState = 0 '还原End SubPrivate Sub Command3_Click() '"最小化"按钮Form1.WindowState = 1 '最小化End Sub5.在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。

Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。

VB习题解答

VB习题解答

作用:在对象上输出信息 对象:窗体、图形框或打印机(Printer) ,省略对象在窗体上输出。 Spc(n)函数:插入n个空格,允许重复使用。 Tab(n)函数:左端开始右移动n列,允许重复使用。 ;(分号):光标定位上一个显示的字符后。 ,(逗号):光标定位在下一个打印区的开始位置处。 无 ;,时换行。 开始打印的位置是由对象的CurrentX和CurrentX属性决定, 缺省为打印对象的左上角0,0。 注意:Print方法在Form _Load事件过程中起作用,必须设置窗体的 AutoRedraw为True。
3.常用方法
[对象.]SetFocus:是把光标移到指定的文本框对象中。
4.文本框的应用 数据过滤
例2.7 要求输入合法的数字数据。当输入结束时(按Tab键),对于 输入正确的数据,显示正确信息;对输入的非数字数据,则响铃 (Beep)、显示错误信息、清除文本框中的内容,并使焦点重新回到文 本框。 • Text2_ LostFocus 当输入结束按Tab键时,该事件激发。 • IsNumeric(Text2):判断是否输入非数字数据。 • Text2.SetFocus:使焦点重新回到文本框。
例2.3
控件设置
默认控件名 标题 有关属性设置 Name Caption 颜色、对齐、 Form1 MousePointer=99,MouseIcon=Key04.ico 鼠标属性例 左对齐 Alignment=0, BorderStyle =1 Label1 居中 Alignment=1,BorderStyle =1 Label2 自动 AutoSize=True, WordWarp=False, BorderStyle =1 Label3 背景白 BackColor= &H00FFFFFF&, BorderStyle =0 Label4 前景红 ForeColor= &H000000FF&, BorderStyle =0 Label5

《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案

《Visual Basic程序设计教程(第2版)》课后部分编程题参考答案

第1章1.按要求设置窗体属性2.在窗体上建立一个标签Label1。

程序代码如下:Private Sub Form_Click()Label1.Caption="你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption="你双击了窗体"End Sub3.在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。

两个文本框的Text属性均为空。

Private Sub Command1_Click()Dim x As Singlex=Val(Text1.Text)Text2.Text=15*xEnd Sub第2章1~3题:按要求完成操作练习。

4.Private Sub Command1_Click()'"最大化"按钮Form1.WindowState=2'最大化End SubPrivate Sub Command2_Click()'"还原"按钮Form1.WindowState=0'还原End SubPrivate Sub Command3_Click()'"最小化"按钮Form1.WindowState=1'最小化End Sub5.在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。

Private Sub Command1_Click()Dim x As SingleDim y As Singlex=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=x*x+y*yEnd Sub6.在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。

全国vb二级试题及答案

全国vb二级试题及答案

全国vb二级试题及答案全国VB二级试题及答案一、单项选择题(每题1分,共20分)1. 在Visual Basic中,以下哪个不是内置的数据类型?A. IntegerB. StringC. ObjectD. Array2. 以下哪项不是Visual Basic的事件?A. ClickB. LoadC. PrintD. Change3. 以下哪个语句用于在Visual Basic中声明一个变量?A. DimB. DeclareC. LetD. Set4. 在Visual Basic中,哪个函数用于将字符串转换为数值?A. Str()B. Val()C. CStr()D. CInt()5. 如果需要在Visual Basic中实现一个循环,直到某个条件不再满足为止,应该使用以下哪个结构?A. For...NextB. Do...LoopC. While...WendD. Select...Case6. 在Visual Basic中,以下哪个控件用于显示文本,但不能编辑?A. TextBoxB. LabelC. ComboBoxD. CheckBox7. 以下哪个属性用于设置控件的可见性?A. VisibleB. EnabledC. CaptionD. Text8. 在Visual Basic中,以下哪个不是数组的声明方式?A. Dim arr(1 To 10) As IntegerB. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Integer()9. 以下哪个方法用于在Visual Basic中打开一个文件?A. OpenB. CloseC. WriteD. Print10. 在Visual Basic中,以下哪个不是错误处理的语句?A. On Error GoToB. On Error Resume NextC. On Error Exit SubD. On Error Stop二、简答题(每题5分,共10分)11. 简述Visual Basic中的类和对象的区别。

计算机vb二级考试试题及答案

计算机vb二级考试试题及答案

计算机vb二级考试试题及答案一、选择题(每题2分,共20分)1. VB中用于声明变量的关键字是:A. DimB. DeclareC. ConstD. Let答案:A2. 在VB中,下列哪个选项不是合法的变量名?A. _myVariableB. 123VariableC. myVariableD. Variable$答案:B3. VB中,用于结束一个循环的语句是:A. ContinueB. ExitC. BreakD. Stop答案:B4. 在VB中,下列哪个函数用于计算字符串的长度?A. Len()B. Length()C. StrLen()D. Size()答案:A5. 下列哪个选项不是VB中的流程控制语句?A. If...ThenB. For...NextC. Do...LoopD. Switch...Case答案:D6. VB中,用于定义一个类模块的关键字是:A. ClassB. ModuleC. FormD. Sub答案:A7. 在VB中,下列哪个选项是正确的事件处理程序的声明方式?A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Private Function Button1_Click()D. Public Function Button1_Click()答案:A8. VB中,用于创建一个数组的语句是:A. Dim arr(5) As IntegerB. Dim arr As Integer(5)C. Dim arr As Integer[5]D. Dim arr(5) As Integer()答案:A9. 在VB中,下列哪个选项不是合法的数值类型?A. IntegerB. DoubleC. StringD. Long答案:C10. VB中,下列哪个选项是正确的字符串连接操作?A. "Hello" & "World"B. "Hello" || "World"C. "Hello" + "World"D. "Hello" ||| "World"答案:A二、填空题(每题2分,共10分)1. 在VB中,使用________函数可以将数字转换为字符串。

vb第二版课后习题答案

vb第二版课后习题答案

vb第二版课后习题答案《VB第二版课后习题答案》在学习VB(Visual Basic)第二版课程时,课后习题是巩固知识、检验学习成果的重要环节。

通过认真完成课后习题,不仅可以加深对VB编程语言的理解,还可以提高编程能力和解决问题的能力。

下面将对VB第二版课后习题答案进行详细解析。

第一题:请编写一个程序,实现两个数的加法运算。

答案:可以使用以下代码实现:```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个数:")num2 = InputBox("请输入第二个数:")sum = num1 + num2MsgBox "两个数的和为:" & sum```第二题:请编写一个程序,实现对一个数组中所有元素的求和并计算平均值。

答案:可以使用以下代码实现:```vbDim arr(5) As IntegerDim sum As IntegerDim average As DoubleFor i = 0 To 4arr(i) = InputBox("请输入第" & i + 1 & "个数:")sum = sum + arr(i)Nextaverage = sum / 5MsgBox "数组中所有元素的和为:" & sum & ",平均值为:" & average```通过以上两道题的答案解析,我们可以看到,在VB编程中,可以通过简单的代码实现复杂的功能,这需要我们对VB语言有深刻的理解和熟练的运用。

通过课后习题的练习,我们可以不断提高自己的编程能力,为将来的工作和学习打下坚实的基础。

总之,VB第二版课后习题答案是我们学习和掌握VB编程语言的重要参考资料,希朝着大家能够认真对待课后习题,不断提高自己的编程能力,为将来的发展打下坚实的基础。

VB教程习题2答案-推荐下载

VB教程习题2答案-推荐下载

VB教程习题2参考答案一、选择题1. 下面可以正确定义2个整形变量和1个字符串变量的语句的是_________。

(A)Dim n , m AS Interger , s AS String(B)Dim a% , b$ , c AS String(C)Dim a AS Integer , b , c AS String(D)Dim x% , y AS Integer , z AS String变量定义未指明数据类型,则为变体类型变量。

A选项定义n为变体类型变量;B答案定义了1个整型变量和2个字符串变量;C选项的b变量也为变体类型变量,D选项满足要求。

参考答案为D。

2. 设有如下语句:Dim a , b As Integerc = "Visual Basic"d = #7/20/2005 #以下关于这段代码的叙述中,错误的是_________。

(A)a 被定义为Integer 类型变量(B)b 被定义为Integer 类型变量(C)c 中的数据是字符串(D)d 中的数据是日期类型VB中变体类型变量有三种情况,一是直接使用未经定义的变量;第二是显式的将变量定义为变体类型,例Dim m As Variant;第三种情况是定义变量但未指明该变量的数据类型,程序中对a变量的定义就属第三种情况,故A选项错误。

变量c,d均是未定义的变量为变体类型,但分别存放的数据为字符串型和日期型。

参考答案为A。

3. 执行以下程序后输出的是_________。

Private Sub Command1_Click()Ch$=”AABCDEFGH”Print Mid(Right(ch$,6),Len(left(ch$,4)),2)End Sub(A)CDEFGH (B)ABCD (C)FG (D)AB程序中有4个函数调用,其中Mid 的三个参数分别是Righ(ch$,6)、Len(left(ch$,4))和2,而left(ch$,4)又是函数Len的参数,由这几个字符串函数的功能知:函数Righ(ch$,6)的结果值为”CDEFGH”, left(ch$,4)值为”AABC”,Len(left(ch$,4))结果为4,所以输出Mid(Right(ch$,6),Len(left(ch$,4)),2)结果值为“FG”,C选项正确。

二级VB语言程序设计考试题及答案

二级VB语言程序设计考试题及答案

二级VB语言程序设计考试题及答案不管从事何种工作,如果要想做出高效、实效,务必先从自身的开始。

有了方案,才不致于使自己思想迷茫、头脑空洞,不知从哪里着手开展工作。

下面是搜索的二级VB语言程序设计考及答案,供大家参考学习!1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:Private Sub Command1Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容1121231234那么在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后,单击命令按钮,在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

vb二级计算机考试试题及答案

vb二级计算机考试试题及答案

vb二级计算机考试试题及答案一、单选题(每题2分,共20分)1. VB中,用于声明变量的关键字是:A. DimB. DeclareC. ConstD. Type答案:A2. 下列哪个选项不是VB中的控制结构?A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案:D3. 在VB中,用于定义类模块的关键字是:A. ClassB. ModuleC. FormD. Interface答案:A4. VB中,用于读取文件内容的函数是:A. DirB. FileGetC. FileOpenD. FilePut答案:C5. 在VB中,下列哪个选项不是数组的声明方式?A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案:D6. VB中,用于创建一个窗体的关键字是:A. FormB. DialogC. WindowD. Frame答案:A7. VB中,用于实现事件驱动编程的关键字是:A. EventB. SubC. FunctionD. Property答案:B8. 在VB中,下列哪个选项不是字符串函数?A. LeftB. RightC. MidD. Round答案:D9. VB中,用于定义常量的关键字是:A. DimB. ConstC. StaticD. Private答案:B10. VB中,下列哪个选项不是循环结构?A. For EachB. ForC. Do WhileD. If答案:D二、填空题(每题2分,共20分)1. VB中,用于声明全局变量的关键字是________。

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

答案:Sub3. 在VB中,用于定义一个函数的关键字是________。

二级vb基础应用题答案(1)

二级vb基础应用题答案(1)

23套:(1) 【解题思路】通过窗体的Caption属性设置窗体的标题为"菜单",通过菜单编辑设置菜单的标题、名称和内缩符号。

【操作步骤】步骤1:建立界面,设置窗体的标题为"菜单",菜单编辑中涉及的属性见表3.73。

表3.73步骤2:调试并运行程序,关闭程序后按题目要求存盘。

【举一反三】可以通过第32套第二大题第一小题来进行同类知识点的练习。

(2) 【解题思路】通过图像框的Name、Left、Picture属性设置图片框的名称、位置、装入图片,通过命令按钮的Name、Caption属性设置命令按钮的名称、标题。

命令按钮的Click 事件过程中,通过图像框的Left属性的设置实现图片框的移动。

【操作步骤】步骤1:新建一个窗体,在窗体中添加一个图像框和两个命令按钮,然后设置控件的属性,控件的属性见表3.74。

表3.74步骤2:编写程序代码。

参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 10End SubPrivate Sub Command2_Click()Image1.Left = 360End Sub步骤3:调试并运行程序,关闭程序后按题目要求存盘。

【举一反三】可以通过42套第二大题的第二小题来进行同类知识点的练习。

24套:(1) 【解题思路】通过形状控件的Name、Width、Height和Shape属性设置名称为shape1的形状控件并画一个长、宽都为1200的正方形。

通过窗体的Caption、MinButton属性设置窗体的标题为"正方形",窗体的最小化按钮不可用,设置形状控件的BorderStyle属性使正方形的边框为虚线。

【操作步骤】步骤1:新建一个窗体,在窗体中添加一个形状控件,按照题目要求设置其属性。

程序中用到的控件及属性见表3.75。

表3.75步骤2:调试并运行程序,关闭程序后按题目要求存盘。

《Visual Basic程序设计教程(第2版)》习题参考答案

《Visual Basic程序设计教程(第2版)》习题参考答案

《Visual Basic程序设计教程》(第2版)林卓然编著电子工业出版社2007年7月出版习题1一、单选题1.D 2.D 3.B 4.B 5.C 6.A7.A 8.A 9.B 10.B 11.B 12.B二、多选题1.ADE 2.AB 3.BCDE 4.CD 5.CE三、填空题1.属性,方法,事件 2.解释,编译 3.设计,运行,中断 4.Command2_Click 5.中央,代码 6.MyForm.frm 7.(1)Cmd1_Click(),(2)Txt1.Text="VB语言程序设计"习题2一、单选题1.(1)A,(2)C 2.A 3.B 4.B 5.B 6.D 7.B 8.A 9.A 10.B 11.B 12.A 13.B二、多选题1.BD 2.CD 3. AD三、填空题1.(1) (2+x*y)/(2–y*y) (2) a^2–3*a*b/(3+a)(3) x^(3/8)+Sqr(y^2+4*a^2a/(x+y^3))2.Int(50+6*Rnd)3.(1)138, (2)3, (3)214, (4) 70, (5) "45", (6)04. "系统管理数据库"习题3一、单选题1.C 2.B 3.B 4.D 5.B 6.C 7.B 8.D 9.C 10.(1)A, (2)C 11.A 12.B 13.D 14.B二、多选题1.AC 2.ABF 3.BE三、填空题1.$000,124 2.Label1.Caption="a*b=" 3.Height,Width4.2 5.Text1.SetFocus6.Multiline, ScrollBars, 2 7.24,2423习题4一、单选题1.C 2.B 3.C 4.C 5.D 6.B 7.(1)D,(2)A,(3)B 二、多选题1.ABCFGHJ 2.BE 3.CDE 4.AE三、填空题1.60000 2.O&pen 3.(1) "0" To "9";(2) "a" To "z", "A" To "Z";(3) Else习题5一、单选题1.B 2.(1)D,(2)C 3.A 4.(1)B,(2)C,(3)B 5.B 6.B 二、填空题1.(1) 4次,n=13;(2) 3次,n=8;(3) 3次,n=27;(4) 1次,n=12 2.227 3.0 4.Style 5.下拉列表框6.AddItem,RemoveItem或Clear 7.(1)ItemA,(2) ItemD,(3) ItemD,(4) ItemA习题6一、单选题1.D 2.A 3.B 4.C 5.C 6.A 7.(1)D (2)A (3)B 二、多选题1.AD 2.CD三、填空题1.二, 12; 1, 3; -1, 22. 0 1 2 31 0 1 22 1 0 13 2 1 03. Name, Index 4.(1) 0 To Index, (2)Val(Text1(k).Text)习题7一、单选题1.B 2.C 3.B 4.B 5.C 6.D 7.A 8.C 9.D 10.C 二、填空题1.EF 2.(1)14,(2) 2,(3)10 3.(1)10,(2)28,(3)6,(4) 64.(1)Power(x,n-1)*x,(2)Power = x习题8一、单选题1.B 2.D 3.D 4.A 5.B 6.D 7.A8.(1)D,(2)D 9.B 10.A 11.D二、填空题1. Get, Put2.(1) Open "Myfile3.txt" For Output(2) Write #1, StNo, StMb (3) Close #13. (1) Open " Myfile3.txt" For Input As #1 (2) EOF(1)(3) Input #1, StNo, StMb习题9单选题1.B 2.D 3.D 4.B 5.A 6.A习题10一、单选题1.C 2.(1)A,(2)C 3.C 4.A 5.(1)A,(2)D 6.A 7.D 8.B 9.D二、填空题1.(1)Change,(2)Value,(3)Scroll,(4)Value2.Circle(Scale.Width/2,Scale.Height/2),10003.(1) P1.Picture ,(2) P2.Picture,(3) P2.Picture = P3.Picture4.KeyDown,KeyPress,KeyUp 5.MouseDown,MouseUP6.菜单编辑器,顶;PopUpMenu7.(1) Button.Index (2) BackColor = RGB(255, 0, 0)(3) BackColor = RGB(0, 255, 0) (4) BackColor = RGB(0, 0, 255)8.(1)DragMode, (2)1,(3)0 9.(1)Action, (2)4, (3)ShowFont10.(1)KeyPress, (2)Cls, (3)CurrentY = Y, (4) Button=1习题11一、单选题1.C 2.C 3.A 4.D 5.A 6.D 7.D 8.C9.D 10.D 11.C 12.A 13.B二、填空题1.Select 职工号,基本工资 From 工资表 Where 基本工资>5002.Update 职工表 Set 姓名="伍小明" Where 职工号="00018"3.Select 学籍表.班号,Avg(成绩表.英语) From 成绩表,学籍表 Where 学籍表.学号=成绩表.学号 Group By 学籍表.班号4.Update 工资表 Set 基本工资=基本工资+1005.Delete From 工资表 Where 基本工资<2006.Insert Into 学籍表(学号,姓名,性别,年龄,班号) Values("951009","林东生","男",20,"31")(完)。

vb课后练习答案习题解答(2)

vb课后练习答案习题解答(2)

vb课后练习答案习题解答(2)第2章基本数据类型与表达式2.1 填空题1.程序设计语言中()是语言的最基本符号,()是具有语法意义的最小语法单位。

答案:字符、单词2.()用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。

答案:标识符3.整型数据占()字节的内存空间。

长整型数据占()个字节的内存空间。

单精度浮点型数据占()个字节的内存空间。

双精度浮点型数据占()个字节的内存空间。

日期型数据占()个字节的内存空间。

答案:2、4、4、8、84.100% 表示100为()型数据;100!表示100为()型数据;100@表示100为( )型数据.答案:整、单精度浮点、货币5.符号常量在某一过程中说明,则该符号常量只能在()内有效。

答案:该过程内6.若一个整型变量说明了之后没有给它赋值,则它的值为()。

答案:07.在VB中可以把类型说明符放在变量名的()来说明变量的类型。

答案:末尾8.为了使VB的编译程序自动检查变量声明,遇到未经说明的标识符发出错误警告信息,在程序中要加上()语句。

答案:Option Explicit9.对含有多种运算的表达式,各种运算之间的顺序为()→()→()→()。

答案:函数运算、算术运算、关系运算、逻辑运算10.把1234.567的小数部份四舍五入转换为整数,可使用函数()。

答案:Cint(1234.567)11.将x四舍五入到百位(例如,若x=23874.52应舍入成23900),可使用表达式()。

答案:Int(x / 100 + 0.5) * 10012.将x从十位截断(例如,x=23874.52应截成23800)可使用表达式()。

答案:Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100-0.5)*10013.设X为数值变量,求X的常用对数可使用的表达式是()。

答案:Log(X)/Log(10)14.要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数()。

计算机二级VB考试题及答案

计算机二级VB考试题及答案

计算机二级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亿。

vb2级题库及答案

vb2级题库及答案

vb2级题库及答案VB2级考试通常是指Visual Basic 2级的编程考试,它测试学生对Visual Basic编程语言的理解和应用能力。

以下是一些可能的VB2级题目和它们的答案:1. 题目:编写一个VB程序,实现输入两个整数,输出它们的和。

答案:```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个整数:")num2 = InputBox("请输入第二个整数:")sum = num1 + num2MsgBox("两个数的和是:" & sum)```2. 题目:创建一个VB程序,该程序可以计算并显示一个矩形的面积和周长。

答案:```vbDim length As DoubleDim width As DoubleDim area As DoubleDim perimeter As Doublelength = InputBox("请输入矩形的长度:")width = InputBox("请输入矩形的宽度:")area = length * widthperimeter = 2 * (length + width)MsgBox("矩形的面积是:" & area & ",周长是:" & perimeter) ```3. 题目:编写一个VB程序,用于检查输入的年份是否为闰年。

答案:```vbDim year As IntegerDim isLeapYear As Booleanyear = InputBox("请输入一个年份:")If (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0) ThenisLeapYear = TrueElseisLeapYear = FalseEnd IfIf isLeapYear ThenMsgBox(year & " 是闰年。

相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
5. 要在命令按钮上添加图片应当设置什么属性?若已在规定的属性里装入某个图形文件,但按钮仍不能显示图形,应如何修改?
解答:
要在命令按钮上添加图片应当将其Picture属性设置为一幅图片,并将其Style属性设置为1-Graphical。若已在Picture属性里装入某个图形文件,但按钮仍不能显示图形,应将其Style属性设置为1-Graphical。
VB258 、 Sgn 、88Ai 、 A\B 、取消 、Visual Basic
解答:VB258、取消
2.下列符号哪些是常量,哪些是变量?
123 、 PI 、True 、“正确”、Good、8! 、6e-5
解答:
常量:123、True、“正确”、8!、6e-5
变量:PI、Good
3.计算下列表达式的值。
⑴主窗口:由顶部的标题栏、菜单栏和工具栏以及下面的工作区组成。主窗口是VB集成开发环境的主界面,VB程序的设计及调试均在此进行。
⑵工具箱:标准工具箱中含有一个指针图标和20个内部(标准)控件的图标。除指针图标外,每一个图标代表一种控件,每个控件都是已经定义好的对象,它们有自己的属性、方法和事件。
⑶窗体窗口:窗体窗口又称为“对象窗口”或“窗体设计器”。窗体窗口是设计用户界面的地方。
⑸程序运行时,对象的Name属性为只读属性,即不得为其重新赋值;而Caption属性可以被重新赋值,且次数不限。
3. 如何在窗体上显示文字?如何清除窗体上的文字?在多窗体程序中如何设置启动窗体?
解答:
调用窗体的Print方法可以在窗体上显示文字。调用窗体的Cls方法可以清除窗体上的文字。
在多窗体程序中设置启动窗体的方法:执行【工程】菜单中的【工程属性】命令,打开【工程属性】对话框,在【启动对象】下拉列表框中选择所需窗体并单击【确定】按钮。
⑴所有对象都具有Name(名称)属性;只有部分对象具有Caption属性。
⑵在一个窗体中,每个对象的名称必须保证惟一性,即不得有重名对象;而不同对象的Caption属性值可以相同。
⑶对象的Name属性值必须符合VB对象命名规范;而Caption属性值可以含有任意字符。
⑷对象的Name属性值不得为空字符串;而Caption属性值可以是空字符串。
VB习题与解答

1. Visual Basic 6.0有哪些主要特点?
解答:
Visual Basic 6.0主要有如下的特点:
⑴面向对象的可视化设计平台;
⑵事件驱动的编程机制;
⑶结构化的程序设计语言;
⑷开放的数据库功能与网络支持;
⑸充分利用WINDOWS资源;
⑹方便实用的程序向导等。
2. 如何启动Visual Basic 6.0?
7.设Y是一个正实数,对Y的第四位小数四舍五入,该怎样实现?
解答:
Round(Y,3)

0.001 * Int(1000 * (Y + 0.0005))

1. 指出以下赋值语句中的错误。
⑴ a+b=x+y
⑵ x="123" + "x" (x为整型变量)
⑶ y="" (y为单精度型变量)
⑷ 3x=x3
⑽Month(#5/4/2007#)
⑾Year(#05-08-07#)
解答:
⑴12;⑵"765";⑶"6982";⑷"GGG";⑸5;⑹"L";⑺15;⑻"3721efda";⑼"23.45678";⑽5;⑾2007
5.对于没有赋初值的变量,系统默认的值是什么?
解答:
对于没有赋初值的变量,数值型变量默认值为0;变长字符串型变量默认值为零长度的字符串("");定长字符串型变量中的每个字符均被填充为ASCII码值为0的字符(即Chr(0),等价于vbNullChar);逻辑型变量默认值为False;变体型变量默认值为Empty;对象型变量默认值为Nothing。
℃= 5/9(℉-32)℉= (9/5)℃+32
解答:
在窗体上放置一个文本框Text1(用于输入温度),一个标签Label1(用于显示结果)。添加两个命令按钮,名称分别为cmdCtoF和cmdFtoC,标题分别为【摄氏转华氏】和【华氏转摄氏】。
为cmdCtoF按钮的单击事件编写如下代码:
Label1.Caption = Val(Text1.Text) * 9 / 5 + 32
If c > sMax Then sMax = c
If a < b Then sMin = a Else sMin = b
If c < sMin Then sMin = c
Label1.Caption = "最大数为:" & sMax & ",最小数为:" & sMin
4. 编制程序,通过文本框输入年份和月份,显示该月的天数。注意判断年份是否为闰年:年号能被4整除,但不能被100整除,或者年号能被400整除的年份为闰年。
事件是由用户或系统触发,可以由对象识别的操作。例如单级命令按钮时,触发命令按钮的Click事件。
方法是对象所具有的动作或功能。例如,调用窗体的Print方法,可以在窗体上显示文字,调用窗体的Move方法,可以移动窗体的位置。
2. 对象的Name(名称)属性与Caption属性有何区别?
解答:
对象的Name(名称)属性与Caption属性主要有以下区别:
4. 工程资源管理器和属性窗口各有哪些组成部分?它们的主要功能是什么?
解答:
工程资源管理器窗口由三部分组成,自上而下分别为标题栏、工具栏和文件列表,分别用于显示当前工程名称、切换代码和对象窗口、管理工程中的所有文件。
【属性】窗口由五部分组成。标题栏用于显示当前选定的窗体或控件的名称;对象下拉列表框用于选择当前窗体及其所包含的对象;属性显示排列方式选项卡用于确定属性显示的排列方式;属性列表框用于列出所选对象可以设置的属性及其默认值;属性说明框用于显示当前选中属性的名称,并对其功能进行简要说明。。
解答:
将文本框的PasswordChar属性设置为“#”,并将其MaxLength属性设置为16。
9. 简述开发VB应用程序的一般步骤。
解答:
开发VB应用程序的一般步骤如下:
⑴设计应用程序界面;
⑵设置对象的属性;
⑶为对象的事件过程编写代码;
⑷运行调试;
⑸保存文件及生成可执行文件。

1.下列哪些符号是合法的变量名?
⑸ y=Sqr(-5)*x
解答:
⑴赋值号左侧不得为带有运算符的表达式。
⑵类型不匹配。赋值号右侧表达式的运算结果为字符串型,不能赋值给数值型变量。
⑶类型不匹配。赋值号右侧为字符串型常量(空字符串),不能赋值给数值变量。
⑷赋值号左侧的3x不是合法的. 编制一个温标转换程序,实现摄氏温度℃与华氏温度℉的相互转换。相关公式为:
⑷工程资源管理器窗口:工程资源管理器窗口(简称工程窗口)用于显示和管理当前程序中所包含的全部文件。
⑸【属性】窗口:用于设置窗体和控件的属性,如名称、外观、位置、字体等。
⑹【窗体布局】窗口:用于指定程序运行时窗体的初始位置。
⑺代码窗口:代码窗口又称为代码编辑器,用于输入和编辑程序
⑻【立即】窗口:使用【立即】窗口可以在中断状态下监视对象属性、变量或表达式的值,也可以在设计时查询表达式的值或命令的执行结果。
解答:
选择【开始】│【程序】│【Microsoft Visual Basic 6.0中文版】│【Microsoft Visual Basic 6.0中文版】命令,即可启动VB。
3. Visual Basic 6.0集成开发环境中有哪些常用窗口?它们的主要功能是什么?
解答:
VB集成开发环境主要包含以下窗口:主窗口、工具箱、窗体窗口、工程资源管理器窗口、【属性】窗口以及【窗体布局】窗口等。
4.求出下列函数的值。
⑴ Len(“Hello,济南铁职院!”)
⑵Right(“98765”,3)
⑶LTrim(“6982”)
⑷String(3,“Good”)
⑸InStr( 2,“asdfasdf”,“as”)
⑹Chr(“76”)
⑺Fix(15.86)
⑻LCase(“3721efda”)
⑼Str(23.45678)

1. 什么是对象?举例说明对象的属性、事件和方法。
解答:
在面向对象的程序设计(OOP)中,对象是具有属性和方法,能对特定事件做出反应的实体,如窗体、文本框、命令按钮等都是对象。
属性可看作对象的静态特征。通过对属性值的改变,可以使对象的状态发生变化。属性用来描述和反映对象特性的参数,如控件的名称、标题、颜色、字体、以及是否可见等。
5. 如果集成开发环境中的某些窗口已被关闭,如何再将它们打开?
解答:
通过选择【视图】菜单中的命令或选择工具栏特定按钮显示相关窗口。
6. 如何在工具箱中添加和删除扩展控件?
解答:
选择【工程】菜单中的【部件】命令,或者右击工具箱,在快捷菜单中选择【部件】命令,打开【部件】对话框,在【控件】选项卡的列表中,将所需控件前面的复选框选中(选定标志为“√”),单击【确定】按钮。
为cmdFtoC按钮的单击事件编写如下代码:
Label1.Caption = (Val(Text1.Text)–32) * 5 / 9
3. 编制程序,通过文本框输入a、b、c三个数,用标签显示最大数和最小数。
解答:
在窗体上放置三个文本框,一个标签,均采用默认名称。添加一个按钮,并为其单击事件编写如下代码:
Dim a As Single, b As Single, c As Single, sMax As Single, sMin As Single
相关文档
最新文档