admin 管理员组文章数量: 1087709
2024年3月27日发(作者：vb中怎么保留小数位)
VB填空题题库
1) 假定当前日期为2002年7月12日，星期六，则执行
语句Print day(now)后，输出结果是______（提示：不能出现
符号#）。
答案：12
2) 语句a%=3.14156:Print a%的输出结果是______。
答案：3
3) 以下循环的执行次数是_____。
K=0
Do While k<=10
k=k+1
Loop
答案：11
4) Fix(5.8)的值是______
答案：5
5) 下列程序段的执行后输出的结果为_____。
I=4:A=5
Do
I=I+1:A=A+2
Loop Until I>=7
Print "A=";A
答案：A=11
6) 表达式3/6*5的值是_______。
答案：2.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 答案：b 8) 在Select case 结构中应至少包含一个______子句。 答案：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 答案：2 11) 逻辑常量值为TRUE或_______。 答案：FALSE 12) 货币类型的数据小数点的位置是固定的，精确到小数 点后_____位。 答案：4 13) 表达式（2+8*3）/2的值是______。 答案：13 14) 以下程序用来判断一个整数X是否为偶数，并将其中 的偶数在窗体上显示，请补充完该程序。 If X___2=____ Then Print X 答案：MOD#0 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 答案：55 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 答案：AND 19) 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的 值是_____。 答案：FALSE 20) 表达式："1" & "2" = "12"的值是_______。 答案：TRUE 21) 为了能自动放大或缩小图象框中的图形以与图象框的 大小相适应,必须把该图象框的Stretch属性设置为______。 答案：TRUE 22) 根据变量的定义位置和所使用的变量定义语句的不 同，VB中的变量可以分为3类，即_____、模块变量和全局 变量。 答案：局部变量 23) 表达式3>4 and 7=5的值是______。 答案：FALSE 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 答案：2000 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 答案：12 26) 以下程序计算2到50间所有偶数的和，请补充完该程 序 Sub mult() Dim Sum As Integer Sum=0 Dim I as integer - 2 - For___to 50 If I MOD 2=___Then___ Next I Print sum End Sub 答案：I=2#0#SUM=SUM+I 27) A=7,B=3,C=4,则表达式 A MOD 3+B^3/C5的值为 ____。 答案：2 28) 下列循环语句，要求和数达到10既停止累加，退出循 环，请补充完程序。 For j=1 to 10 s=s+j If s>=10 then Exit ____。 Next j 答案：FOR 29) 下列程序段的运行结果是： Sub Form1_Click() Dim n as Integer I=21:n=3 Do While I>n I=I-n Loop Print I End Sub 打印结果_____。 答案：3 30) Visual Basic中的常量分为两种，一种是直接常量，一 种是____常量。 答案：符号 31) Visual Basic 提供了列表框控件， 当列表框中的项目 较多、超过了列表框的长度时， 系统会自动在列表框边上加 一个______。 答案：滚动条 32) 一个程序最多可以有________窗体。 答案：255 33) 将一般窗体转换为MDI窗体的子窗体时要把 MDIChild属性的值设置为_______。 答案：TRUE 34) 要选择多个不相邻的控件，按住_______或SHIFT键不 放，再单击要选择的控件。 答案：CTRL 35) 表达式："1"+"2"="3"的值是_______。 答案：FALSE
版权声明：本文标题：VB填空题题库 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711477867a596109.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论