vb考试题填空题
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
1假定当前日期为2002年7月12日,星期六,则执行语句Print day(now)后,输出结果是______(提示:不能出现符号#)。
2语句a%=3.14156:Print a%的输出结果是______。
3以下循环的执行次数是_____。
K=0
Do While k<=10
k=k+1
Loop
4 Fix(5.8)的值是_______。
5下列程序段的执行后输出的结果为_____。
I=4:A=5
Do
I=I+1:A=A+2
Loop Until I>=7
Print "A=";A
6表达式3/6*5的值是_______。
7下列程序的作用是将三个数按从大到小进行排序,请补充完该程序。
If a
d=a:a=b:b=d
EndIf
If a d=a:a=c:c=d EndIf If_____Then d=b:b=c:c=d EndIf Print a,b,c 8在Select case 结构中应至少包含一个______子句。 9窗体的属性可在属性窗口中设置,也可在程序中用______语句动态设置。 10有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a Print x; End Sub 以下是调用它的事件过程,程序运行后,单击命令按钮Command1,输出结果为______。 Private Sub Command1_Click() Ind(2) End Sub 11逻辑常量值为TRUE或_______。 12货币类型的数据小数点的位置是固定的,精确到小数点后_____位。 13表达式(2+8*3)/2的值是______。 14以下程序用来判断一个整数X是否为偶数,并将其中的偶数在窗体上显示,请补充完该程序。 If X___2=____ Then Print X 15当对窗体中的对象进行_____操作时,Visual Basic 就会显示该对象的代码窗口。 16下列程序的执行结果是____。 T = O : m = 1 : Sum = 0 Do t = t + m : Sum = Sum + t : m = m + 2 Loop While m <= 9 Print Sum 17一组具有相同名称,不同下标的下标变量称为______。 18给定年份,下列程序用来判断该年是否闰年,请补充完该程序。 提示:闰年的条件是年号可以被4整除但不能被100整除,或者能被400整除。 Private Sub Command6_Click() Dim y As Integer y=InputBox("请输入年号") If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print "是闰年" Else Print "是普通年份" End If End Sub 19设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。 20表达式:"1" & "2" = "12"的值是_______。 21为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch 属性设置为______。 22根据变量的定义位置和所使用的变量定义语句的不同,VB中的变量可以分为3类,即_____、模块变量和全局变量。 23表达式3>4 and 7=5的值是______。 24以下的程序用来输出100到2000间不能被3整除的数字,请补充完该程序。 Private Sub Commmand1_Click() Dim x As Integer x = 100 Do Until x > _____ If x Mod 3 <> 0 Then Print x End If x = x + 1 Loop End Sub 25下列程序段的执行时,共循环____次。 For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b next a 26以下程序计算2到50间所有偶数的和,请补充完该程序 Sub mult() Dim Sum As Integer Sum=0 Dim I as integer For___to 50 If I MOD 2=___Then___ Next I Print sum End Sub 27A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\5的值为____。 28下列循环语句,要求和数达到10既停止累加,退出循环,请补充完程序。 For j=1 to 10 s=s+j If s>=10 then Exit ____。 Next j 29下列程序段的运行结果是: Sub Form1_Click() Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop Print I End Sub 打印结果_____。 30Visual Basic中的常量分为两种,一种是直接常量,一种是____常量。 31Visual Basic 提供了列表框控件,当列表框中的项目较多、超过了列表框的长度时,系统会自动在列表框边上加一个______。 32一个程序最多可以有________窗体。 33将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。 34要选择多个不相邻的控件,按住_______或SHIFT键不放,再单击要选择的控件。 35表达式:"1"+"2"="3"的值是_______。 36______属性用来设置窗体的标题。它确定和改变显示在窗体的标题栏中的文本。 37假定有一个文本框,其名称为Textl,为了使该文本框具有焦点,应执行的语句是______。38执行下面的程序段后,s的值为____。 S=5 For I=2.6 To 4.9 Step 2 s=s+1 Next I 39表达式“12345”<>“12345”&“ABC”的值是_____。 40下列程序用来计算1+2+3……+10的值,请补充完程序。 Dim t,k as single