VB程序设计知识点归纳
第一章
１从功能上讲,ＶisuａlＢasic 6、0有３种版本，即：学习版、专业版、企业版
2 与传统得程序设计语言相比,Ｖisual Basｉc最突出得特点就是事件驱动编程机制。
３Visual Basiｃ6、0集成环境得主窗口中含有标题栏、菜单栏、工具栏
4用标准工具栏中得工具按钮不能执行得操作就是打印源程序。
5关于Viｓual Bａｓｉc"方法"得概念错误得就是方法就是对事件得响应
6在Visｕal Ｂasｉc中，称对象得数据为属性
7Vｉｓual Basiｃ应用程序可以用解释方式执行也可以用编译方式执行
第二章
1 计时器控件得Inｔｅrval属性用于设置Timer事件发生得时间间隔,为了暂时关闭计时器，应把该计时器得Ｅnａbled
属性设置为Falｓｅ，如果要求设置定时器时间间隔为1秒钟,那么它得Intervaｌ属性值应该等于１000
2 利用Ctｒl+ G操作可以打开立即窗口。
3 假定窗体上有一个标签,名为Lablｅ1.为了使该标签透明并且没有边框，则正确得属性设置为：Laｂlｅ1、BackＳtyle
＝0 Lablｅ1、BordeｒStyle ＝0
4在设计阶段,当双击窗体上得某个控件时,所打开得窗口就是代码窗口
5在Visual Baｓｉｃ中,窗体文件得扩展名为ＦRM
6 窗体得Name属性指定窗体得名称,用来标识一个窗体
7 改变控件在窗体中得上下位置,应修改该控件得属性就是Ｔop?8表示滚动条控件取值范围最大值得属性就是Maｘ
9 如果要改变窗体得标题,则需要设置得属性就是Capｔioｎ
10 在文本框（Ｔeｘt）中，通过FｏｒeCｏｌor属性来设置字体颜色
1１若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框得属性窗口中设置Pasｓwoｒｄchar属性值为＊
12 能够改变复选框中背景颜色得属性就是Ｂａckcoloｒ
1３图片框就是不具有Piｃture属性得对象
1４窗体得Nａmｅ属性指定窗体得名称，用来标识一个窗体
15 要想返回文本框中输入得内容则可利用text属性进行编程
第三章
1用于从字符串左边截取字符得函数就是Left()，设a="Viｓuａl Ｂａsic”，使b="Basｉc"得语句就是b＝Ｌeft（a，８，5）.
2下列符号中哪个就是ＶＢ程序中合法得变量名：A ab7 B 7aｂＣ IｆＤ a*ｂc (A) 数字开头,关键字,*
3X就是小于100得非负数,用VB表达式表达正确得就是0＜=X ａnd X<100
4设有如下变量声明Dｉm TestDate AｓＤate 为变量TestDａｔe正确赋值得表达方式就是TeｘｔDａte=#1/１/2002＃
5表达式4 + 5\ 6 ＊7 / ８Mｏd 9得值就是５，设a＝3，b=5，则表达式（a〉b)Ｏr（ｂ〉0）值为真。5／5、
25 为1
如果除数与被除数不就是整数时，系统会自动对其进行取整运算，取整就是有规律得：如果整数部分为偶数，大于0、5得就进位，小于等于０、5得就直接把小数去掉,5舍6入；如果整数部分为奇数，4舍5入。例如:?5\2、5等价于5\2 ?５＼2、6等价于5\3
5\2、４等价于5\２?５、4\3等价于5＼3 ?5＼1、5等价于５\2
6函数Sｔrｉng(n,"str”)得功能就是返回由ｎ个字符组成得字符串
7设有如下声明:?DiｍX As Ｉｎteger如果Sgn（X）得值为-1，则X得值就是小于0得数Sgｎ(3-５)=—1 Sgn （5－3)=１
8Intｅgｅr类型得数据由2字节组成，Long类型得数据由4字节组成。
9已知X〈Y，Ａ〉B，正确表示它们之间关系得式子就是Ｓgn(Y－X)－Sgｎ(A—B)＝-２
10在一个有①逻辑运算②算术运算及③关系运算混合在一起得表达式（无括号)中，其运算顺序为②③①
以下合法得Vｉｓｕａl Ｂasic标识符就是那些：ＡForＬｏｏp B Cｏnst C ９abc
D a＃ｘ A通常所说得变量名
11能正确表示条件＂整型变量ｘ值就是大于等于—5并且小于等于5”得逻辑表达式－5＜=x ａnd x＜＝5
12求下列表达式得值:
表达式4＋5 \ 6 ＊7 ／8Ｍod 9 得值就是5，表达式5 Ｍoｄ３＋3＼５＊２得值就是２
设a=2，b＝4,c=6，下列表达式a＞bＥqv c Eqv 相同为ｔruｅ相反为falsｅ 设S=＂中华人民共与国＂，表达式Lefｔ（S,1)+Rｉｇｈt(S，1）+Ｍid（S，３，2)得值为”中国人民” 表达式2*４^２-2＊6/3+3＼2得值就是2９ 表达式5^２Mod 252^２得值就是１ 13VB算术运算符乘或除、整除、求余得优先级,从高到低依次为乘或除、整除、求余 14获得系统日期得函数就是ｄａte（） 15数学式子sｉn30°写成VＢ表达式就是： Sin（30*３、１４/１80) 16在Visual Baｓiｃ得立即窗口内输入以下语句?X=６5??Ｃhr＄（X） 在窗口中显示得结果就是＿_A__ 17计算下列表达式得值 表达式93 Mｏd 2^2得值就是__1_＿. 表达式Leｎ(”123程序设计ABC＂）得值就是_＿10_＿。 Ｉnt（１98、５５5＊１００+0、５）／100得值就是＿_198、5６__。 已知A＄＝＂１２345６78＂,则表达式vaｌ（Left$(A$,４）+Ｍid＄（A$，4，２））得值为(12３44５) 左取4位12３4中取４位开始2位 18数学关系3≤x〈１0表示成正确得VB表达式为3<=ｘ And x〈10 或 x>=３ aｎｄｘ〈10 19表示x就是5得倍数或就是9得倍数得逻辑表达式就是ｘ moｄ 5=0 or x moｄ 9=0 20s$=“china”：?s＄＝“Ｂｅiｊing": ?Print ｓ$?以上语句得输出结果就是＿__.参考答案Ｂeiｊiｎg 21表达式Ｕcaｓe（Mｉd(＂abcｄefｇh"，３,4））得值就是＿CDＥF_。 22已知a=3、5，ｂ=5、0， c=2、5,d=ｔrｕe,则表达式：a＞＝0 anｄ a+c＞b＋3 ＯR ＮOT d得值就是_Faｌｓe ＿＿。 第四章 1VＢ中可用ＭsgＢox语句产生一消息框. 2ＶB提供了结构化程序设计得三种基本结构,三种基本结构就是：选择结构或循环结构或顺序结构 3IｎｐｕｔBoｘ函数返回值得类型为字符串. J下列语句正确得就是（C)?ＡIf A≠B Then Print ”A不等于B” B IfＡ＜>B Then Prｉｎｔf "A不等于B"?ＣIｆA＜>B Thｅn Print "A不等于B" D IｆＡ≠ＢPrinｔ”A不等于B＂ 4在DｏＵnｔil…Loop循环中,判断循环表达式与结束循环得关系就是先判断循环表达式，当表达式值为真时结束循环 5在Wｈiｌe循环中,判断循环表达式与结束循环得关系就是先判断循环表达式,当表达式 值为真时执行循环体 6设ａ＝6，则执行x=IＩf（a＞5，-1，０)后，ｘ得值为–1 Ｉf ａ〉5 ｔｈen A＝－1 Ｅlse A=0 endiｆ 7要使下列Ｆor语句循环执行2０次，循环变量得初值应当就是多少??Foｒ k= __1__To －5 Step -2 参考答案1：３3 Ｎ=(终值—初值）/2+1 8以下语句得输出结果就是: ＰrinｔＩｎt（１2345、6789＊1000、５）／100 参考答案１234５ 9给出下列程序运行得结果?（1) x=5 ｙ=－6 If Noｔｘ〉０Thｅn x=ｙ－3Ｅlseｙ=x＋３ Printｘ-y；y—ｘ结果—3 3 （2)J１＝4 J2=９ Ｉf Ｊ１ (3)执行以下程序段后，变量c＄得值为（Quｉck BASIC Prograｍｉng) a $ = ＂Vｉｓual BasｉｃProgｒaｍing＂?b$ = ”Ｑuiｃｋ＂?ｃ＄＝ b ＄＆Ucase （Mid ＄（a $，7,6)）＆Riｇｈt ＄（ａ$，11） （４）以下语句得输出结果就是03２，548、５０。?ＰrinｔForｍat ＄（3２548、5, "00０,0０0、00"） （5) 在窗体(Nａmｅ属性为Forｍａｌ）上画两个文本框（其Naｍｅ属性分别为Texｔ1与Tｅxｔ2）与一个命令按钮（Nａｍe属性为mand1),然后编写如下两个事件过程：?ＰrｉｖaｔｅSub mand１_Ｃliｃk（） A = Ｔext、Texｔ＋Tｅxt2、Teｘｔ?Prｉｎt a End Sｕb ?Prｉvate SuｂＦoｒmｍ_Load(）?Texｔ１、Ｔeｘt =”＂ Ｔeｘt2、Ｔeｘt ＝"＂ ＥnｄSｕｂ 程序运行后,在第一个文本框(Ｔeｘt1）与第二个文本框(Ｔｅxt２）中分别输入12３与32１, 然后单击命令按钮，则输出结果为1２33２１.?（6 )阅读下面得程序段：?For I = 1 Ｔo 3 i=1 i=2 i=3 Fｏｒj= 1 ＴｏI j=1to1 j=１to2 j=1to 3 For k = ｊTｏ3ｋ＝１to3ｋ=1tｏ３ｋ=２to3 k=1to3３ A＝A+１a=3 a=3+3+2 k=2to3２ Ｎｅxtｋk=3ｔo3 1 Next j a=8+3＋2+１ NextＩ 执行上面得三重循环后,a得值为__14 _＿。 (７)在窗体上画两个文本框（其Ｎame属性分别为Text１与Text2）与一个命令按钮(其Ｎａme属性为ｍanｄ1），然后编写如下得事件过程：?Prｉｖate Suｂmand1_Ｃlick(）?X = ０?Do While x<５０?X =( ｘ＋2 ）＊(x+ 3） N = n+１ Loop?Text１、Text= Str(n) Text２、Tｅxｔ= Stｒ(ｘ)?End Sub?程序执行后,单击命令按钮，在两个文本框中显示得值分别为2与72。 （8）设a=10，b＝５,ｃ=1，执行语句Ｐrinｔａ> b 〉c后,窗体上显示得就是Ｆaｌse (9) 在窗体上画一个名称为mandｌ得命令按钮，然后编写如下程序：?ＰriｖａtｅSub maｎd1_Ｃｌick（) ?Stati ｃX As Integｅr Ｓtａtｉc Y As Integer Ｃls Y=１ Ｙ=Y+5?X=５＋X?Priｎt X,Y End Sub 程序运行时，三次单击命令按钮manｄl后,窗体上显示得结果为15 6 Statiｃ无法释放x=5+５+5 ｙ=１+5 （10）设有语句x=ＩnｐｕtＢｏx（"输入数值＂,"0"，"示例”）程序运行后，如果从键盘上输入数值10 并按回车键,变量X得值就是字符串”10” （1１) 在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTimｅ: 一个计时器控件,名称为Tiｍerl 得时间。程序为：?Private Ｓub Tｉmｅｒ1_ (） TｘtTime、teｘt=Time?End Suｂ在下划线上应填入得内容就是Timer (１2）假定有以下程序段:?Fｏr i=1 To３3—1/１＋1=3 Fｏr j=5 Ｔｏ1Sｔep －1 １-5/—1+1 Ｐｒｉnｔi＊j３＊５ Next Nexｔ则语句Ｐrint i＊j得执行次数就是15 （13)以下程序段得输出结果为（4）?x=1 y＝４ Do Untilｙ〉4?x=x*y?y=y+１ Loop Print x （14)在窗体上面画一个文本框,然后编写如下事件过程： Pｒｉvate Sｕb Ｆoｒｍ_Acｔｉvate(） Text１、Ｔext=”＂ Text1、ＳetFｏｃｕs Ｆｏr i=１to １０ Sum=Ｓum+ｉ Neｘt?Text１、Text＝Ｓum Eｎd Sub 上述程序得运行结果就是55 首相加末项*项数/2 （15）在窗体上画一个名称为manｄ1得命令按钮，然后编写如下事件过程: Privａte Sｕｂｍand1_Ｃｌick（） Fｏr n＝1Ｔo 20?ＩｆｎMod 3<> 0 Ｔheｎ m = m ＋n\ 3?Ｎｅxtｎ?Pｒｉnt n?Ｅnd Ｓub?程序运行后，如果单击命令按钮,则窗体上显示得内容就是(21） （16）设有如下程序：?PriｖatｅＳub maｎｄ1＿Ｃｌick(）?Dim ｓum As Double, x As Doｕble suｍ＝0?n = 0 For ｉ= 1 Tｏ5 ｘ= n /i?ｎ=n + 1 sum ＝sｕm＋x?Nexｔ?Eｎd Ｓｕb该程序通过For循环计算一个表达式得值，这个表达式就是(1/2+2／3＋３/４+4／5） （１7）下面程序运行后,窗体（Form１)中输出得结果就是（TｒueＴrue） ＰrｉvａtｅＳub Forｍ_Loａd(）?Foｒm1、AｕtoRｅdraw=Trｕe 设置form1让她显示结果?X＝3：y＝5 Pｒiｎt ｘ＝３;y=5x就是否=3 (18）下面程序执行得结果就是（579） PｒivaｔｅSub mａnd1_Click（）?A=”１23"：ｂ="456"?C=Ｖal（a）+Vａl(b）2边就是数字则做加法 Ｐｒintｃ Ｅｎd Sub （19)若i得初值为8,则下列循环语句得循环次数为（5）次同样可以用公式:（终值—初值）/步长＋1 Do While i<=1７?i=i+２ Loop （２0)执行下面得程序段后，ｘ得值为(２１）?x=5 Fｏr i＝１To 20 Ｓtep 2 x=x＋i\５ NｅxｔＩ （2１)下面程序运行后,输出得值就是（5４） Private Sｕb manｄ1＿Ｃlick(）?J=1 ?dｏWhiｌe Ｊ＜5 ?J=J+1 Ａ=A＋Ｊ＊J loop Ｐrint A EnｄSｕb (22）有如下程序: Ｐrivａte Sub FoｒmＫeyＰrｅss(KｅyAscii AｓIｎtegｅr）?Fｏr m=１Ｔo 3 For j＝1 Tｏm Foｒｋ=ｊTo 3?n=ｎ+m+ｊ—k Neｘｔk ?Ｎexｔj?Nｅxt m Print n EnｄSub 程序运行后,按任意键，n得值就是(20 ) (２3）在窗体上画一个命令按钮,然后编写如下事件过程: ?Prｉvate Suｂmａnd1_Click（) A=″12″ B＝″3４″ ?C=″56″ PrintＡ+B＋C?Ｅnd Sub 程序运行后，单击命令按钮，输出结果就是（123456) (24）下面程序运行后输出得结果就是（110 2０)?Pｒivate Ｓuｂmanｄ1＿Cｌｉck（） Ａ=0 FｏｒM=1 To 10 A＝A+1∶B=０ Fｏr J=１Ｔo10 ?Ａ=A＋1∶B=B+2 ?Nｅxt J∶Nｅxt M PrinｔＡ；B ?Eｎd Sub (25)x=int(Rnｄ)+3：?if x＾２＞8 ｔhen y=x^２＋1： if ｘ＾2=9 then y=x^2-2: if x^２＜8 then y=x＾3: print y 程序运行后输出得结果就是_7＿。 （26）执行下面得程序段，x得值为 Privａte Sub manｄ1_Click() For i=1 Ｔｏ9?a=a + i?Neｘt i?x＝Ｖaｌ（ｉ)?MsgBｏｘx Ｅnd Ｓｕb_、参考答案1０ （27)在窗体上有一个命令按钮,然后编写如下程序： Ｆunｃtioｎ Trａns（ByＶａl ｎum Ａs Lonｇ） As Long Diｍ k AｓLong k=1 Do Whiｌe num num＝0时循环终止 ｋ=k ＊ (ｎum Mod 10）取个位10位百位相乘 num=nｕm \ 10?Looｐ?Traｎｓ=ｋ PriｎｔＴrans?Ｅnd Fuｎｃtioｎ Priｖate Sｕb mａnd1_Click（) Dｉm m As Lｏnｇ?Dim s Ａｓ Loｎｇ m=IｎpｕｔＢox(＂请输入一个数") ｓ=Trans(ｍ) End Sub 程序运行时,单击命令按钮,在输入对话框中输入”７８９”,输出结果为 _＿１_＿，在输入 对话框中输入"987"输出_＿2__在输入对话框中输入”879"，输出结果为__３＿＿、 参考答案 1：50４２：５０4 3:5０4 10表达式Ｉｎt(4＊Ｒnｄ+1)＊(Int（4*Ｒnd—１））值得范围就是[—４,8］ 11语句x+y＝x，就是错误得赋值语句。 12逻辑表达式Not（1〉2）,其逻辑值为“真” 13表达式1、5+32〉2 Ｏr ７Mod３＜4 And Not 1得运算结果就是（—1) 14可以将变量A、B值互换得语句就是A=Ｃ: C＝B : B=Ａ 15执行如下语句： a=inuｔＢox（”Toｄay”,"TｏｍorroW,”Ｙｅstｅrｄaｙ”，,，＂Ｄａy ｂeｆｏreｙesterday”，5)?将显示一个输入对话框，在对话框得输入区中显示得信息就是（Yｅsｔerday） 16能在窗体Form1得标题栏中显示"VisｕalBasic窗体＂得语句就是（Form１、Ｃaption=”ＶｉｓualBasｉc窗体＂） 第五章 1如果在程序中要将c定义为静态变量，且为整型数，则应使用得语句就是（StａtiｃａＡs Integｅｒ） 2声明一个变量为局部变量应该用（Ｓtａtic） 3Suｂ过程与Funｃtion过程最根本得区别就是（Sｕｂ过程不能返回值，而Fuｎctioｎ过程能返回值） 4若要向列表框添加列表项,可使用得方法就是（AddItem） 5在某个Sub过程中定义得局部变量作用域只限于该过程可以与其它事件过程中定义得局部变量同名 6Sub过程中不可以嵌套调用Sub过程 7定有以下函数过程:?Fｕｎction Fun（S Ａs String）As Striｎg? Dｉｍs1As Stｒｉng?Ｆor i=１To Ｌen(Ｓ）? s1＝UCase（Mid（S,ｉ,1））十s1 Nexｔi?Ｆｕn=s1 EnｄＦuｎｃtion 在窗体上画一个命令按钮，然后编写如下事件过程： Prlｖaｔe Sｕb mmｌdl_Click(）? Dim Sｔｒ1Ａs Stｒｉng，Ｓｔr２As Sｔrinｇ?Ｓｔｒl=ｉnpｕtｂoｘ("请输入一个字符串”）? Sｔr２=Fun(Sｔｒl) PrinｔStr2?Eｎd Ｓｕb?程序运行后,单击命令按钮，如果在输入对话框中输入字符串”abcdeｆg”，则单击”确 定"按钮后在窗体上得输出结果为(GFEDCＢＡ） 8复选框得Value属性为__1__时,表示复选框被选中。 第六章 1用下面语句所定义得数组得元素个数就是(9)?Diｍa(—3 to5) as ｉntegｅr ２要声明一个长度为２５6个字符得定长字符串变量ｓtr，正确得语句就是(Diｍsｔrａs String＊256） ３设有数组声明语句：?OptionＢase 0 ?ＤiｍB(－1 To １0,2 Tｏ9,2０) As Intｅger则数组B中共有（２０１6)个元素 4 在窗体上画一个命令按钮,名称为mａｎdl。单击命令按钮时,执行如下事件过 程：?PrlＶate Subｍａndl-C1ｉｃko a$=＂software ａndｈａrdware” b$＝Right（a$，8） c$=Ｍiｄ（a$，１，８)?Msgbox ａ$，，b$，c$，1?EnｄSuｂ则在弹出得信息框得标题栏中显示得信息就是（hardwaｆｅ)? 5 为了清除列表框中得所有内容,应使用得方法就是(Clｅaｒ） 程序填空 1.下列程序就是判断一个整数(〉=3) 就是否为素数，请补充完整。?Dｉm ｎ As Ｉntegｅｒ n=ＩnputBｏx（"请输入一个整数（〉=３) ”）?ｋ=Int（Sqr（ｎ）） ｉ=2?sｗiｔ=0 Whiｌｅ i <=k And ｓwｉt=0 If n Mod i=０ Then?＿_1_＿Elsｅ :参考答案1、swit=0 ２、swiｔ＝1 __2__ End If lｏop?If swit=0 Tｈen?Prｉnt n；＂就是一个素数。” Else?Prｉｎt ｎ；”不就是一个素数.＂?Eｎd If 2.下面程序就是用来打印九九乘法表得，请补充完整. Dim ｉAs Integer, j As Ｉnteger, Ｓtr1$ Sｔr1＝"” Ｆｏr ｉ=1 Ｔｏ9?For j=1 Ｔo9?Ｉf__1＿_Tｈeｎ Str１=Sｔr1 + Str$(j) +＂×”+ Sｔｒ$(i）+＂=" ＋Str$(Vａl(i j）)?Elｓe?Str１＝Str1＆Cｈr （13）_＿２＿_End If Next j?Neｘt i Pｒint Str1 参考答案1:j〈=Ｉ2：j>i 3.下面程序得功能就是产生１0个小于100（不含1０0）得随机正整数，并统计其中５得倍数所占比例，但程序不 完整,请补充完整。 Suｂ PR（) ?Ranｄomiｚe? Dim a（10）? Fｏr ｊ=1 Ｔo 1０ a(ｉ） =Int（ __1__) If ＿＿2__ Ｔｈen k＝k ＋１?Prｉnt a（ｊ) ? Nexｔｊ?Print?Print k / 10 Eｎd Ｓｕb 参考答案 1:（99 ＊Rnd)＋ 1 2:a（j）Mod 5 = ０ 4.以下程序得功能就是从键盘输入若干个学生得考试成绩，统计并输出最高分与最低分，当输入负数时结束输入， 输出结果。请补充完整下列程序段。 Dim x,ａmａx, amin As Sｉngｌe?x=InpuｔBｏｘ（"Enter a score”)?amax=ｘ?ａmin ＝x?DｏWhｉle＿_1＿_ If x ＞amax Tｈｅｎ?ａmax=x?End If If＿_２_＿Then amin＝x EnｄIf x=InputBｏx（"enter a ｓcｏre＂）?Loop Priｎt ”ｍａx="; aｍax, ＂min="；amin 参考答案1：ｘ〉0 2：x 5.在窗体上画一个命令按钮，然后编写如下事件过程： Privatｅ Sub mand1_Ｃlick（) ?x=0?Do Untｉl x=—1?a=ＩｎpｕtBox（"请输入第一个数字ａ得值"）?a=Ｖal （A） b=IｎputBoｘ(＂请输入第二个数字b得值＂) b＝Val(b) x=IｎｐutBox("请输入第三个数字x得值＂）?x=Vａl（ｘ) ａ＝a + b ＋ｘ?Ｌoop Prinｔa?End Ｓｕb 在程序运行后，单击命令按钮,在对话框中分别输入5,４，8，５,8,－1,输出结果为 __1__、参考答案１：1２ 6.下列程序得功能就是：当x〈5０时，ｙ=0、８×x；当50≤x≤100时，y=0、7×ｘ;当x〉100时，没有意义。 请填空。?Privａte Suｂmａnd１_Ｃlｉck（）?Ｄｉm x As Siｎgle x=ＩnputBoｘ（"请输入ｘ得值！"） __1_＿CasｅIs ＜50 y＝０、8 * x?Case5０Ｔｏ10０?y=0、７* x __2__ Priｎｔ”输入得数据出界！"?Eｎd Seｌｅｃt?Pｒｉnt ｘ，y?End Sub参考答案１：ＳelecｔCase x2:Case Eｌse 7.设有如下程序段:?ａ$=”BeijingShanｇhai"?ｂ$＝Mｉd（a$,ＩnＳtr(a＄，”g＂）＋１)? 执行上面得程序段后,变量b$得值为＿_1__、参考答案1：Ｓhanghai 8执行下面程序,当单击窗体时，显示在窗体上第一行得内容就是＿_1＿＿第二行得内容就是__2__ Privaｔe Sub Form_Click（）?Dim I As Iｎｔｅgeｒ，Ｓum As Intger?Fｏr I=0、5Ｔo 8、5 Steｐ２、5 Ｓum＝Sum+I＊10 Next Ｉ Ｐrint Ｓum prinｔI Ｅnd Ｓub 参考答案1：200 2:10 9下面程序得功能就是对密文解密。密文得加密方法就是以字符为单位，取其ASＣII码,按逆序保存（例如字母”e" 得ASCII码就是011００１０1,密文中则为1０100１１0）。解密就是加密得逆过程。完善程序,实现以上功能。(难）Prｉvaｔe Suｂｍaｎｄ1_Cliｃk（) Dｉm s ＡｓＳtriｎｇ，ｓt As String, i As Inｔeger,n As Inｔeger s=Teｘt1?ＤｏUntｉl n 〉＝Len（s）?_＿1_＿ＩfｎMｏd 8〈＞0 Ｔｈeｎ ｓt=st ＆Mｉd(s，n，1） Ｅｌsｅ?st＝st ＆Mid（s，n,1) Lisｔ1、AddIｔem st?__２__EnｄIf?Ｌoop?End Sｕb Private Sub mand2_Clｉck（) DiｍｓAs Ｓtrinｇ，ｓt As Sｔrｉng，iＡｓInteｇｅｒ?Ｆor i=0 To ＿_3__st＝Ｌｉst1、Lｉsｔ(i) For ｊ=１ToＬｅn(sｔ) s=Mｉd(st，j,1) & s Ｎext j Ｆor j＝Len(s）To 1 Sｔeｐ-1 n= __4__Neｘt j Ｔext2=Ｔexｔ2＆Ｃhｒ（n)?s=”＂ _＿5__Neｘt i?End Sub 参考答案１：ｎ＝n+1 2：st=＂" 3: Lｉst１、Lisｔcount ４：n+2^(ｊ—1）5：n=０ 10下面程序得功能就是，找出100以内所有可以表示成3个连续自然数之与得数。完善程序,实现以上功能。(难）?Ｏｐtiｏn Expliciｔ?Prｉｖaｔe Sｕb mand1_Click() DiｍＩ As Inｔegｅr， N ＡｓInｔeger ＤｉｍJｓＡｓ Integer， S Ａｓ Strinｇ?For Ｉ=1 To 100?If Fｕn（I，Ｎ,Ｊｓ）Theｎ?S=Stｒ(I）＆”＝" & N Do __1__N=N+1 Ｓ=S & ”+”＆ N Loop Lｉst1、ＡｄｄIｔｅm S?Eｎd Ｉf?NexｔＩ EｎｄSub?Pｒivaｔe Fｕnction Fuｎ(L AｓInteｇer, M Ａs Integeｒ, Ｊs As Inｔｅger) Ａs Bool ｅaｎ Dim I As Iｎtｅger, __２__ Ｋ=０ __3__ Do Wｈile Sum < L Aｎｄ K 〈 3?K＝K+1 Js=Js+1 Sum=Suｍ+Js Loｏp If __4_＿heｎ?M＝I Fuｎ=Trｕe E xit Foｒ?Exit if Next I?End Ｆunctiｏｎ参考答案１:whｉlｅn＜=js-１ 2: Sum=０ 3：Js=i-1 4：k=3 And Suｍ=Ｌ 一、判断题 (每题 1 分，共１0 分) （)１、由Vｉsｕａl Bａsic语言编写得应用程序有解释与编译两种执行方式。 (）2、文本框控件得MａxLength属性值为0时,在文本框内不可以输入任何字符. ( )3、要使输入文本框得字符始终显示“＃”,则应修改其ＰasｓwoｒdＣhar属性为“＃”. （)4、在一个窗体中不能使用Ｕnｌoａｄ来卸载本窗体，即一个窗体只能由其它窗体卸载. ( ）5、ＶB得Dｏuble类型数据,可以精确表示其数值范围内得所有实数. （)6、在图片框中添加得控件，其Top与Lｅｆt属性值就是相对图片框而言得，与窗体无关。 ( )７、命令按钮不但能响应单击事件,而且还能响应双击事件. （）８、在自定义函数过程中，函数名必须被赋值。 ( )9、文本框控件只能响应KｅyＰress、ＫeyDown、KｅyＵp、Chａｎgｅ事件. （)10、如果一个菜单项得Ｖisible属性为Falｓe,则它得子菜单也会显示. 二、单选题（每题 2 分,共 2０分） （）11、要改变控件得高度,应修改控件得_＿_____属性。 A、Toｐ B、Lefｔ C、Ｈeight D、Width ()１2、VＢ算术运算符乘或除、整除、求余得优先级,从高到低依次为___＿_＿_。 A、乘或除、求余、整除?? B、乘或除、整除、求余 C、整除、求余、乘或除??? D、整除、乘或除、求余 （）13、下列哪个属性用来表示标签(Lａbｅl）得内容与窗体（Ｆorm）得标题＿_＿_＿__. A、Caption B、Tｅxt ? C、Ｌeｆt D、Name （)14、判断整型变量ｍ能否被ｎ整除得ＶB表达式为_＿_____. A、n Moｄｍ=0? B、m/n*ｎ=m Ｃ、m Mod ｎD、ｍ\n＊n=ｍ ( ）15、选中复选框控件时,Vaｌuｅ属性得值为_____＿_。 A、Tｒｕe B、False Ｃ、0 Ｄ、1 （)16、在窗体Ｆｏrm1得一个事件过程中,使用__＿____来清除窗体上所绘制得图形得方法就是不正确得。 Ａ、Forｍ1、Cls B、Ｆoｒm、Cls Ｃ、Mｅ、CＬS D、Ｃｌs （）1７、设计动画时通常用时钟控件_____＿_属性来控制动画速度. A、Inｔerval Ｂ、Tｉmｅr C、Ｍｏve D、Enａbled ( )18、使用Cirｃle方法不可以绘制得图形就是＿____＿_。 A、圆角矩形?? B、椭圆 C、圆饼图 D、扇形 （）19、运行时组合框控件b1中所选择得表项，可以表示为_______。 A、b1、Tｅxｔ B、b１、LiｓｔIndex C、b1、Lｉst D、b1、ListCounｔ （）20、若i得初值为9,则下列循环语句得循环次数为＿＿＿____次。 DｏWhile i〈=20 i=i＋3 Lｏｏp ?A、3次?B、4次C、5次Ｄ、6次 三、程序填空题(每空 2 分,共２０分） ?1．【程序说明】以下程序产生30个两位随机整数、并按从小到大得顺序存入数组a中,再将其中得奇数按从小到大得顺序在窗体中用紧凑格式输出。 Pｒｉvａｔｅ Sｕb Ｆorｍ_Ｃｌiｃk(） Dｉm a(３0)As ｂyte，ｉａs Bytｅ, j As Ｂytｅ， mＡｓＢyte For ｉ=1 To 30 a(i）= (2１） Next i Fｏr i=1 To 2９ For j＝ (22) Ｉf a(ｉ）＞ａ(ｊ) Theｎm=a（ｉ) （２3） a（j)=m Nｅｘt j Nｅxtｉ Ｆｏr i＝1 To 30 If (24) Tｈen （25) Neｘt i End Sｕb （２1）(２2 ） （２3 ）(２4 )(25 ） 2.【程序说明】下列程序运行时,单击ｍaｎd1（0）后,图片每秒自动左移１毫米,单击mand１（1）停止移动(当图片尾部移出窗体后,图片从窗体右端进入窗体）。界面设计如下图1所示. 图1 程序2得界面设计 【程序】 Prｉｖaｔe Sub maｎd1＿Ｃlick(Inｄex Ａs Ｉｎtegeｒ) IｆＩｎｄex＝0 Tｈeｎ (2６） Else Timer1、Ｅnaｂlｅd=False EｎｄＳub ＰｒｉvateＳub Foｒｍ_Load（） Tｉｍｅr1、Ｉｎtervaｌ = (２7) Fｏｒm１、ScaｌeModｅ = 6 （28) ＥｎｄSuｂ Prｉvate Sｕｂ Tiｍeｒ１_Timer（) Pictuｒe１、Ｌeft= （２9） If Pictｕre1、Leｆt ＋ Picture１、Wｉｄth〈=Ｆｏrm1、ScalｅＬｅft Ｔｈen _ (3０) = Ｆorm１、ＳcａｌeＬｅfｔ +Foｒm1、ScａleＷiｄｔｈ Eｎd Suｂ (26）（2７） （２８) (29 ）(3０） 四、程序阅读题（每小题5分,共２0 分） 程序31、请写出单击窗体三次后,窗体上得显示结果。 Prｉvａte Ｓub Forｍ_Ｃliｃk（) SｔatiｃａAs Inｔeｇer Diｍ b As Integeｒ b =ａ + b ＋２ a = a+ b Form1、Ｐriｎt ＂a=";ａ, ”b="; b Ｅｎd Ｓub 程序3２、请写出单击窗体后，窗体上得显示结果。 Ｐrivate Ｓｕb Foｒm_Ｃlick(） For i% =１ Tｏ 7 Prinｔ Spc (7—ｉ）； Ｆor j％＝ 1 To （2＊ｉ％）－１： Pｒiｎt "M＂ ; ： Next j％ Print Nｅxt i% Eｎd Sub 程序３3、写出程序运行时，单击Oｐtioｎ1(２)后,窗体上得显示结果. Private Sub Fｏrm_Loaｄ(） Oｐｔｉｏn１(0)、Value＝Falsｅ Optioｎ1（1）、Ｖaｌuｅ=Falｓe Optioｎ1（2)、Ｖalｕe=Faｌse ＥｎｄSub Priｖate ＳｕｂＯｐtiｏｎ1＿Click(Ｉndｅx As Ｉｎteger） If Opｔioｎ1（Ｉndex）、Value=Ｔｒue Tｈen Ｓeｌect Casｅ Index Ｃasｅ０ Chｅcｋ１(0)、Ｖａlｕe=1: Ｃhｅｃk1（１)、Ｖalue＝0 Caｓe 1 Cｈｅck1(0)、Ｖａlue=０：Check1（1)、Ｖａｌue=1 Cａｓe 2 Cｈecｋ１（0）、Vａｌｕｅ=1: Ｃｈeck１(1）、Valuｅ=１ End Sｅlect IfＣheck1（0）、Valuｅ=１ TheｎＰｒint "您好＂ If Check1(１）、Vaｌuｅ=１Thｅn Pｒint ”欢迎使用Ｖｉｓual Bａsic!” EnｄＩf End Sub 程序34、设Text1、Text为 "aｂcdｅf"，运行时连续单击3次控件HSｃroll1右侧箭头后，分别写出组合框控件中得第１项、第2项及第3项得内容。 Pｒivate SuｂＦｏrm_Loａｄ() ＨＳcｒoll1、ＳmallCｈange= 1:ＨSｃroll1、Ｍａx= ５ HSｃroll1、Ｍin ＝ 1: HＳcrｏｌl1、Ｖａlue＝ 1 ｂo1、Ｃleａr End Ｓub Ｐrｉｖate Sub HScｒoll1_Change（） bo1、AｄdItem Ｌeｆt（Ｔｅxt1、Ｔｅxt， HScrｏll１、Vaｌｕｅ)， 0 End Sub 五、程序设计题（每题10 分,共 30 分） ?35。编制事件过程manｄ1_Ｃｌicｋ,执行该过程时输入n以及ｎ个数，计算这n个数得与并在文本框控件Text1中显示。(１０分) ?36、编制通用函数过程fsｕm ，计算Ｓiｎｇｌｅ类型一维数组所有元素得与.(１0分) ?３7、在窗体上建立命令按钮“mａnd１”（显示)与“mand2”（退出）. ?运行时,“mand２”按钮始终显示“退出"；单击“显示”按钮后窗体上显示“欢迎使用Viｓual Ｂasic！”同时标题改为“清除”，再单击“清除"按钮后,界面恢复窗体装入时得初态。（10分） VB练习题（一）参考答案 试题一、判断题（每小题１分,共１0分） １、√ 2、× 3、√ 4、×5、× 6、√7、√８、√9、× 10、× 试题二、单选题(每小题2分,共2０分） 11、Ｃ 12、Ｂ 13、 A 14、Ｄ 15、 D １６、 B 17、 A 18、A 19、Ｃ 20、 B 试题三、程序填空题（每空2分,共２0分） ２1。Int（Rnd*90）+10 22、ｉ+1 Tｏ 3０ 23、a（i) = ａ（j） 24、ａ（i） M ｏd 2<＞0 25、 Print a(i）； 2６、Ｔｉmer1、Eｎabｌed＝Tｒｕe 27、10０0 28、Ｔiｍeｒ1、Ｅｎabled = Ｆalse 29、 Piｃturｅ1、Ｌeft-１ 30、Pｉcｔure1、Lｅft 试题四、程序阅读题(每小题5分,共2０分） ３１、 a = ２ b = 2 ａ = ６ b = ４ ａ = 14 b ＝8 32、M MMＭ MMMMM MMMMMMM ＭMＭＭMMMMM MＭMMＭMMＭMMM MMMMMMMＭMＭMＭM ?33、您好 欢迎使用VｉsuａｌBａsｉc! 34、ａbcd aｂｃａb 试题五、程序设计题（每小题各10分，共３０分） 3５。编制事件过程manｄ1_Click,执行该过程时输入n以及n个数,计算这ｎ个数得与并在文本框控件Tｅxt１中显示。 Ｐrｉvate Sｕb mａnd1_Cｌｉcｋ（） Dｉｍ s As Sinｇle, n As Inｔegeｒ,x As Ｓingle n=IｎputBox("输入n"） For i＝1 To n x＝InputBoｘ(＂x=＂）: s=s＋x Nｅｘt ｉ Ｔext１、Ｔexｔ＝s End Sｕb 36、编制通用函数过程ｆsｕm,计算Ｓingｌｅ类型一维数组所有元素得与。 Privａｔe Fｕnction fsｕm（a（) Ａs Single，ｎ As Ｓｉngle） As Single DｉｍｉAｓＩｎtｅｇer ?Ｆor i ＝ 1 Toｎ ?fsuｍ = fsum+ a(ｉ） ?Next i End Fuｎctiｏn ３7、在窗体上建立命令按钮“maｎd1"（显示）与“mand2”(退出)。 Private Suｂ manｄ１＿Click（） Ｉf ｍand1、Capｔioｎ = ＂显示”Then Prinｔ＂欢迎使用Visual Basiｃ!" ： maｎｄ1、Cａpｔion = ＂清除" Ｅlse Ｆoｒm1、Ｃｌs：ｍanｄ1、Caｐtion =”显示” EｎｄＩf Eｎd Sub Prｉｖate Sub mand２_Cliｃｋ(） End Eｎd Ｓub Privａte Sub Fｏrｍ_Ｌｏａd（) Form１、Ｃｌｓ :ｍand1、Capｔｉon＝ "显示” Eｎd Sub VB练习题(二） 一、判断题（每题 1 分，共 10 分) （）1．ＶB就是以结构化得Ｂasiｃ语言为基础、以事件驱动作为运行机制得可视化程序设计语言。 ( ）2．用ＤIM定义数值变量时，该数值变量自动赋初值为0。 （）3.移动框架时框架内控件也跟随移动,因此框架内控件得Left与Ｔop属性值也随之改变. ( )4.列表框与文本框一样均没有Cａption属性，但都具有Text属性。 （)5.图片框可以通过Prｉnt方法来显示文本。 ()6。语句“FonｔNamｅ＝＂宋体””与“Ｆoｒm1、FontＮａme="宋体""得作用完全相同,无一例外. ( ）7．SetFoｃus方法就是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。 ( )8.由于定时器控件在运行时就是不可见得，因此在设置时可任意地将其放在任何位置. ( )9。表示各控件对象得变量名得属性为Ｃaptｉｏn. （)1０、决定对象就是否可见得属性就是Visｉble属性,决定对象可用性得属性就是Ｅnabled属性。 二、单选题 (每题 2 分，共 2０分) （）11.下列哪个属性用来表示各对象（控件）得位置_＿＿____。 ?A、ＴexｔＢ、Captiｏn C、LｅfｔD、Name （）１2.Lｉst1、Cleａr中得Clear就是__＿____。 A、方法?Ｂ、对象???C、属性?D、事件 ( )1３。将文本框控件得_＿_____属性设置为Truｅ，可正常显示文本但不可编辑. Ａ、Locked Ｂ、Eｎabｌｅd??Ｃ、MultiLiｎｅ?D、Visible ( ）1４。取字符串Ａｘ从第１个非空格符开始得连续5个字符,写作表达式___＿＿_＿. A、Miｄ（Ax，1，5) ??? B、Left（Triｍ(Aｘ)，５） ?C、Left(Aｘ，5)???D、Miｄ(Trim（Ａx)，5） （)15.数学式(x+5）1/3 写成VB表达式就是＿__＿___。 ?A、(ｘ+5)^1／3?B、(x+5）^（1＼3）C、（x+5）＾1\3 D、(x+5）^(1/3） （)16.要使Shaｐｅ控件以实心方式填充,应该设置其__＿___＿属性. ?A、ＦilｌColoｒB、FiｌlStylｅC、BａcｋStyle D、Ｓhape ( ）17。将命令按钮ｍand1设置为不可见,应修改该命令按钮得______＿属性. ?A、Viｓible Ｂ、Vaｌue?C、Captiｏn??D、Enaｂlｅd ( ）18.将变量ｘ、y中得最大数赋值给变量ａ，正确得表示为_______。 Ａ、a＝If y>x Ｔhｅｎy Eｌse x??Ｂ、If ｙ＞x Thｅn ａ＝ｙ: a=ｘ ?C、a=x: Ｉf ｙ＞x Thｅn a＝y?Ｄ、Ｉf y＞x Tｈen a=y Eｌse a=x EnｄIｆ （)１9。文本框控件Text4得Text属性默认值为_＿_＿_＿_。 A、Text４Ｂ、＂Text4”C、Lockｅd D、Name ( ）２0．描述以（１0０0,1000）为圆心、以4００为半径画１/4圆弧得语句,正确得就是____＿__。 A、Circle(1000,10００），400，0，3、１41５９26/2 B、Circlｅ（1000,１0０0），，４00，0，3、1415926／2 C、Ciｒcle(1000,1000）,４0０,，0，３、1415９26/2 D、Ｃircle（1000,1000）,4０0，,０,９0 三、程序填空题 (每空２分,共20 分） 1。【程序说明】利用一个计时器、一个标签框与二个命令按钮制作一个动态秒表，如图1所示.单击“开始”命令按钮，秒表开始计时，单击“结束"命令按钮,秒表结束计时，并在标签框显示运行时间,如“运行了０小时2分10秒”。（假设对象得属性都在程序代码中设定) 图1 动态秒表 程序代码如下： Dｉm xＡs Long Dｉm h As Integｅr，m As Ｉntegeｒ， s Aｓ Iｎｔegeｒ Private SuｂFoｒm＿Lｏad（) Form1、Cａptｉon ＝＂动态秒表（小时:分：秒)" ｍand１、Captiｏn ＝"开始” ｍａｎd2、Ｃaptiｏn =＂结束" Label1、Aｌignｍeｎｔ=”Cｅnｔer” Ｌａbel1、Capｔion ＝ " 0： 0: 0＂ Tiｍｅr1、Inｔｅrｖal=（21） Ｔimer１、Enaｂled＝ False x=０ End Sub Prｉvａｔe Ｓub mａnd１_Cｌiｃk（） (22） Ｅnd Sub Private Sub ｍanｄ2_Cliｃｋ（) Tiｍｅr１、Enabled = Ｆａlｓe ｘ = (２３) Labｅl1、Ｃaption = "运行了＂+Str（h)+”小时"+Stｒ(ｍ)+_ ＂分"＋Str（s）＋＂秒" Ｅnd Sub Ｐrivaｔe Sub Tiｍer1_Tｉmeｒ（） （24） h＝ x\ ３600 m ＝（ｘMｏｄ 36０0) \ 60 ｓ = (25) Ｌabel１、Cａｐｔion = Str（ｈ）+ ＂：＂＋ Str（m） +"：”+Stｒ(s）Enｄ Sub (2１)（22 ) (23 ) （２4 ) （２5) ２.【程序说明】本程序将1个大于100得偶数n分解为2个素数之与。其中nfｌａg逻辑型函数用于判断自然数ｘ就是否为素数。 Priｖate Sｕb Foｒｍ_Clｉck(） Dim nＡｓ Integｅr，x As Integeｒ，y As Inｔeger ?n = Val（InputBox(”请输入1个大于１０0得偶数”，”输入数据”，100）) For x= 3 To n \ 2 Sｔep 2 ??Ｉf nflaｇ（x）Ｔheｎ ???y = （26） ??If ｎflａy（ｙ） Thｅn Form1、Ｐrｉnｔｎ; "=”; x；”+”； y： EｘiｔＦor Ｅｎｄ IF ?EｎdＩf （２7） Eｎd Suｂ Ｆｕｎctiｏｎnflag(x ＡｓＩntｅger) ?Diｍ flag As Boｏｌeaｎ k= 2 ： m =Int（Sｑr（x）) flａｇ= （2８） Do Whｉle ｋ<= ｍ ??Ｉf x Ｍoｄk = ０ Tｈen flaｇ =Faｌｓe ?（29) Ｌooｐ ?ｎfｌag ＝（3０） Eｎd Ｆunctiｏn （２6）(27） （2８）(2９)（３０） 四、程序阅读题(每小题５分，共２０分) 程序31、写出程序运行时单击窗体后,Forｍ1上得输出结果。 PrｉvａtｅＳub Foｒm_ｃlicｋ（) Dimｘ as stｒｉng ?Diｍｉａs integer，n ａｓ iｎteｇeｒ ?Foｒｍ1、cls ?x=”ABCDEＦGHＫL" ?n ＝ｌen（x） fｏr i =n tｏ 1 step —2 ?Fｏrm１、Pｒint Tab (20—i）；Ｍiｄ（x,i，1） Nexｔ i End suｂ ?程序32、执行下列事件过程时，写出窗体上得显示结果。 Prｉｖaｔe Sub mand1_Ｃlick（) Diｍｘ As Long， i As Intｅger x= ６0 i =２ Do Ｗhiｌe x 〉 1 If x Ｍoｄ i = 0 Then Pｒｉnｔi；： x = x\ ｉElse i = i＋１ Ｌｏｏｐ End Sub 程序33、顺序写出运行时在文本框控件Ｔext1中输入ａbｃd后,列表框控件Liｓt１中得各表项。 Dim ｓ AｓStriｎg Privａｔｅ Sub Fｏrm＿Lｏaｄ（） Ｌist1、Cｌeaｒ Text1、Tｅxt = "” Ｅｎd Sｕb Prｉvａte Sub Ｔｅxt１_Change() s= s＋ Text1、Text Liｓｔ1、AddItem s Enｄ Sub 程序34、运行下面程序，并输入数据分别为１２9，3２，53时，写出ｌaｂｅｌ1显示得内容. Pｒｉvａte Sub Form_Cｌｉｃk（) ?Ｄim a ＡｓＩnｔeger ?a ＝ Val（InputＢｏx（"请输入数据”,”"，1０0)） Sｅｌect Casｅ a ｍoｄ５ ?ＣaｓｅIｓ〈 4 ?w= ａ + 10 ?Case Is < ２ ?w = ａ＊ 2 ??Ｃase Else ??w＝ a - 10 Ｅnd Selｅｃt ?Ｌａbｅl1、Ｃaｐtiｏn = "ｗ=＂＆ Str（w) End Sｕb 五、程序设计题（每题10 分,共３0 分) ?３5、随机产生n 个两位正整数（n由输入对话框输入，且0<ｎ<100),求出其中得偶数之与，并在标签框Ｌabel1上显示。(１0分)?３６、编程，输入ｘ值，按下式计算并输出y值。（10分） ?37、在窗体上建立4个命令按钮ｍand1、ｍaｎd2、mand3与ｍａnd4，运行结果如下图2。(10分) 要求： ⑴命令按钮得Ｃａｐtiｏn属性分别为“字体变大”、“字体变小"、“加粗”与“标准”。 ⑵每单击mand1按钮与mand2按钮一次，字体变大或变小3个单位。 ?⑶单击ｍaｎd3按钮时，字体变粗;单击maｎd4按钮时，字体又由粗体变为标准。 ?⑷ 4个按钮每单击一次都在窗体上显示“欢迎使用VB”. ?⑸双击窗体后可以退出。 图２运行后得显示结果 ＶＢ练习题（二）参考答案 试题一、判断题（每小题１分，共１0分） 1、√ 2、√ 3、× 4、× 5、√６、×7、×８、√９、× 10、√ 试题二、单选题（每小题２分，共20分） 1１、 C 1２、 A 13、 A 14、Ｂ 1５、Ｄ１6、 D 17、 A 18、Ｃ 19、B 20、 C 试题三、程序填空题（每空2分，共２0分) 21.１０00 ２2、Ｔｉｍeｒ１、Enａｂｌed = Ｔrｕe 23、 0 24、x = x + 1２〈>0 2５、ｓ=xMod3600Mod6０2６、ｎ—ｘ 27、nｅｘt x 28、flａg = truｅ 29、ｋ＝ｋ＋1３0、flag 试题四、程序阅读题（每小题5分,共20分） 3１、Ｌ?3２、２ 2 3 5 ? H F D B 33、 a ａａb aababc aaｂaｂcaｂcd ?3４、 w=119 ?w=42 ?ｗ=6３ 试题五、程序设计题（每小题各10分，共3０分） ３5、随机产生n 个两位正整数（n由输入对话框输入，且０＜ｎ<10０),求出其中得偶数之与，并在标签框Ｌａbｅl1上显示.(10分） Pｒivate SubＦorm＿Ｃlick（） ?Dim n As Integer， s as Sｉngle， a（100）as Ｉｎteｇer ?S＝0 Do n=InputBox（"输入n（０＜n〈1００）:") LooｐＷｈile n ＜ 1 or n>100 ?Ｆｏｒ i=１ To n a(ｉ）=Ｉnｔ（Rｎd*9０）+1０ ?Next i Ｆｏr i=1Tｏ 30 ??If a(ｉ) Mod ２=０Ｔhen ｓ=s＋a（i) Next i ?Label１、Capｔiｏn=s End Sub 36、编程，输入x值，按下式计算并输出y值。（10分） Ｐｒｉｖate Sub Fｏｒm_Clｉck（) Ｄim x AsＳｉnｇle, ｙ As Sｉngｌｅ x = Vａl（InputBox（”请输入X得值:”)) If x 〉 4 Thｅn y = 3＊x —２ ＥlｓeＩf x >= 2 Andｘ <＝４Thｅn y= 5＊x^ 3 ＥlseIf x > —3 Anｄｘ＜２Ｔｈen y＝ Sｑr（x＋8） Elｓe y = ０ End If Prｉnt ”当Ｘ=”; x; ”时＂,”y=＂； y EnｄSub ３７、在窗体上建立４个命令按钮maｎd1、maｎd２、mand3与mａnd4，运行结果如下图２.(1０分） ⑴界面设计(略) ⑵过程设计 Pｒｉvａte Suｂ mand１_Click（） Form1、FonｔSｉzｅ =Fｏrｍ1、FｏｎtSize+３ :Foｒｍ1、Print"欢迎使用VB” EndＳuｂ Ｐｒｉvate Ｓuｂ mａnd2＿Clicｋ(） Foｒｍ1、FontSiｚe= Ｆｏrm１、FontSiｚe - ３：Ｆoｒm1、Prinｔ”欢迎使用VB＂ Enｄ Sub Pｒivaｔe Suｂｍanｄ3_Cｌｉcｋ(） Foｒｍ1、FoｎｔBold = Tｒuｅ : Ｆorm１、Pｒｉnt ”欢迎使用VB" Eｎd Ｓｕb Ｐｒiｖate Sub mａnd4＿Click（) Forｍ１、FontBold ＝ Fａlsｅ: Form1、Print ＂欢迎使用VB” EndＳub Privatｅ Sｕｂ Forｍ_ＤblCliｃk（） End End Sub 程序运行后，单击mａｎd１两次后，单击ｍaｎd2、ｍaｎd3、mand4各一次，将显示如图２所示得结果。单击窗体右上角得“关闭"按钮,可以退出运行.此外，双击窗体时调用了事件过程ＤbｌCｌick，也可以退出运行. ＶB练习题（三） 一、判断题（每题 1 分，共 10 分） ( ）１、面向对象得程序设计就是一种以对象为基础、由事件驱动对象执行得设计方法。对 （)２、窗体得WinｄowＳtａｔｅ属性就是可读写属性。对 （）3。单选按钮能响应Clｉck事件，但不能响应KeｙPｒesｓ事件。错 ( )4、定时器控件得Ｉnｔerｖal属性就是只读属性。错 （)5、由于定时器控件在运行时就是不可见得,因此在设置时可任意地将其放在任何位置。对 （）6、控件得属性值不可以在程序运行时动态地修改。错 （)7、事件过程可以由某个用户事件触发执行,它不能被其她过程调用。错 （）8、用Ｃlｓ方法能清除窗体或图片框中用Ｐｉcture属性设置得图形。错 ( ）9、在过程中用ＤIM语句或Conｓｔ语句定义得变量或符号变量就是局部变量或局部符号常量。对 （）1０、目录路径列表框得Patｈ属性,只能用程序代码设置，不能通过属性窗口设置。对 二、单选题（每题 2 分,共 2０分) （）11．一个对象可以执行得动作与可被对象识别得动作分别称为_＿___＿_。 Ａ、事件、方法B．方法、事件 C.属性、方法??D．过程、事件 （)12。滚动条得___＿＿_属性用于指用户单击滚动条得滚动箭头时，Value属性值得增减量。 A、ＬargeChaｎge Ｂ、SmａllChangｅ?C、Value D、Ｃhange ( ）13.函数IｎStr（"winｄoｗse＂，Mid（”ｗinｎｔ”，2,２)) 得返回值就是______＿。 ?A、0 B、1??C、2???D、3 ( ）14.条件“m、n不同时为0”写作ＶB得表达式为______＿。 ?A、m＝0And ｎ〈＞0?B、m＋n=0 ?C、Ｎoｔ（m=0 And n=0) D、m＊n=0 ( )15.由Foｒk＝35 Ｔo 0 Step 3：Neｘt k 循环语句控制得循环次数就是＿＿_____。 A、0 ?? B、12 C、11 ?Ｄ、10 （）16.按Tａｂ键时,焦点在各个控件之间移动得顺序就是由_＿＿＿＿__属性来决定得. ?A、Iｎdex ??B、ＴabIｎｄeｘ?Ｃ、TabSｔop Ｄ、SｅtFoｃus （)1７。改变控件在窗体中得上下位置应修改该控件得__＿___＿属性。 ?A、ToｐB、Lｅft C、Width D、Rｉｇht ( ）18.Iｎt（Rｎd* 10 ）表示得就是__＿____范围内得整数. A、［０，１0] Ｂ、[1,9］C、［0,9］D、[1，10] （）1９。＿___＿__对象不具有Caption属性。 A、Label? B、Optｉｏｎ? C、Foｒｍ D、Timer ( ）20.编制一个对Siｎgｌe类型一维数组排序得Sub过程,该过程只能被本模块中其她过程所调用，其首句为＿_＿＿___. ?Ａ、Sub f（ａ（) As Ｓｉnｇlｅ,n As Integeｒ）B、ＰuｂliｃSub f(a() Ａs Singlｅ） Ｃ、Private Ｓub f（a（n) As Ｓingle，n As Integer)?D、PubｌｉｃSｕb f（a（) As Siｎｇle，n Ａs Integｅr） 三、程序填空题 (每空 2 分，共 20 分） 1.【程序说明】窗体上有两个命令按钮：ｍaｎd1(显示)与mａnｄ2(退出）。下列程序运行时,“显示”按钮能响应,“退出”按钮不能响应;单击“显示”按钮后，在窗体上显示一个用字符“*”组成得６层得金字塔，同时“显示”按钮不能响应，“退出”按钮能响应，运行结果如图1所示. 图1 金字塔 Ｐrivａｔe Sub ｍand1_Cｌｉcｋ(） Ｄim i Aｓ Integer, j As Iｎteｇer For i = 1 To 6 Pｒint Ｓpc（24 —ｉ）; Foｒｊ = ( 21 ) Print "＊＂; Nｅxt j ( ２2） Next i mand1、Enａbled =False (23 ) Enｄ Sｕb Private Suｂmanｄ2_Click（) (24 ） End Suｂ PrivatｅSｕb Ｆorｍ_Load（) mand1、Enabｌeｄ＝ True (25） End Sｕｂ （２1)（22 ） （２3 )（２4 ）（25 ) 2。【程序说明】单击窗体后，用输入对话框输入x、n，按下式计算结果。要求：将计算结果以标签控件显示，且每秒钟随机变换一次颜色。 【程序】 Ｄｉm s AsＳｉnｇle Ｐrｉvate ＳｕｂForm＿Loaｄ(） Tiｍer1、Ｉnterval ＝ (26) Tiｍer1、Enabled = Fａlse End Sub Prｉvate Sｕb Form_Ｃlick（） Diｍ x AｓSingle，ｎＡs Integｅr， i As Inteｇｅr，t As Siｎｇlｅ s = 0: x =InpｕtBｏx（”x="）： n ＝ IｎｐutBoｘ（"n=") （27） For i =2Ｔo n + １ t = t ＊ｘ / i （28) Next i (29) Enｄ Sub Pｒiｖate Sｕb Timｅr1_Timeｒ() Laｂel1、ForeＣoｌor ＝ＲGB（Rｎd ＊ 255， Rnd * 2５5， Rnd *255） Label１、Caｐtion = （3０） End Ｓub （2６）（27） （28 ）(29 ) （30 ） 四、程序阅读题(每小题5分，共 2０分) 程序31、顺序写出运行时执行下列事件过程得显示结果。 Ｐｒivaｔe Suｂ mand１＿Cｌick（) Ｆor i ＝ 2 Ｔo 20 Ｉｆｉ Mod 2 = １Ａnd i Mod 5 =３ Then Ｐｒint i Nｅxt i Print ｉ EndＳub 程序32、下列过程f得功能就是对相应实参数组按绝对值从大到小排序;运行时单击命令按钮控件ｍaｎd1后，写出窗体上得显示结果。 Privatｅ Sub ｆ（a（） AｓＳingｌe，n As Iｎteger） Dim iＡs Integer, ｊAs Iｎteger, k As Inteｇeｒ,t Ａs Singｌe For i＝ 1 To n — 1 k =i Fｏr j= i +１Ｔｏn ifａbｓ(ａ（j)) ＞ａbs（a（k)) Then k = j Nextｊ t = ａ(k）: ａ(k) = a（i): ａ（ｉ）=t Next i Eｎd Sub PrivａteＳub mａnd1_Clｉck（) Dim x(５） As Sｉngｌｅ x（1) = ５: ｘ（2） = －7: ｘ（３) = 5: x（4) ＝１２: x(5) = －3 Call ｆ（x，5） Ｐrint ｘ（1)；x（2)；ｘ(３）;x(4）；x（5) Ｅnｄ Suｂ 程序33、请写出在文本框Ｔｅxt1中输入12345（以换行结束)后，标签控件Lａbel1上得显示结果。 Ｐrivate SubＦoｒｍ_Ｌoad(） Labｅl１、AuｔoSiｚe ＝ Tｒuｅ Ｅnd Sub Privaｔｅ Sub Texｔ1_KeyＰrｅss（ＫeyAsciｉ As Inteｇｅｒ） ＤiｍａAs Ｓtｒiｎg＊ 1， b AsＳtｒｉnｇ, n Ａs Bytｅ IｆＫeyAsｃｉi =13Then b =Text1、Texｔ：n = Lｅn（b) Ｆor i% = 1 To n ＼ 2 a= Left（b，１) b = Ｒigｈt（b, n － 1） + a Label１、Capｔion = Labｅl1、Caption + b + Cｈr(13) + Chr（10） Nexｔi% Eｎd If Eｎd Sub 程序34、写出程序运行时单击窗体后,Fｏrm１上得输出结果。 Private Sub Ｆorｍ_Cｌick(） Foｒm1、Cls ｗ＝ 3 For k = 2 To 6 Sｔｅｐ２ Foｒm1、Ｐｒｉnt ”w=”；w, ”ｋ="；k w = w + 1 Next ｋ Form１、Pｒiｎt”ｗ="；w, ”ｋ＝”; k End Sｕb 五、程序设计题（每题 10 分，共30 分） 35．用InｐutBox函数输入３个任意整数,按从小到大得顺序输出.(10分) ?３６、计算表达式“m！/n！／（m—ｎ)！”值并在窗体上输出。 要求：用对话框输入m与n(m≥n≥0）;编写函数过程计算阶乘值。(10分） 37、编制事件过程mａnｄ１_Ｃliｃk计算一元二次方程ax２＋ｂx+c＝０得根: ??系数a、b、ｃ已分别在Ｔext1(0）、Tｅxt1(１）、Ｔexｔ1(２）中输入； ?若方程有实根则分别通过标签控件Ｌabel１、Label2显示，否则在Ｌabel1中显示?文本信息“方程无实根”.(1０分） VB练习题(三）参考答案 试题一、判断题（每小题1分,共１0分) １、√ 2、√３、× 4、× 5、√６、×７、×８、×9、√１0、√ 试题二、单选题（每小题2分，共20分） 11、 B １2、 B 1３、 C １4、 C 15、 A 16、 B 17、Ａ 18、Ｃ19、 D 20、A 试题三、程序填空题（每空2分，共20分） ２1.1 Tｏ２＊i-１ 22、Prｉnｔ２３、 mand2、Ｅｎaｂｌed=True 24、Ｅｎd 25、 mａnｄ2、Eｎabｌｅｄ=False 26、１0０027、ｔ =1 2８、s＝ s+ ｔ 2９、Ｔｉmeｒ1、Ｅｎａbled＝Ｔｒue３０、s 试题四、程序阅读题(每小题５分，共20分） 3１、 3 3２、 12 —７ 5 5 －3 13 21 ３3、 2３451 34512 ?34、 w=3 k=２ w=４ k=4 ?w=５ k=6 ? w=6 k＝８ 试题五、程序设计题（每小题各10分，共３０分） 35、用ＩnputBｏx函数输入３个任意整数,按从小到大得顺序输出。 单击窗体后实现，事件过程Form＿Ｃｌick如下: Pｒｉvａte SuｂＦorm＿Clicｋ（） Diｍ a As Sｉnglｅ, ｂAs Sinｇｌe，ｃ As Ｓingｌe，ｍ As Sｉngle a= InｐｕtＢｏx（＂请输入第一个数："）： b =IｎpｕｔBoｘ（＂请输入第二个数：＂） ｃ = InputBｏx（"请输入第三个数：”) If a 〉 b Ｔhen m ＝ a： a =b: ｂ＝ m 《VB程序设计》综合复习资料习题 《VB程序设计》综合复习资料 第一章Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化B．面向对象C．面向图形D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 第 2 页共 32 页 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） A．文本框失去焦点B．文本框获得焦点 C．设置文本框的焦点D．改变文本框的内容 2、应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 第 3 页共 32 页 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 2016年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。窗体的标题为“窗口”。请通过属性窗口设置适当的属性，满足如下要求： ①Text2可以显示多行文本，并且有垂直和水平两个滚动条; ②程序运行时在Textl中显示输入的字符为“*”。 程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl.vbp，窗体文件名保存为sjtl.frm。 参考解析： 【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。 【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。 【操作步骤】 步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。 步骤2：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。 2[单选题]在下列模式中，能够给出数据库物理存储结构与物理存取方法的是()。 A.外模式 B.内模式 C.概念模式 D.逻辑模式 参考答案：B 参考解析：数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择B。 3[单选题]以下关系表达式中，其值为True的是()。 A.1f.XYZ”>”XYz” B.”VisualBasic”<>”visualbasic” C.P the-.=’’there·t D.”Integer”<”Int” 参考答案：B 参考解析：用关系运算符比较两个操作敷时，如果两个操作数是字符型的，按字符的A SCIl码从左到右一一比较，即先比较第1个，若相同再比较第2个，依次比较，直到比较 第一章 1 从功能上讲，Visual Basic 6.0有3种版本，即：学习版、专业版、企业版 2 与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制。 3 Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏 4用标准工具栏中的工具按钮不能执行的操作是打印源程序。 5关于Visual Basic"方法"的概念错误的是方法是对事件的响应 6在Visual Basic中，称对象的数据为属性 7Visual Basic应用程序可以用解释方式执行也可以用编译方式执行 第二章 1 计时器控件的Interval属性用于设置Timer事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled 属性设置为False ，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于1000 2 利用Ctrl + G操作可以打开立即窗口。 3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle = 0 Lable1.BorderStyle = 0 4在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口 5 在Visual Basic中，窗体文件的扩展名为FRM 6 窗体的Name属性指定窗体的名称，用来标识一个窗体 7 改变控件在窗体中的上下位置，应修改该控件的属性是Top 8 表示滚动条控件取值范围最大值的属性是Max 9 如果要改变窗体的标题，则需要设置的属性是Caption 10 在文本框（Text）中，通过ForeColor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值 为* 12 能够改变复选框中背景颜色的属性是Backcolor 13 图片框是不具有Picture属性的对象 14 窗体的Name属性指定窗体的名称，用来标识一个窗体 15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章 1用于从字符串左边截取字符的函数是Left( )，设a="Visual Basic"，使b="Basic"的语句是b=Left(a,8,5)。 2下列符号中哪个是VB程序中合法的变量名：A ab7 B 7ab C If D a*bc （A）数字开头，关键字，* 3X是小于100的非负数，用VB表达式表达正确的是0<=X and X<100 4设有如下变量声明Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2# 5表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是5，设a=3,b=5，则表达式(a>b)Or(b>0)值为真。5/5.25 为1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于 0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。例如： 5\2.5等价于5\2 5\2.6等价于5\3 6函数String(n，"str")的功能是返回由n个字符组成的字符串 7设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是小于0的数Sgn(3-5)=-1 Sgn(5-3)=1 8Integer类型的数据由2字节组成，Long类型的数据由4字节组成。 9已知X＜Y，A＞B，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-2 10在一个有①逻辑运算②算术运算及③关系运算混合在一起的表达式(无括号)中，其运算顺序为②③① 《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。 第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： ①随机产生20个0到1000的整数，将其放入一个一维数组中 ②求出所有元素的平均值，并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮，如下图所示。在程序运行时，单击"转换"按钮，可以把Text1中的小写字母转换为大写，把大写字母转换为小写，其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1，标题为"输出最大值")。程序运行后，单击命令按钮完成以下工作： ①随机产生30个0～1000的整数，将其放入一个一维数组中 ②求出其中的最大值，并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时，在选中一个或两个复选框和一个单选按钮时，单击命令按钮，则对文本框中的文本内容做相应的设置。请编写适当的事件过程，完成上述功能。 高中《信息技术》程序设计知识点1 高中《信息技术》程序设计知识点 一、基础知识 1．基本概念<要求：了解> ●程序、程序设计、程序设计（计算机语言语言）、流程图，屏幕坐标系、二进制； ●数据类型、常量、变量、表达式； ●对象、属性、方法、事件。 2．VB的基本数据类型<要求：记忆> ●数值类型：Integer、Long、Single、Double，（类型符依次为%、L、!、#） ●字符串型：String（类型符$） ●逻辑型：Boolean 3．VB运算符<要求：会用> （1）算术运算符：＾(乘方)→－(取负数)→*(乘)、/(除)→mod(求余数)、\(整除)→＋(加)、－(减) （2）关系运算符：＞、＜、＝、＞＝、＜＝、＜＞ （3）逻辑运算符：NOT(非)→AND(与)→OR(或) 4．表达式<要求：会写、会计算> ●算术表达式，其结果为数值。如：5*(2^3-4)mod 7 ●字符表达式，其结果为字符串。如：”What”&”is your name?” ●关系表达式，其结果为True(真)或Flase(假) 。如：3/2<>3\2 ●逻辑表达式，其结果为True(真)或Flase(假) 。如：”abc”<=”A” and int(-1.2)=-2 6．变量<要求：理解变量的用途和特点，会定义变量的类型，会使用变量> 变量用于存储数据，其特点是“读之不尽，新来旧去”。不同类型的数据要用相应类型的变量存储;一般在使用变量前应该先定义(声明)该变量的类型。 例：已知y=|x|，编程从输入对话框输入x的值，从输出对话框输出y的值 DIM x As Single, y As single‘定义二个单精度变量x，y 语句也可写为DIM x!, y! x=inputBox(“a=”,”输入变量的值”,0) If (x>=0) Then y=x Else y= -x MsgBox y 7．VB语句的书写规则 ●语句不区分字母大小写，每行字符最多255个； ●一条语句可以写在多行上，续行符为空格后跟下划线； ●多条语句可以写在一行上，语句间必须用冒号分隔； 优质文档VB程序设计考试题库——考试专用 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer VB程序设计期末考试题 一、选择题 1 下列常量中，是Integer类型常量的是（ C ）。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后，A=（A）。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时，转换规则是（ D ）。 A、将True转换为 1 ，将False转换为 0 B、将True转换为 1 ，将False转换为 -1 C、将True转换为 0 ，将False转换为 -1 D、将True转换为 -1 ，将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D). A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2，则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值（ B ）。 A、不能计算 B、 True C、5 D、False 11 随机产生[10，50] 之间整数的正确表达式是（ D ）。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile 一、知识点 1．对象、属性、类、事件和事件处理的概念 （1）对象是客观存在的事物或概念。它有两个特点：状态和行为。 （2）一个对象的状态是通过若干个属性（property）来描述的；行为是指对属性进行操作和处理的方法（method）。在面向对象的程序设计中，一个对象是由一组对象状态的数据和一组描述处理对象属性的方法的代码构成的。对象的属性定义其外观，方法定义其行为，事件定义其与用户的交互。 （3）类（class）是对相同性质的对象的一种抽象，而一个对象则是类的一个“实例”。 （4）事件（event）就是发生在对象上的事情，通常是由用户在对象上激发的一种动作。一个事件的发生，可以引起某个对象上某个方法（事件处理过程）的执行，即由某个事件驱动了相应的事件处理过程的执行。这就是面向对象程序设计中的事件驱动概念。 2．VB应用程序的界面设计 （1）VB程序设计语言：基于Basic语言的可视化程序设计环境，采用面向对象的程序设计方法（OOP）。 （2）VB应用程序设计环境的的窗口主要由对象窗口、控件工具箱、属性窗口、工程窗口组成。 （3）控件工具箱集中了常用的基本控件：标签label、文本框TextBox、命令按钮Command Button、列表框ListBox等。 (4)窗体（Form）是VB应用程序的基本结构。窗体可以看作是一个“容器”，其中放置着各种各样在应用程序中必须用到的对象。 3．VB应用程序的运行和保存 运行：单击工具栏中“运行”选项中的启动按钮，运行应用程序。 保存：在“文件”菜单中选“工程另存为”，该应用程序的窗体和工程分别存储到文件中，其相应的文件扩展名分别是“ .frm”和“ .vbp”。也可以选“文件”菜单中的“生成工程xxx.exe”，这样，就可在Windows环境中直接运行这个应用程序了。 4．VB的基本数据类型、常量、变量和数组 （1）数据：数据是信息的一种记录形式。在VB中，常用的基本数据类型有以下几种：Integer(整数型)、Long(长整数型)、Single(单精度实数型)、Double(双精度实数型)、String(字符串型)、Boolean(逻辑型)、Date(日期型)。P69 （2）常量：常量是在程序执行过程中其值不变的存储单元或数据。在VB中，常量有整数常量、实数常量、字符串常量和逻辑常量这几种类型。 （3）变量：变量用来表示数据的存储区，在程序运行过程中，这些存储区中的值是可以改变的。变量名由字母、数字和下划线等字符组成，但必须以字母开头，在变量名中对大小写字母是不加区分的。 变量说明语句的常用形式为：Dim 变量名As 变量的类型。P70 (4) 数组：数组是由一批同类型的变量构成的一个序列，组成数组的每一个变量被称为数组的元素，也称为下标变量，下标是一个整数，用来指出某个元素在数组中的位置。 一维数组的常用形式为：Dim 数组变量名(A1 To A2) As 元素的类型。P70 二维数组的常用形式为：Dim 数组变量名(A1 To A2，B1 To B2) As 元素的类型。 5．VB中的常用标准函数 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23 25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb 第1章Visual basic概述 一、VB是在Windows平台下，用于开发和创建具有图形用户界面的应用程序的工具。 二、VB是面向对象的程序设计语言；工作方式为事件驱动/消息驱动。 1．对象 对象是动作体的逻辑模型，是人们可控制的某种东西，应用程序的每个窗体和窗体上的 种种控件都是VB的对象 2．属性 属性指对象的特性。 3．方法 方法指对象可以进行的动作或行为。 4．事件 事件是指能被对象所识别的动作。 5．事件驱动 只有在事件发生时程序才会运行。 6．工程 工程是应用程序文件的集合，一个工程一般会包含下列文件，如表1—l所示。 表1—1 应用程序文件类型 文件类型说明 工程文件(．vbp) 它是与该工程有关的全部文件和对象的清单，该文件是必选项 窗体文件(．frm) 它包含事件过程，以及该窗体及窗体上的各个控件对象的属性设置以及相关的说明，该文件是必选项 二进制数据文件(．frx) 当窗体中含有二进制属性(如图片或图标)时，该文件将自动产生 标准模块文件(．bas) 它包含可以被任何窗体或对象调用的过程程序代码，该文件是可选项 类模块文件(．cls) 该文件是可选项包含ActiveX控件的文件(．ocx) 该文件是可选项 第2章创建用户界面 知识点概括 1．用户界面 用户界面是应用程序中最重要的部分，是程序与用户进行交互的桥梁，标准的Windows 应用程序界面都是由窗口、菜单条、各种按钮、文本框、列表框等对象构成的。 2．窗体 窗体是包容用户界面或对话框所需的各种控件对象的容器。 在创建一个新的工程时，默认的第一个窗体即为启动窗体。 3．控件 控件是与用户进行交互的可视化部件，向窗体上添加控件应在窗体编辑器中进行。 4．命令菜单 命令菜单是应用程序窗口的基本组成元素之一，它由菜单条、菜单、菜单项、子菜单、弹出式菜单组成，可以通过VB提供的菜单编辑器创建程序菜单。 （1）连字符（—） （2）& 5．设计用户界面的步骤 (1)确定窗体的大小和位置。 (2)根据程序的功能和要求，添加所需的控件。 (3)合理地分布控件的位置与大小。 (4)设置各个对象的属性。 6．窗体及常用控件的常用属性、事件、方法 熟悉各对象的常用属性、事件和方法，对于创建应用程序有着举足轻重的作用，表2—1给出了窗体及常用控件的常用属性、事件以及方法使用说明。 表2—1 窗体及常用控件的常用居住、事件以及方法一览表 对象名称说明 Name 设置对象在程序代码中的引用名 通用属性Caption 设置对象的标题栏中或图标下面的文本 Font 设置文本的字体、字型、字号等 left 设置对象的左边界距容器坐标系纵轴的距离 Top 设置对象的上边界距容器坐标系横轴的距离 Height 设置对象的高度 Width 设置对象的宽度 Enabled 设置对象是否被激活 通用属性Visible 设置对象是否可见 BackColor 设置对象的背景色 ForeColor 设置对象的前景色 Index 设置控件在控件数组中的标识号 TabInfex 设置窗体中的对象响应[Tab]键的顺序 TabStop 设置用户是否可以使用[Tab] 键来选定对象 Style 设置控件的外观 Boderstyle 设置窗体的边框风格《VB程序设计》综合复习资料习题
VB期末考试试题及答案
《VB程序设计》习题答案-林卓然编著
vb程序设计试题(含答案)
2016年计算机二级《VB》基础练习题及答案(2)
VB程序设计知识点归纳
VB程序设计 试题与答案-1
VB练习题(上机)含答案
高中信息技术程序设计知识点
VB程序设计考试题库 优质文档
VB考试题及答案
高中会考计算机vb知识点(2020年九月整理).doc
VB程序设计试题及答案一
vb练习题及答案.doc
vb知识点总结归纳.doc