《程序设计基础——vb》

1、程序设计基础vb班级：学号姓名（1）以f叙述屮正确的是（）a、窗体的name属性指定窗体的名称，用来标示一个窗体b、窗体的name属性值是显示在窗体标题中的文木c、可以在运行期间改变窗体的name属性的值d、窗体的name属性值可以为空（2）以下叙述屮错误的是（）a、打开一个工程文件时，系统自动载入与该工程冇关的窗体文件b、保存visual basic程序时，应分别保存窗体文件及工程文件c、visual basic应用程序只能以解释方式执行d、窗体文件包含该窗体及其控件的属性（3）(4)设a=2, b=3, c=4下列表达式的值是(not a<=c or 4*c=ba2 and <

2、> a+c a、-1b、1设有如下的用户定义类型：type studentnumber as stringname as stringage as integerend type则以下正确引用该类型成员的代码是(c、trued、false(5)(6)(7)(8)a、 student.name = ”李明"b、dim s as students.name ="李明”c.dim s as type studentd、dim s as types.name = ”李明”s.name = ”李明")设a=5, b=6, c=7, d=8,执行下列语句后,x的值为x=

3、ilf(a>b) and (c>d)j0,20)x、10b. 20执行以下程序段后，变量c$的值为a$=mvisual basic programming b$mquick" c$= b$&ucase (mid$ (a$, 7, 6) &right$ (a$, 12)a visual basic programmingb、quick basic programmingc、quick basic programmingd、quick basic programing在窗体上画一个文本框(其名称为textl)和一个标签(其名称为label 1),程序运行后，如

4、果在文本框中输入 指定的信息，则立刻在标签中显示相同的内容。以下可以实现上述操作的事件过程是()an private sub textl_click()c、private sub labell_change()label 1 .caption = text 1 .textlabel 1 .caption = text 1 .textend subend subb、private sub tcxtl_changc()d、private sub label l_click()label 1 .caption = text 1 .textlabel i .caption = text 1 .text

5、end subend sub在窗体上画一个命令按钮和一个标签，名称分别为command 1和label 1,编写如下事件过程：private sub command 1 _ciick()counter = 0for i = 1 to 4for j = 6to 1 step -2counter = counter + 1next jnext ilabel 1 .caption = str(counter)end sub程序运行后，单击命令按钮，标签中显示的内容是()c、trued、falsea、11b. 12c、16d、20在窗体上画一个名称为tcxll的文本框和一个名称为command 1的命

6、令按钮，然后编写如下事件过程: dim i as integer, n as integerfor i = 0 to 50i = i + 3n = n + 1ifi>l othen exit fornexttext 1 .text = str(n)程序运行后，单击命令按钮，在文本框中显示的值是a、5b、4c、3d、(10) 在窗体上画一个命令按钮和两个标签，其名称为commandk label 1和label2,然后编写如下爭件过程：private sub command l_click()a = 0for i = 1 to 10a = a + 1b = 0forj = lto 10a

7、= a + 1b = b + 2next jnext ilabel 1 .caption = str(a)labcl2.caption = str(b)end subx、10 和 20b、20 和 110c. 200 和 110d、110 和 20(11) 在窗体上画一个名称为lis(l的列表框，一个名称为lable 1的标签，列表框中显示若t城市的名称。当单击列 表框屮的某个城市时，该城市从列表框中消失，并在标签中显示出來。下列能正确实现上述操作的程序是()end subc. private sub listl_click()a、private sub listi_ciick()label

8、1 .caption = list 1 .listindexlisti.removelteni list i.textlabel 1 .caption = list 1 .textlist 1.removeltem list 1.listindexend sub(12)end subb、private sub listl_click()label 1.name = list 1 .textlist 1.removeitem list 1.text在窗体上画一个名称为command 1的命令按钮,private sub command 1 _click()dim i as integer, j

9、as integerdim a(l(), 10) as integerfor i = 1 to 3d、private sub listl_click()label 1.name 二 list 1.textlist 1.removeitem list 1.listindex end sub然后编写如下程序：forj = 1 to 3 a(i,j) = (i l)*3+j print a(i,j);next jprintnext ia. 1 2 3b、23 4c、3 4 7d. 1232 4 634 52 5 84 563 6 945 63 6 97 89在窗体上画一个命令按钮，名称为comman

10、d 1的命令按钮，然后编写如卜程序：(13)end sub程序运行后，单击命令按钮，窗体上显示的是()private sub command l_click()dim a(4) as integer, b(4) as integerfor k = 0 to 2a(k +1) = inputboxc 请输入一个整数f,) b(3k) = a(k+ 1)next kprint b(k)end sub程序运行后，单击命令按钮，在输入对话框中分別输入2、4、6,输出结果为()：a、0b、c、3d、4(14) 有以下程序：option base 1dim arr() as integerprivate

11、sub form_click()dim i as integer j as integerredim arr(3, 2)for i = 1 to 3fo 叮二 1 to 2arr(i, j) = i * 2 + jnext jnext iredim preserve arr(3, 4)forj = 3 to 4arr(3j)=j + 9next jprint iirr(3, 2); arr(3, 4)end sub程序运行后，单击窗体，输出结果是()a、8 13(15) 以下叙述中正确的是()a、一个sub过程至少要有一个exit sub语句b、一个sub过程必须冇一个end sub语句c、可

12、以在sub过程中定义一个function id程，但不能定义sub过程d、调用一个function过程可以获得多个返冋值(16) 有以下程序：sub subp(b() as integer)for i = 1 to 4b(i) = 2*inext iend subprivate sub command 1 _click()dim a(l to 4) as integera(l) = 5a(2) = 6a=7a(4) = 8subp a()for i = 1 to 4print a(i)next iend sub运行上面的程序，单击命令按钮，输出结果为：a、2b、5c、1046126714881

13、6(17) 设有如下通用过程：d、0 0ds出错public function fun(xstr as string) as stringdim tstr as string, strl as integer tstr = h hstrl = len(xstr) i= 1do while i <= strl / 2tstr = tstr & mid(xstr, i, 1) & mid(xstr, strl - i + 1, 1) i = i+ 1loopfun = tstrend function在窗体上画一个名称为textl的文本框和一个名称为commandi的命令按钮

14、，然后编写如下的事件过程: private sub command i _click()dim si as stringsi = abedef*textltext = ucase(fun(sl)end subd、defabca、abcdefb. abedefc. afbecd(18) 在窗体上画一个命令按钮和两个文本框，然后编写如下的事件过程:private sub textl_keypress(keyascii as integer)end sub假定焦点已经位于文本框中，则能够触发kcyprcss事件的操作是()a、单击鼠标b、双击文木框c、鼠标滑过文木框d、按下键盘上的某个键(19) 在

15、窗体上画一个命令按钮和两个文木框，共名称分别为command 1、textl和text2,然后编写如下程序:dim si as string , s2 as stringprivate sub form_load()textltext = ,htext2.text ="end subprivate sub text 1 _keydown(keycode as integer, shift as integer)s2 = s2 & chr(keycode)end subprivate sub textl_kcyprcss(kcyascii as integer)si = si

16、& chr(keyascii)end subprivate sub command i _click()text 1.text = s2text2.text = sisi =,h,s2 = hmend sub程序运行后，在textl «|>输入“abc”，然后单击命令按钮，在文本框textl和text2中显示的内容分别为() a、abc ft abcb. abc 和 abcc、abc 和 abcd、abc 和 abc(20) 以下说法正确的是()a、任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器b、只有当某个窗体为当前活动窗体时，才能打开菜单编辑

17、器c、任何时候都可以通过单击标准工具栏的“菜单编辑器”按钮打开菜单编辑器d、只有当代码窗口为当前活动窗口时，才能打开菜单编辑器(21) 在窗体上画一个通用对话框，其名称为commondialogl,然后画一个命令按钮，并编写如下事件过程：private sub commandlclick()commondialogl. filter=4fcall files(*.*) i *.* i text files(* txt) i *.txt i executable files(*.exe)|*.exe,> commondialog 1 filterlndex=3commondialogl s

18、howopenmsgbox commondialogl filenameend sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是()a、all files(*.*)c、executable files(*.exe)b、text files(* txt)d、不确定(22) 以下叙述屮错误的是()a、一个工程中可以包含多个窗体文件b、在一个窗体文件中用public定义的通用过程不能被英他窗体调用c、窗体利标准模块需要分别保存为不同类型的磁盘文件d、用dim定义的窗体层变量只能在该窗体中使用(23) 以下叙述中错课的是()a、语句"dim a* b

19、as integerm声明了两个类型变量b、不能在标准模块中static定义型变最c、窗体层变量必须先声明，后使用d、在事件过程或通用过程内定义的变量是局部变虽(24) 设有语句 open “d:tcsltxv for output as #h w f叙述中错误的是()a、若d盘根冃录下无test.txt文件，贝i该语句创建此文件b、用该语句建立的文件的文件号为rc、该语句打开d盘根h录下一个已存在的文件tcsttxt, z后就可以从文件中读取信息d、执行该语句后，就可以通过语句pring#向文件test.du写入信息。(25) 以下叙述错误的是()a、顺序文件中的数据只能按顺序读写b、对同一

20、个文件，可以用不同的方式和不同的文件号打开c、执行close语句，可将文件缓冲区中的数据写到文件中读取信息d、随机文件中各记录的长度是随机的二、填空题(每空2分，共30分)请将每一个正确答案在答题卡【1】【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。(6) 描述“x是小于100的非负整数”的visual basic表达式是6(7) 在窗体上有-个名称为command 1的命令按钮和一个名称为tcxtl的文本框。程序运行后，command 1 为禁用(灰色)，此时如果在文本框屮输入字符，则命令按钮commandi变为可用。诸填空。private sub form_

21、load()comma nd 1 .enabled = falseend subprivate sub text 1_ 7()command 1 enabled = trueend sub(8) 在窗体上画一个名称为“commandl”的命令按钮，然后编写如下事件过程：private sub command i _click()dim a as stringa = h123456789"for i = 1 to 5print space(6 - i); mid$(a, 8 , 2 * i - 1)next iend sub程序运行后，单击命令按钮，窗体上输出结果是：545634567

22、2345678123456789请填空。(9) 以下程序的功能是：将一维数组a中的100个元索分别赋给二维数组b的每一个元素并打印出來，耍 求把a (1)到a (10)依次赋给b (1, 1)到b (1, 10),把a (11)到a (20)依次赋给b (2, 1)到b (2, 10),把 a (91)到 a (100)依次赋给 b (10, 1)到 b (10, 10),请填空：option base 1private sub form_click()dim i as integer, j as integerdim a(1 to 100) as integerdim b( i to 10, 1 to 10) as integerfor i = 1 to 100a(i) = inext ifor i = 1 to 9forj = 1 to 10b(i,j)=【11】printnext jprintnext iend sub（10）在窗体上画一个名称为combo 1的组合框，然后画两个名称分别为l