826803049_2_vb作业(11月9日)

2008/09第二学期程序设计基础VB试卷说明：考生应将所有答案填写在答卷上，否则无效。

一、选择题（每小题1分，共10分）1、下列函数中，_________函数返回的值是数值型的。

A. ChrB. MidC. SpaceD. Instr2、执行语句 a = MsgBox("AAAA", , "BBBB", "", 5)后，所产生的信息框的标题是_____ 。

A.BBBBB.空C. AAAAD. 53、设a=2, b=3, c=4, d=5, 表达式 3>2*b OR a=c AND b<>c OR c>d 的值是______ 。

A.1B.TrueC.FalseD.-14、Timer 控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，可通过以下_______属性。

A.Enabled = False或Interval = 0B.Visible= False或Interval = 0C.Enabled = False或Visible = FalseD.Enabled = False且Interval = 05、下面语句说明合法的是______ 。

A.Sub a1(ByVal n%())B.Sub a1(n As Integer ) As IntegerC.Function f1%(f1 As Integer)D.Function f1(ByVal n As Integer)6、设当前位置CurrentX=200，CurrentY=400，执行指令"Line (100, 250) -(350, 500), ,B"后，CurrentX= ______ 。

A.100B.200C.350D.5507、在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示文本文件类型的文件，则Filter属性的正确设置是_________。

vb考试填空试题及答案VB考试填空试题及答案1. 在VB中，声明变量时，必须指定变量的类型，例如：`Dima As Integer`，其中`Integer`是变量`a`的______。

答案：数据类型2. VB中，用于输出信息到消息框的函数是`MsgBox`，其语法为`MsgBox(prompt[, buttons] [, title] [, helpfile, context])`，其中`prompt`参数用于指定要显示的文本，`buttons`参数用于指定消息框中显示的按钮类型，`title`参数用于指定消息框的标题，`helpfile`和`context`参数用于指定帮助文件和上下文编号。

当`buttons`参数设置为`1`时，消息框显示的按钮是______。

答案：确定3. VB中的`Select Case`语句用于实现多分支选择结构，其基本语法为`Select Case testexpression`，其中`testexpression`是用于测试的表达式。

`Select Case`语句中，`Case`后面必须跟一个或多个值，这些值用于与`testexpression`的结果进行比较。

如果`testexpression`的结果等于`Case`后面指定的值，则执行`Case`语句块中的代码。

`Case`语句块结束后，使用`______`关键字来结束该语句块。

答案：End Select4. 在VB中，`For`循环的基本语法为`For counter = start To end [Step step]`，其中`counter`是循环计数器，`start`是计数器的初始值，`end`是计数器的结束值，`Step`是计数器的步长（默认为1）。

如果需要在循环过程中提前退出循环，可以使用`______`语句。

答案：Exit For5. VB中的`Do`循环有两种形式：`Do While`和`Do Until`。

Vb练习题1.要将命令按钮command1上面显示的文字修改为”确定”,需要修改的command1的属性是( A )A.captionB.showC.titleD.text2.客观世界中的任何一个事物都可以看作是一个对象,在面向对象程序设计语言VB中,下面哪项不是VB中的对象( D )A.命令按钮B.文本框C.窗体D.属性3.对语句CONST P=3.14的说法中最正确的是( B )A. 定义一个变量P 并给其赋值为3.14B. 定义一个符号常量P 并给其赋值为3,14C. 定义整数P并给其赋值为3.14 D 将圆周率四舍五入成3.144.整型数据的数据类型关键字是( A )A.integerB.singleC.longD.string5.下面属于正确的VB变量名的是(C )A.longB.123abC.string1D. A·B6.变量A%的数据类型是( A )A.整型B.字符型C.单精度型D.货币型7.VB 算术运算符中的乘或除、整除和求余的优先级，从高到低依次为（B ）A.乘或除、求余、整除B. 乘或除、整除、求余C.整除、求余、乘或除D. 整除、乘或除、求余8.判断整型变量m 能否被n整除的VB表达式为（A ）A.m mod n = 0B.m/n*n=mC.m mod nD.(m\n)*n=m9.下面有关操作系统的说法中错误的是（D ）A.操作系统可以对系统的硬、软资源进行管理B.操作系统是硬件和应用软件的接口C.目前个人电脑比较流行的操作系统是windows XPD. 操作系统是一种应用软件10.逻辑表达式not “a”>” b” and 9<3 or 9>3的值是( A )A.trueB.falseC.表达有错D.条件不足11.表达式”123”+456的结果是( B )A.123456B.579C.报错D.”123456”12.数组B(1 to 5, 3)包含的数组元素个数是( D )A.15B.8C.9D.2013.下面的程序段不能实现将A和B中的较大数赋值给变量MAX的是.( A )A.MAX=(A<B:A,B)B.IF A>B THEN MAX=A ELSE MAX=BC.MAX=A:IF B>A THEN MAX=BD. IF B<A THEN MAX=A ELSE MAX=B14.下面的赋值语句合法的是( B )A.15 =15B.X=YC.X+1=5D.5=Y15.下面的数据类型中,占用内存最小的是( B )A.BooleanB.ByteC.IntegerD.Single一．填空题（每空2分，共20分）1.程序设计的3大结构是顺序、分支和循环2.FOR循环中，不指明步长时，默认步长是1 ；终止循环的条件是：当步长大于零时，初始值小于终止值，当步长小于零时，初始值大于终止值。

第九章课后习题答案一、选择题二、填空题1、2—下拉式列表框Style 22、文本框列表框3、Inteval 5004、Scroll5、List 0 Clear6、没有方法，也没有外观四、设计题1、Private Sub Option1_Click()Text1.FontSize = 10End SubPrivate Sub Option2_Click()Text1.FontSize = 12End SubPrivate Sub Option3_Click()Text1.FontSize = 14End SubPrivate Sub Option4_Click()Text1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Option5_Click()Text1.ForeColor = RGB(0, 255, 0)End SubPrivate Sub Option6_Click()Text1.ForeColor = RGB(0, 0, 255)End Sub2、Private Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.FontSize = 10Case 1Text1.FontSize = 14Case 2Text1.FontSize = 18Case 3Text1.FontSize = Val(Combo1.Text) End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndexCase 0Text1.ForeColor = RGB(255, 0, 0) Case 1Text1.ForeColor = RGB(0, 255, 0) Case 2Text1.ForeColor = RGB(0, 0, 255) End SelectEnd SubPrivate Sub Form_Load()ShowCombo1.Text = "字体"Combo1.AddItem "10"Combo1.AddItem "14"Combo1.AddItem "18"Combo1.AddItem "22"Combo2.Text = "颜色"Combo2.AddItem "红色"Combo2.AddItem "绿色"Combo2.AddItem "蓝色"End Sub3、Private Sub Option1_Click(Index As Integer)Select Case Option1(Index).IndexCase 0label1.Left = 0Case 1label1.Left = (Me.ScaleWidth - label1.Width) / 2Case 2label1.Left = Me.ScaleWidth - label1.WidthEnd SelectEnd Sub4、Private Sub Command1_Click()If Option1.Value = True ThenText2 = Text1 - 100ElseText2 = Text1 - 105End IfEnd Sub5、Private Sub Command1_Click()s = 0If Option1.Value = True Thens = Val(Text1)ElseIf Option2.Value = True Thens = Val(Text1) * 1.2Elses = Val(Text1) * 1.4End IfIf Check1.Value = 0 And Check2.Value = 1 Thens = s / 4ElseIf Check1.Value = 1 Thens = s * 1.3End IfLabel2.Caption = "总学时：" & sEnd Sub6、Private Sub command1_Click()Form2.ShowForm2.ClsForm2.Print "您点中了以下"; Form1.List2.ListCount; "个菜：" For i = 0 To Form1.List2.ListCount - 1Form2.Print Form1.List2.List(i)NextEnd SubPrivate Sub Command2_Click()List2.RemoveItem List2.ListIndexEnd SubPrivate Sub Command3_Click()List2.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()List1.AddItem "鱼香肉丝"List1.AddItem "麻婆豆腐"List1.AddItem "京酱肉丝"List1.AddItem "水煮肉片"List1.AddItem "宫保鸡丁"List1.AddItem "酸菜鱼"End SubPrivate Sub List1_DblClick()For i = 0 To List2.ListCount - 1If List2.List(i) = List1.Text Then Exit ForNext iIf i = List2.ListCount ThenList2.AddItem List1.TextEnd IfEnd Sub7、Private Sub Combo2_Click()Select Case Val(Combo2.Text)Case 1, 3, 5, 7, 8, 10, 12t = 31Case 4, 6, 9, 11t = 30Case 2If Combo1.Text Mod 4 = 0 And Combo1.Text Mod 100 <> 0 Or Combo1.Text Mod 400 = 0 Thent = 29Elset = 28End IfEnd SelectCombo3.ClearCombo3.Text = "日数"For i = 1 To tCombo3.AddItem Str(i)NextEnd SubPrivate Sub Form_Load()Combo1.Text = "年份"For i = 1995 To 2050Combo1.AddItem Str(i)NextCombo2.Text = "月份"For i = 1 To 12Combo2.AddItem Str(i)NextCombo3.Text = "日数"For i = 1 To 31Combo3.AddItem Str(i)NextEnd Sub8、Private Sub HScroll1_Change()Label4.Caption = HScroll1.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll2_Change()Label5.Caption = HScroll2.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End SubPrivate Sub HScroll3_Change()Label6.Caption = HScroll3.ValueMe.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub9、Private Sub Form_Load()Image1.Picture = LoadPicture("E:\ghy\万里图片\4.jpg")End SubPrivate Sub Form_Resize()Image1.Width = Me.WidthImage1.Height = Me.HeightEnd Subv10、Dim sPrivate Sub Form_Load()Label1.Caption = "程序已经运行了：0秒"Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()s = s + 1Label1.Caption = "程序已经运行了：" & Str(s) & "秒" End Sub11、Private Sub Command1_Click()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd SubPrivate Sub Form_Load()List1.AddItem "清华大学"List1.AddItem "北京大学"List1.AddItem "中国人民大学"List1.AddItem "北京师范大学"List1.AddItem "北京理工大学"End Sub12、Private Sub Command1_Click()If Trim(Text1) <> "" ThenList1.AddItem Trim(Text1)Text1 = ""Text1.SetFocusLabel2.Caption = "院校数：" & List1.ListCount ElseMsgBox "请先输入院校名!"End IfEnd SubPrivate Sub Command2_Click()If Trim(Text1) <> "" ThenFor i = 0 To List1.ListCount - 1If List1.List(i) = Trim(Text1) ThenList1.RemoveItem iText1 = ""Exit ForEnd IfNextIf i > List1.ListCount Then MsgBox "您输入的院校不存在！"ElseMsgBox "请先输入院校名!"End IfLabel2.Caption = "院校数：" & List1.ListCountEnd SubPrivate Sub Command3_Click()List1.ClearText1 = ""End SubPrivate Sub Command4_Click()EndEnd Sub13、Private Sub Check1_Click(Index As Integer)Select Case IndexCase 0If Check1(0).Value = 1 Then Text1.FontBold = True Else Text1.FontBold = FalseCase 1If Check1(1).Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = FalseCase 2If Check1(2).Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False Case 3If Check1(3).Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End SelectEnd SubPrivate Sub Command1_Click()HScroll1.Value = 8For i = 0 To 3Check1(i).Value = 0Option1(i).Value = FalseOption2(i).Value = FalseNextText1.FontSize = 12Text1.FontName = "宋体"Text1.ForeColor = vbBlackEnd SubPrivate Sub Command2_Click()EndEnd Sub'将text1的属性MultiLine设置为“True”Private Sub Form_Load()Text1 = "好雨知时节，" & vbCrLf & "当春乃发生。

(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成A) 动态结构和静态结构B) 紧凑结构和非紧凑结构C) 线性结构和非线性结构D) 内部结构和外部结构正确答案: C(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为A) 12B) 13C) 14D) 15正确答案: B(3) 在下列几种排序方法中，要求内存量最大的是A) 插入排序B) 选择排序C) 快速排序D) 归并排序正确答案: D(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是A) 自顶向下B) 由底向上C) 模块化D) 限制使用goto语句正确答案: B(5) 下列不属于软件调试技术的是A) 强行排错法B) 集成测试法C) 回溯法D) 原因排除法正确答案: B(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为A) PAD图B) N-S图C) 结构图D) 数据流图正确答案: B(7) 软件复杂性度量的参数包括A) 效率B) 规模C) 完整性D) 容错性正确答案: B(8) 下列叙述中，不属于数据库系统的是A) 数据库B) 数据库管理系统C) 数据库管理员D) 数据库应用系统(9) 数据库系统的核心是A) 数据库B) 数据库管理系统C) 数据模型D) 软件工具正确答案: B(10) 视图设计一般有3种设计次序，下列不属于视图设计的是A) 自顶向下B) 由外向内C) 由内向外D) 自底向上正确答案: B(11) 下列说法错误的是A) 标准模块的扩展名是.basB) 标准模块由程序代码组成C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体正确答案: C(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性A) ValueB) VisibleC) DefaultD) Enabled正确答案: D(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是A) 设置Enabled的值为TrueB) 设置TabIndex的值为1C) 设置TabIndex的值为0D) 设置Index的值为0正确答案: C(14) 下列几项中，属于合法的日期型常量的是A) "10/10/02"B) 10/10/02C) {10/10/02}D) #10/10/02#正确答案: D(15) 下列程序段的执行结果为A=2B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A) TrueB) FalseC) -1D) 1正确答案: B(16) 以下语句的输出结果是a=Sqr(26)Print Format$ (a, "$####.###")A) $5.099B) 5.099C) 5099D) $0005.099正确答案: A(17) 标签控件能够显示文本信息，决定其文本内容的属性是A) AlignmentB) CaptionC) VisibleD) BorderStyle正确答案: B(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是A) CurrentYB) PictureC) CurrentXD) Caption正确答案: B(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是A) 命令按钮B) 图片框C) 复选框D) 单选按钮正确答案: A(20) 当直线或形状的BorderStyle属性设置为1时，控件是A) 虚线B) 点线C) 不可见D) 实线正确答案: D(21) 通过设置何属性可以改变所画图形的形状？A) ShapeB) IndexC) EnabledD) Height正确答案: A(22) 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s >=30 Print Number, s End Sub程序运行后，输出的结果是A) 2 3B) 2 56C) 5 12D) 10 20正确答案: B(23) 下列程和序段的执行结果为x=Int(Rnd() + 9) Select Case x Case 10 Print "excellent" Case 9 Print "good" Case 8 Print "pass" Case Else Print "fail" End Select A) excellentB) goodC) passD) fail正确答案: B(24) 下列程序段的执行结果为a=75If a > 60 Then Score=1If a > 70 Then Score=2If a > 80 Then Score=3If a > 90 Then Score=4Print " Score="; ScoreA) Score＝1B) Score＝2C) Score＝3D) Score＝4正确答案: B(25) 下列程序段的执行结果为I=1x=5DoI=I + 1x=x + 2Loop Until I >=7Print "I="; IPrint "x="; xA) I＝4 x＝5B) I＝7 x＝15C) I＝6 x＝8D) I＝7 x＝17正确答案: D(26) 下面的程序的运行结果是a=1b=1Doa=a^2b=b + 1Loop Until b > 5Print "k="; a; Spc(4) ; "b="; b + aA) k＝7 b＝14B) k＝6 b＝6C) k＝4 b＝8D) k＝1 b＝7正确答案: D(27) 单击命令按钮，下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer, y As Integer x=32: y=42 Call PCS(x, y) Print x; y End Sub Public Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1 m=m Mod 10+1 End Sub A) 32 42B) 2 32C) 2 3D) 12 3正确答案: A(28) 下列程序的执行结果为Private Sub Command1_Click() Dim s1 As String, s2 As String s1="abcd" Call Transfer(s1, s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i >=1 tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop ystr=te mpstr End Sub A) dcbaB) abdcC) abcdD) dabc正确答案: A(29) 单击命令按钮，下列程序的执行结果是Private Sub Blck(x As Integer) x=x * 2 + 1 If x < 6 Then Call Blck(x) End If x=x * 2 + 1 Print x; End Sub Private Sub Command1_Click() Blck 2 End Sub A) 23 47B) 10 36C) 22 44D) 24 50正确答案: A(30) 有如下程序：Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A) Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c=c + 1 Gad=a + b + c End Function 运行上面的程序后，单击命令按钮，输出结果为A)1 2 3B) 2 3 4C) 4 5 6D) 1 4 6正确答案: C(31) 下列过程定义语句中，参数不是对象的定义语句是A) Sub Pro4(x As Form)B) Sub Pro4(y As Control)C) Sub Pro4(Form1 As Form,Labell As Control)D) Sub Pro4(x As Currency)正确答案: D(32) 下列说法正确的是A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器正确答案: D(33) 下列各选项说法错误的一项是A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题正确答案: B(34) 下列数组定义语句错误的是A)k%=10Dim Arr(k)B)Const k%=10Dim Arr(k)C)Dim Arr1(10) As IntegerDim Arr2 (10)D)Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)正确答案: A(35) 在Visual Basic中按文件的数据性质不同，可将文件分为A) 数据文件和程序文件B) 文本文件和数据文件C) 顺序文件和随机文件D) ASCII文件和二进制文件正确答案: A二、填空题(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【1】。

实验4：编写一个程序。

要求在窗体内设置7个标签（Label）及7个文本框（TextBox），将每个标签的Text属性值设置为如下表达式。

在程序运行时，单击窗体空白区，可在对应的文本框中输出这些表达式的值。

1）8*3*6\22）7/6*3.2/2.15*(5.5+3.5)3）34\4+4.0^5/124）65\3 mod 3.4*fix(3.8)5）“abg”+”34” & “erert”6）true or not (8+3>=23)7）7>2 or 4<9实验目的：学习VB运算符的使用。

Public Class Form1Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ClickTextBox1.Text = 8 * 3 * 6 \ 2TextBox2.Text = 7 / 6 * 3.2 / 2.15 * (5.5 + 3.5)TextBox3.Text = 34 \ 4 + 4.0 ^ 5 / 12TextBox4.Text = 65 \ 3 Mod 3.4 * Fix(3.8)TextBox5.Text = """abg""" + """34""" & """erert"""TextBox6.Text = True Or Not (8 + 3)>= 23TextBox7.Text = 7 > 2 Or 4 < 9End SubEnd Class实验5：编写一个程序。

设a=2，b=3，c=4，d=5，S="ABCDEFGHI]K"，求下列表达式的值：(1) 5+(a+b)2(2) cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S, 3,4) (6) Instr(S, "EFG")(7) Lcase(Right(S, 5)) (8) Len(Mid((S, 3)实验目的：学习VB中函数的使用。

实验任务九参考答案课程名称：程序设计基础VB实验名称——八、循环结构程序设计（2）一、实验目的：1.进一步掌握循环语句的基本结构2.清楚循环流程，掌握循环语句的描述4.掌握多重循环结构程序的设计方法二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：程序完善题的做题技巧和方法建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序[希望同学们通过实践掌握]实验1 阅读程序，人工列表写出下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用单步实验2实验书103页实验5-11 改错题。

窗体如图所示。

要求程序运行时，在文本框text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。

编程以下程序实现此功能。

在调试时发现，如输入“陈”，可以正确删除所有“陈”的项目，但输入“刘”，但输入“刘”，则只删除了“刘邦”，如图b 所示，这说明程序不能适应所有情况，需要修改。

Private Sub Command1_Click() Dim n%, k%n = Len(Text1.Text)For k = List1.ListCount - 1 To 0 Step -1If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub实验3 实验书实验6-5 编程实现求Armstrong 数，Armstrong 数具有如下特征：一个n 位数等于其各位数的n 次方之和。

例如，153=13+53+331634=14+64+34+44提示：把数值转换成字符串后，利用Mid 函数取每一位上的数。

法一：Private Sub Command1_Click()Dim i As Integer, a As Integer, j%, b As Integer, k%, c%, h As Long, d As Long For i = 10 To 99a = Val(Left(a, 1)) ^ 2 + Val(Right(a, 1)) ^ 2 If a = i Then Print i Next iFor j = 100 To 999b = Val(Left(j, 1)) ^ 3 + Val(Mid(j, 2, 1)) ^ 3 + Val(Right(j, 1)) ^ 3 If b = j Then Print b Next jFor k = 1000 To 9999c = Val(Left(k, 1)) ^ 4 + Val(Mid(k, 2, 1)) ^ 4 + Val(Mid(k, 3, 1)) ^ 4 + Val(Right(k, 1)) ^ 4If k = c Then Print c法二：Dim n%, k%n = Len(Text1.Text)For k = 0 To List1.ListCount - 1If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k k = k - 1 End If Next kFor h = 10000 To 99999d = Val(Left(h, 1)) ^ 5 + Val(Mid(h, 2, 1)) ^ 5 + Val(Mid(h, 3, 1)) ^ 5 + Val(Mid(h, 4, 1))^ 5 + Val(Right(h, 1)) ^ 5If d = h Then Print dNext hEnd Sub法二：Private Sub Command2_Click()Dim i&, n%, s&, m%For i = 1 To 99999n = Len(CStr(i))s = 0For j = 1 To ns = s + Mid(CStr(i), j, 1) ^ nNext jIf s = i Then Print iNext iEnd Sub法三：Private Sub Command3_Click()Dim i As Long, a As Long, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer For i = 1 To 99999a = i \ 10000b = (i - 10000 * a) \ 1000c = (i - 10000 * a - 1000 * b) \ 100d = (i - 10000 * a - 1000 * b - 100 * c) \ 10e = i - 10000 * a - 1000 * b - 100 * c - 10 * dn = Len(CStr(i))If i = a ^ n + b ^ n + c ^ n + d ^ n + e ^ n ThenPrint iEnd IfNext iEnd Sub实验4 实验书105页实验5-15在界面上放三个按钮，分别打出下面三幅图。

2015—2016学年信息技术部高三十一月月考试题一、填空题：（每空0.5分，共15分） 1、一个Integer 型数据占_______个字节的存储空间，一个Long 型数据占______个字节，一个Single 型数据占______个字节；一个Double 型数据存储空间大小为______个字节；一个Boolean 型存储空间大小为______个字节；一个Date 型存储空间大小为______个字节；一个Obiect 型存储空间大小为______个字节。

2、数学式a 2+2ab+b 2对应的VB 式为_________________________________。

3、表达式 Int(-18.2) + Sgn(18.2)的值是________________________。

4、表达式 IIf (10 > 20, 30, 40)的值是__________。

5、写在一行上的多条语句，应以____________为分隔符。

6、在定义数组时，下标的范围可以是不超过____________数据类型的范围。

7、用Dim 语句声明数组时，在默认情况下，数组下界为______，如果需要数组下界为1可以在通用声明中，使用______________________项加以说明。

8、语句Dim b(4 ,1 to 9) As Single,声明了一个有_____个元素的_____维数组。

9、用Dim 语句定义数组时，数值数组中的全部元素初始化为__________，字符串数组中的全部元素初始化为______________________。

10、Dim 语句必须放在使用数组之前，遵循_______________________的原则。

11、数组的维数最多可以有___________维。

12、创建动态数组通常可分为两步：首先在窗体级别、标准模块或过程中，用________ 语句、__________语句、__________语句或Static 语句声明一个没有下标的数组，括号__________（能/不能）省略，然后在过程中用___________语句定义带下标的数组。

考试题型一、单项选择题（每题1分，共35分）二、判断题（每题1分，共15分；正确的打"，错误的打x。

）三、填空题（每空1分，共10分）四、读程序写出结果（每题5分，共20分）五、程序填空（每空2分，共10分）六、编程题（每小题10分，共10分）2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中，错误的是A）Visual Basic是采用事件驱动编程机制的语言B）Visual Basic程序既可以编译运行，也可以解释运行C）构成Visual Basic程序的多个过程没有固定的执行顺序D）Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构12. 以下叙述中，错误的是A）一个Visual Basic应用程序可以含有多个标准模块文件B）一个Visual Basic工程可以含有多个窗体文件D）标准模块文件的扩展名是.bas13. 以下叙述中，错误的是A）在Visual Basic中，对象所能响应的事件是由系统定义的C）Visual Basic中允许不同对象使用相同名称的方法D）Visual Basic中的对象具有自己的属性和方法14. 设有如下语句：Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中，错误的是A）a被定义为Integer类型变量B） b被定义为Integer类型变量C） c中的数据是字符串D）d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A）Left |B） Mid | C） Stri ng D） In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C） Print “ A= ” +Str（x+y）D） Print “ A= ” & x+y19. 假定有如下的命令按钮（名称为Comma ndl）事件过程：Private Sub Comma nd1_Click（）X=lnputBox（输入：：“'输入整数”）MsgBox ”输入的数据是：”，，”输入数据：”+XEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是A）x的值是数值10B）输入对话框的标题是“输入整数“C）信息框的标题是“输入数据：10 “D）信息框中显示的是“输入的数据是：“20. 在窗体上画1个命令按钮（名称为Command1 ）和1个文本框（名称为Text1），然后编写如下事件过程：Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x，再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程，以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1,程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。

高中会考信息技术vb试题及答案高中会考信息技术VB试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. variable2C. 3variableD. variable-2答案：B2. Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D3. 在Visual Basic中，以下哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C4. 如果变量x的值为5，以下哪个表达式的值是10？A. x + 5B. x * 2C. x / 2D. x - 5答案：B5. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D6. 在Visual Basic中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A7. 在Visual Basic中，以下哪个事件用于响应鼠标单击？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. 在Visual Basic中，以下哪个函数用于获取当前系统时间？A. NowB. DateC. TimeD. Today答案：A9. 在Visual Basic中，以下哪个选项是正确的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D10. 在Visual Basic中，以下哪个控件用于选择一个项目？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的关键字是________。