算法与VB基础练习

1、算法与VB基础练习函数与表达式：1.下列问题不能用算法描述的是()A.求所有整数之和B.将一个四位十进制数转换为对应的二进制数C.将10个随机数按升序排列D.求某天是星期几2. 已知a的ASCII代码为97,贝UVB表达式Abs(int(5.6)*Sqr(Asc("d")的值是()A.56B.60C.50D.-5603. 下列VB表达式中值等于3的是()(A) fix(Sqr(2)+1(B)val(mid(str(123),3,1)(C)Asc(T)+2(D)Len(-2)+14. 在VisualBasic中，表达式7A2Mod302A3的值是()A.2B.1C.0D.2.

2、3755. 执行VB语句sex="female":s=Mid("sex",3,2)后，变量s的值为()A."x"B."ma"C."m"D."em"6.下列属于正确的VB表达式的是()A.a+b*|c|B.2h/gC.2n-1D.b3+2基本概念:,其中的"BackColor7. 在VB代码编辑窗口中，输入了“Label1.”后出了如右下图所示的信息是Label1的()A.属性名B.属性值C.方法名D.事件名8. 上题图中的label1是()A.属性名B.对象名C.类

3、名D.过程名9. 在VisualBasic中，某对象的属性窗口如下图所示，该对象名是(屋牲-I.3酩电l工电尊色按宇母序|按分类序|!0-MarwU*:.EnalldTr'ieHtiehL735Index.vj1rPm19（名称）i返回代诃中使用的标识对象的名称.1A.ManualB.ImagelC.Image_1D.Image10. 上题图中的对象属于()类A.TextboxB.LabelC.ImageD.Listbox11. VB语句="hello"中的"hello"是()A.属性值B.属性名C.对象名D.类名12. VB语句em"

4、hello"中的Additem是()A.属性名B.对象名C.方法名D.事件名13. 下列没有Caption属性的是()类的对象A.LabelB.CommandButtonC.TextBoxD.Form14. 有如下程序段代码：SubTimer1_Timer()n=n-1on=str(n)EndSub上述代码中,Timer1_Timer()中的Timer是()A.过程名B.对象名C.方法名D.事件名15.上题中'Timer1_Timer()是()A.过程名B.对象名C.方法名D.事件名16.VisualBasic中窗体文件的扩展名为（)A.exeB.frmC.vbpD.vbw1

5、7.VisualBasic中工程文件的扩展名为（)A.exeB.frmC.vbpD.vbw错误调试18. 某VB程序的一个事件过程如下:PrivateSubCommand1_Click()DimaAsIntegera=Val()=Str(Sqr(a)EndSub程序运行时，单击命令按钮Command1后弹出如图所示的错误信息。出现错误的原因是()结换創|却败规|B.:A.Sqr函数计算时出现错误B.Str函数计算时出现错误C.界面上缺少文本框TextlD.变量a类型定义错误19. 某VisualBasic程序如下：PrivateSubCommandlC1ick()DimxAsInteger,i

6、AsIntegerFori=1to10Step3x=i*(i十2)ListlAddlternStr(x)NextiEndSub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示。引起该错误的语句是()A.Fori=1To10Step3B.x=i*(i+2)C.List1AddltemStr(x)D.Nexti20. 有如下一段VB程序：PrivateSubCommand1_Click()Dima(1To5)AsIntegerFori=1To5a(i)=2*i+1NextiemStr(a(i)EndSub程序运行时单击Command1时，出现的错误提示为()5学心|结菲创喟总mi

7、l群助世JCD.21. 某VisualBasic程序的一个事件过程如下:PrivateSubCommand1_Click()DimaAsInteger,xAsDoublea=-4Mk-uioftViitdlWeFL耐騎'R峯弩匹胃SHi；-：ix=Sqr(a)on=Str(x)EndSub运行程序，单击命令按钮Command后弹出如图所示的出错信息提示。引发此错误的语句是(A) PrivateSubCommand1_Click()(B) DimaAsInteger,xAsDouble(C) x=Sqr(a)(D) on=Str(x)22. 某VisualBasic程序的一个事件过程如下

8、:PrivateSubCommand1_Click()DimrAsSingleDimpiAsDoubler=100pi=3.14on=”圆面积为：”+pi*r*rEndSub运行程序，单击命令按钮Command后弹出如图所示的出错信息提示。MicrosoftVisualBasic轴谙泯J埒；奘型不匹配I冻I帮助迦引起该错误的语句是(A) DimrAsSingle(B) DimpiAsDouble(C) pi=3.14(D) on="圆面积为：”+Val(pi*r*r)23. 某VB程序的一个事件过程如下：PrivateSubCommandl_Click()DimiAsIntegerj

9、AsInteger,sAsStringDima(1To5)AsIntegerRandomizeFori=1To10a(i)=Int(Rnd*6)+1NextiFori=1To5emStr(a(i)NextiEndSub程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是()A.Fori=1To10B.a(i)=Int(Rnd*6)+1C.D.emStr(a(i)24. 某VB程序如下所示：PrivateSubCommand1_Click()DimiAsInteger,sAsIntegerFori=1To10NextiEndSub程序运行时单击Command1时，出现错误提示为（）A.B.Micr-DsczflVisualBasic不沖朶1了c.D.无提示，程序死循环25. 提取正整数x（x是一个四位数）十位上的数