《VB程序设计基础》练习题

《VB程序设计基础》练习题一、选择题：1、在VisualBasic（A）x+1 （B）x_1 （C）Or （D）If2、在VisualBasic中，语句DimxAsSingle所说明的变量x属于（A）整数型 （B）逻辑型 （C）字符串型 （D）单精度实数型3.在VisualBasic中，用变存储杂志的刊(“CN41-103”)，变的数据类型应定义为（ ）（A）String （B）Integer （C）Single （D）Date4、在VisualBasic中，用变量存储560位学生的身高数据（如：1.76），下列最合适的变量说明是5605605605605、在VisualBasicSqr(100)+100（A）110 （B）103 （C）200 （D）1001006、VisualBasic中，a=-100，表达"360"+的值是（ ）（A）260 （B）360-100 （C）460 （D）360100在Visual5678\100的值是（A）5 （B）56 （C）56.78 （D）567在Visual12345Mod的值是（A）123 （B）45 （C）12 （D）5在VisualFix(1.8)的值是（A）2 （B）1.8 （C）1 （D）0.81sinxcosx102是（A）SinxCosx/2（B）Sinx*Cosx/2（C）Sin(x)Cos(x)/2（D）Sin(x)*Cos(x)/

（x的单位：弧度）写成VisualBasic表达式，正确的11、下列属于正确Visual表达式是（ ）（A）a+b*|c| （B）b3+2 （C）2n-1 （D）2·h/g12、在VisualBasic中，从字符"Goodmorning"中截"morning"的表达式是（ ）（A）Mid("Goodmorning",6,7) （B）Mid(Goodmorning,6,7)（C）Mid("Goodmorning",5,7) （D）Mid("Goodmorning",7,13、将数学表达式写成VisualBasic（A）a<=b<=c （B）a<=bOrb<=c（C）a<=bAndb<=c （D）a<=bNotb<=c14.随机产生[0,12VisualBasic表达式是（A）Rnd()*12 （B）Rnd()*13（C）Int(Rnd()*12)+1 （D）Int(Rnd()*13)+115、设x是正数，下列能用于描述"x是否为偶数"的VisualBasic条件表达式是（A）x\2=0（B）x/2=0（C）xMod2=0（D）x=Abs(x)二、填空题1、有如下VisualBasic程序段：a=4b=5a=a/2c=Abs(a-b)该程序段运行后，变量c的值2、有如下VisualBasic程序段：a=9b="CommandButton"c=Len(b)Ifa>0Anda<cThenLabel1.Caption=Mid(b,a,ElseLabel1.Caption="error"EndIf该程序段运行后，在标签Label1上显示的3、有如下VisualBasic程序段：a=3.14b=20c=Int(a)+b该程序段运行后，变量c的值4、有如下VisualBasic程序段：a="360"b=Val(a)c=Len(a)Ifb>cThenLabel1.Caption="取数值"ElseLabel1.Caption="取字符"EndIf该程序段运行后，在标签Label1上显示的5、有如下VisualBasic程序段：a=6b="Hello!"c=(a^2)-Len(b)该程序段运行后，变量c的值6、有如下VisualBasic程序段：a=10b=6c=5Ifa+b>cAndb+c>aAndc+a>bThenLabel1.Caption="YES"ElseLabel1.Caption="NO"EndIf该程序段运行后，在标签Label1上显示的7、有如下VisualBasic程序段：w=9a=90b=50Ifw>10Ora*b>4000ThenLabel1.Caption="托运"ElseLabel1.Caption="携带"EndIf该程序段运行后，在标签Label1上显示的。