窗体顶端
本卷共有4道大题:窗体底端
一、单项选择题（25道小题，共25分）
1、VB中工程软件的扩展名为()（1分）
A、ds
B、frm
C、vbp
D、bas
2、把字符串"abcdef"右边的空格去掉应使用()函数（1分）
A、trim
B、rtrim
C、right
D、mid
3、文本框text1的text属性的数据类型是()（1分）
A、整数型
B、字符串
C、单精度
D、双精度
4、下列()属性决定窗体标题栏显示内容（1分）
A、Name
B、Caption
C、Text
D、BackStyle
5、命令按钮command1不具有下列哪个事件()（1分）
A、Click
B、KeyPress
C、GotFocus
D、DblClick
6、为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True,然后再把ScrollBars属性设置为()（1分）
A、0
B、1
C、2
D、3
7、DimD(3,1To10,1To15)语句中，数组的元素个数为()（1分）
A、3*10*16
B、3*11*16
C、4*10*15
D、4*11*15
8、如果整型变量c、d、x的值分别为8、6、0，则下列语句ForI=ctod:x=x+i:NextI执行结束时，I的值为()（1分）
A、8
B、7
C、6
D、5
9、假定有以下循环结构 DoUntil条件 循环体 Loop 则正确的描述是()（1分）
A、如果"条件"是一个为0的常数，则一次循环体也不执行
B、如果"条件"是一个为0的常数，则至少执行一次循环体
C、如果"条件"是一个不为0的常数，则至少执行一次循环体
D、不论"条件"是否为"真"，至少要执行一次循环体
10、"x是小于100的非负数"，用VB表达式表示正确的是()（1分）
A、0<=x0rx<100
B、0<=x<100
C、0<=xAndx<100
D、0<=x,x<100
11、下列语句错误的是()（1分）
A、exitfor
B、exitdo
C、endsub
D、exitselect
12、Inputbox函数返回的数据类型为()（1分）
A、整型
B、逻辑型
C、单精度
D、字符串
13、假定有以下程序段:ForI=1To3:Forj=1To5Step-1:PrintI*j:Nextj:NextI则语句PrintI*j的执行次数是()（1分）
A、15
B、18
C、10
D、0
14、如果要清除在窗体中打印输出的文字，可以利用()语句（1分）
A、Input
B、Load
C、Cls
D、Paint
15、case<表达式表列>,其中的表达式表列不正确的为()（1分）
A、Case100*a
B、Case1000To2000
C、CaseIs<3000
D、Case2000
4:x=x*y:y=y+1:Loop执行后x的结果为()（1分）
A、1
B、4
C、8
D、20
19、以下声明和命名标识符错误的是()（1分）
A、必须以字母开头
B、变量名的最后一个字符可以是类型声明字符
C、长度不能超过8个字符
D、不能与关键词同名
20、下列说明错误的是()（1分）
A、ConstMyVar#=123
B、Dimmynameasstring
C、dimaasinteger,dimbassingle
D、dimMyString="Hello,"+"Myfriend!"
21、VB中允许出现的数据形式为()（1分）
A、1.89E1.1
B、.368
C、D32
D、2.5E
22、设a=2,b=3,c=4,d=5,下列表达式a>bANDc<=dOR2*a>c的值是()（1分）
A、True
B、False
C、-1
D、1
23、语句6*6\6/6的输出结果是()（1分）
A、6
B、12
C、36
D、216
24、给窗体form1加载背景图片，应使用()函数（1分）
A、picture
B、ucase
C、loadpicture
D、image
25、字符串"河南农业大学现教部"的长度是()（1分）
A、18
B、10
C、9
D、16
二、填空题（12道小题，共35分）
1、设定系统当前日期是2004年5月12日，Month(date)= 5
2、设A$="VisualBasic",len(a$)函数返回值是 12
3、在窗体的声明部分，语句Privatex%语句，是将变量定义为窗体或模块级变量
4、逻辑型数据只有True/False两个值
5、顺序文件读操作用Input #语句。
6、一个工程可以包括多种类型的檔,其中扩展名为.frx的文件表 报表 文件
7、Command1.Visible=False,是将命令按钮1设为隐藏
8、当鼠标在控件上暂停时，显示提示信息，要用ToolTipText属性。
9、Texte1.SetFocus语句功能是把焦点移到Texte1 控件上。
10、DimXAsCurrency是将变量X定义为货币型。
11、某次大奖赛，有6个评委打分，如下代码对一名参赛者，输入6个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分，即为该参赛者的得分。代码中aver变量存放平均分，max1变量存放最高分，min1变量存放最低分。请在空线处补充使之完整。PrivateSubCommand7_Click()Dimmark!,aver!,i%,max1!,min1!aver=0Fori=1To6mark=InputBox("输入第"&i&"位评委的打分")Ifi=1Thenmax1=mark:min1=markElseIfmarkmax1ThenMax1=marKEndIfEndIfaver=aver+markNextaver=(aver-min1-max1)/4PrintaverEndSub
12、这是一个用户名校验程序。用户名为“user”，密码为“1234”,单击按钮：（1）如果用户名和密码均正确，即输出"欢迎user来到欢乐世界！"字样（2）若用户名错误，则要求重新输入用户名（3）如果用户名正确，密码错误，则弹出“密码错误！”警告窗口，并直接退出程序。OptionExplicitDimUserNameAsString,userpasswordasstringDiminputNameAsString,inputpasswordasstringPrivateSubform_load()UserName="user":userpassword="1234"endsubprivatesubcommand1_click()gt:inputName=InputBox("请输入用户：","用户名确认","")ifLcase(inputname)<>usernameThenmsgbox"用户名错误，请重新输入……"gotogtelseinputpassword=InputBox("请输入密码：","密码验证","")ifinputpassword<>userpasswordthen
Exit submsgbox"密码错误！":elseMsgBox"欢迎"&UserName&"来到欢乐世界！"EndIfendifEndSub
三、判断题（10道小题，共10分）
1、False为字符型常量。（1分）
正确
错误
2、VB中请求对象执行某一操作的要求称为"方法"。（1分）
正确
错误
3、语句Print25*40执行时输出的结果是1000。（1分）
正确
错误
4、窗体的卸载使用Load语句。（1分）
正确
错误
5、表达式268="268"的结果为True。（1分）
正确
错误
6、语句if0thenprint"Hello"是错误的。（1分）
正确
错误
7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。（1分）
正确
错误
8、将文本框Text1中的内容清除，可使用语句Text1.cls。（1分
正确
错误
9、文件名的命名
规则
编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf
同变量的命名规则一样。（1分）
正确
错误
10、InputBox函数返回值的类型是字符串类型。（1分）
正确
错误
四、编程题（4道小题，共60分）
1、编写程序，计算并输出下面级数前n项(n=10)的部分和。(要求用循环做，非循环不给分。)1!+2!+3!+4!+……+n!
Private Sub Form_Activate() ？？？？？？
S = 0: T = 1
For I = 1 To 10
T = T * I
S = S + T
Next I
Print S
End Sub
2、编写程序，输出下列三角形：总行数在窗体单击事件通过键盘输入。(要求用循环做，非循环不给分。)1333555557777777
Next i Private Sub Form_Activate()
For i = 1 To 4
Print Tab(15 - 2 * i); ？？？？？？tab
For j = 1 To 2 * i - 1
Print Format(2 * i - 1, "!@@");
Next j
Print
End Sub
3、编写程序，输出100～1000之间的所有质数，并给出100～1000之间质数的个数及其
Private Sub Form_Activate()
s = 0: t = 0
For x = 100 To 1000
flag = True
For i = 2 To Sqr(x)
If x Mod i = 0 Then flag = False: Exit For
Next i
If flag Then
s = s + 1
t = t + x
Print x;
If s Mod 10 = 0 Then Print
End If
Next x
Print
Print s, t
End Sub
4、编写程序，用牛顿切线法求方程f(x)=3x^3-4x^2-5x+13=0（其中^表示幂运算）在区间[1，2]上的近似实根r，迭代初值自选，精确到0.0001。〔提示:计算公式为x=x-f(x)/f'(x)〕
Private Sub Form_Activate()
x1 = 2
Do
x0 = x1
f = 3 * x0 ^ 3 - 4 * x0 ^ 2 - 5 * x0 + 13
f1 = 9 * x0 ^ 2 - 8 * x0 - 5
x1 = x0 - f / f1
Loop Until Abs(x1 - x0) < 0.0001
Print x1
End Sub
窗体底端
浙公网安备 33021202002483