带有答案的5月31日vb考试卷1

【HNCE网上考试系统 v9 选择题在括号里面的是答案，大题答案都已经做好了，希望会对大家有帮助，加油 CC 一、单项选择题（40道小题，共40分） 1、(  d)不属于面向对象系统的三要素。（1分） A、事件 B、属性 C、方法 D、变量 2、如果想让代码窗口中代码的字体大些，可以使用( a  )命令设置。（1分） A、“工具”菜单的“选项” B、“视图”菜单的“缩放” C、“编辑”菜单的“替换” D、“视图”菜单的“定义” 3、每建立一个窗体，工程管理器窗口中就会增加一个( b  )。（1分） A、工程文件 B、窗体文件 C、程序模块文件 D、类模块文件 4、下面说法中，说法正确的是(  D)。（1分） A、在Visual Basic 6.0中的类只能是由系统好的 B、在Visual Basic 6.0中的类只能由程序员自己设计。 C、在Visual Basic 6.0中，程序员自己设计的类只能自己使用 D、在Visual Basic 6.0中，除了系统提供的类以外，程序员也可以自己设计 5、为了同时改变一个活动控件（被选择的控件）的高度和宽度，正确的操作描述是(  A )。（1分） A、拖拉控件4个角上的某一个角上的小方块 B、只能拖拉位于控件右下角的小方块 C、只能拖拉位于控件左下角的小方块 D、不能同时改变控件的高度和宽度 6、新建一个工程，将其窗体的Name属性设置为MyFirst，则默认的窗体文件名为( C  )。（1分） A、Form1.frm B、工程1.frm C、MyFirst.frm D、Form1.vbp 7、要使文本框获得焦点，应该采用(   )方法。（1分） A、GotFocus B、LostFocus C、KeyPress D、SetFocus 8、Command1是一个按钮控件，程序运行时用户按下 Alt + F 就可激活并操作该按钮，这是因为(   )。（1分） A、该按钮的 Name 属性设置为"@First" B、该按钮的 Name 属性设置为"&First" C、该按钮的 Caption 属性设置为"@First" D、该按钮的 Caption 属性设置为"&First" 9、要使标签中的文本靠右显示，则应将标签的Alignment属性值设置为( B  )。（1分） A、0 B、1 C、2 D、3 10、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是( D  )。（1分） A、Timer1.InterVal=0.5 B、Timer1.Interval=5 C、Timer.Interval=50 D、Timer1.Interval=500 11、图像框Image1有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是( B  )。（1分） A、AutoSize B、Stretch C、AutoRedraw D、Appearance 12、在Visual Basic6.0中，合法的字符串常量是(  C )。（1分） A、"20"06" B、$2006$ C、"2006" D、#2006# 13、如果逻辑与(And)运算的结果为“真”，与它所连接的两个条件必须是(C   )。（1分） A、前一个为“真”，后一个为“假” B、前一个为“假”，后一个为“假” C、前一个为“真”，后一个为“真” D、前一个为“假”，后一个为“真” 14、下列是有关描述x>y和y>z同时成立的选项，正确的选项是( D  )。（1分） A、x>y .And. y>z B、x>y>z C、x>y And x>z D、x>y And y>z 15、表达式25.5 Mod 6.5 的值是(  A )。（1分） A、 2 B、 4 C、 5 D、出错 16、若 a=9.8596，则执行 Print Format(a,"$00,00.00")后，显示的结果是( D  )。（1分） A、0,009.86  B、$9.86  C、9.86  D、$0,009.86 17、语句 x = x + 1 的正确含义是(  C )。（1分） A、变量x的值与 x + 1 的值相等 B、将变量x的值存到 x + 1 中去 C、将变量x的值加1后赋给变量x D、变量x的值为1 18、表达式"Turbo"+"c" > "Ture"+"Basic"的值是( B )。（1分） A、True B、False C、Null D、出错信息 19、x=3.54+10 : Print Len(x)程序运行结果是( C  )。（1分） A、13 B、14 C、5 D、非法使用，无输出 20、表达式 Int(4*Rnd+1)*(Int(4*Rnd－1)) 值的范围是( D )。（1分） A、[0，8]  B、[-1，8]  C、[-3，8]  D、[-4，8] 21、设有如下声明Dim x As Integer，如果Sgn(x)的值为-1，则x的值是(  D )。（1分） A、整数 B、大于0的整数 C、等于0的整数 D、小于0的整数 22、语句x=x*k的正确含义是( C  )。（1分） A、变量x的值与x*k的值相等 B、将变量x的值存到x*k中去 C、将变量x的值乘k后赋给变量x D、变量x的值为k 23、下列关于语句 If y = 1 Then x = 1 的说法中，正确的说法是( D  )。（1分） A、x = 1 和 y = 1 均为赋值语句 B、x = 1 和 y = 1 均为关系表达式 C、x = 1 为关系表达式，y = 1 为赋值语句 D、x = 1 为赋值语句，y = 1 为关系表达式 24、假定有如下语句：s=inputbox("请输入字符串","字符串对话框","字符串")，执行该语句后，输入“等级考试”并单击“确定”，则变量s的内容是( D  )。（1分） A、请输入字符串 B、字符串对话框 C、字符串 D、等级考试 25、下列叙述中，正确的叙述是(  C )。（1分） A、MsgBox过程的返回值是一个字符串 B、执行MsgBox过程后，可以在弹出的信息框中输入一个数字 C、MsgBox过程的第1个参数不能省略 D、执行MsgBox过程后，只能出现一个带“确定”按钮的信息框 26、已知：x = 5，执行 For i = 20 To 1 Step -2: x = x + i / 5: Next i 后，x 的值为( D  )（1分） A、24 B、25 C、26 D、27 27、已知：i = 0，s = 0，执行 Do Until i >= 4: s = i + s: i = i + 1: Loop 后，s的值是( A  )。（1分） A、6 B、10 C、11 D、15 28、如果变量nop的值为4，则执行完语句 op = Choose(nop, "春", "夏", "秋", "冬")  后，op的值为( D  )。（1分） A、春 B、夏 C、秋 D、冬 29、已知：Option Base 1，Dim A(2 To 3, 4) As Integer，则数组A的元素个数及其第1维的下界分别是(  B )。（1分） A、8和1 B、8和2 C、12和1 D、12和2 30、在下列数组声明语句中，( A  )是正确的。（1分） A、Dim A%(3,4) B、Dim A![3;4] C、Dim A#[3,4] D、Dim A$(3;4) 31、已知：Option Base 0，Dim A()，n% = 7，则下列操作中，错误的操作是(   )。（1分） A、ReDim A(n) B、ReDim A(n-7) C、ReDim A(n+2) D、ReDim Preserve A(1 To n) 32、利用Array()函数对数组各元素赋值，声明的数组是可调数组或连(  A )都可以省略的数组，并且其类型只能是Variant类型。（1分） A、圆括号 B、方括号 C、花括号 D、尖括号 33、(  A )属于构造类型数据。（1分） A、数组 B、货币型 C、字符型 D、日期型 34、事件过程是在(  C )时执行的代码段。（1分） A、窗体调用 B、单击窗体 C、双击窗体 D、响应事件 35、Sub子过程用的结束语句是( A  )。（1分） A、End Sub B、Exit Sub C、End Function D、Exit Function 36、形参表中形参的类型不能是(  D )。（1分） A、整型 B、单精度 C、双精度 D、定长字符串 37、可以在窗体模块的通用声明段中声明(  A )。（1分） A、全局变量 B、全局常量 C、全局数组 D、全局用户自定义类型 38、以下叙述中，错误的叙述是(  B )。（1分） A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件 D、全局变量必须在标准模块中定义 39、多窗体程序由多个窗体组成。在默认情况下，Visual Basic在应用程序执行时，总是把(  C)指定为启动窗体。（1分） A、包含控件最多的 B、包含控件最少的 C、设计时的第一个窗体 D、命名为Form1的 40、按照文件访问方式分类，不正确的被访问文件是( D  )。（1分） A、顺序文件 B、随机文件 C、二进制文件 D、数据文件 二、填空题（5道小题，共20分） 1、* 输出人才标准的文字三角形（结果如下所示）                   品德                   品德、知识                   品德、知识、能力                   品德、知识、能力、业绩    * 程序代码如下：          Option Base 1          Private Sub Form_Click()            Dim a()              = Array("品德", "、知识", "、能力", "、业绩")            For k = 1 To 4              For j =   To k                  Print a(j);              Next j              Print            Next k          End Sub （4分） 2、* 根据π/4=1-1/3+1/5-1/7+…..+(-1)n-1/(2n-1)，分别求n=1000、1500、2000、2500时π的近似值。    * 程序代码如下：：          Private Sub Form_Click()            For i = 1000 To 2500 Step               s = 0              f =               For j = 1 To i                t = 1 / (2 * j - 1)                s = s + f * t                f = -f              Next j              Print "i="; i, "pi="; s            Next i          End Sub （4分） 3、* 程序功能是统计二维数组a(m×m)的右上三角中奇数元素的个数。    * 程序代码如下：          Option Base 1          Dim a(), b(), c()          Private Sub Form_Click()             m = Val(InputBox("m="))             ReDim a(m, m)             For i = 1 To m                For j =    I To m                    a(i, j) = Int(Rnd * 100)                Next j             Next i             n = 0             For i = 1 To m                For j =    I To m                  If a(i, j) Mod 2 = 1 Then n = n + 1                Next j             Next i             Print "右上三角中奇数元素的个数为："; n          End Sub （4分） 4、* 设计一个函数过程 gcd，gcd 的功能是求最大公约数。    * 程序代码如下：              Option Base 1              Private Function gcd(ByVal m%, ByVal n%) As Integer                  If m < n Then t = m: m = n: n = t                  Do                    r = m Mod n                    If r = 0 Then Exit Do                    m = n                      = r                 LooP                 gcd =               End Function （4分） 5、* 程序的功能是：计算10到50之间的每个整数i的立方。    * 将结果以每行2个数（整数值i,i的立方值）的格式格式保存到文件D:\FILE2.txt中。    * 程序段如下：          Private Sub Command1_Click()            Dim i%            Open "D:\FILE2.txt" For output As #1            For i= 10 To 50              Print i, i^3              Write #1, i, I^3            Next i            Close #1          End Sub （4分） 三、编程题（3道小题，共40分） * 编写程序，计算并输出下面数列前n项的和(设n=50，x=0.5)，要求结果保留4位小数。     sin(x)/x,sin(2x)/2x,sin(3x)/3x, …… ,sin(n*x)/(n*x) ,…… private sub form1_click X=0.5 For i=1 to 50 T=Sin(i*x)/(i*x) S=s+t Next i Print format(s,"####.0000") End sub （其中，sin(x)为正弦函数） （10分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 设有两个一维整型数组a和b，其各有10个元素，编程先给a赋予10个随机整数，然后将a中小于或等于所有元素平均值的元素放置至b数组中并输出这些元素。 应该可以，我试过了 Dim a(1 to 10),b(1 to 10) Dim aver as double For i=1 to 10 A(i)=int(rnd*20+10) Aver=aver+a(i) Print a(i); Next For i=1to 10 If a(i)<=aver/10 then b(i)=a(i) Print b(i) （15分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 此题我不会 3、* 编写一个计算圆柱体表面积的程序，如图 K_514.jpg 所示。    * 界面要求：    *     使用标签、文本框、命令按钮完成。    * 运行要求：    *    窗体标题为“计算圆柱体表面积”；    *    根据用户输入的半径、高，单击“表面积”按钮，将圆柱体表面积显示到标签中；    *    如果表面积<50，则使用msgbox显示“小”，    *    如果50<=表面积<100，则使用msgbox显示“中”，    *    如果表面积>=100,则使用msgbox显示“大”。    *    注：π按照3.14计算。    * （此题要求上载窗体文件，不要求填写程序运行结果） （【下载文件“k_514.jpg”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （15分） （本题不要求填写运行结果） 请将你解答本题所写的源程序粘贴到下面或者上载源程序 窗体底端