天津科技大学Visual Basic程序设计样卷及答案.ppt

一 选择题 共20分 每小题1分 1 以下方法不能打开代码窗口的操作是 a 双击窗体上的对象b 双击工程资源管理窗口中的窗体文件图标c 单击工程资源管理窗口中 查看代码 按钮d 执行 视图 菜单中的 代码窗口 命令2 以下四组标识符 命名正确的一组是 a nameinttest5my carb bikeyear sinamoneyc strhellointegertop d cap6yuanmyname buy3 如果要让文本框可以输入或显示多行文本 需要将文本框的 属性值设置为true a textb multilinec scrollbarsd enabled4 要强制显示声明变量 可在窗体模块或标准模块的声明中加入语句 a optionbase0b optionexplicitc optionbase1c optioncompare b a b b 5 表达式100 100 100的值是 a 300b 200100c 100100100d 1002006 算术表达式 sin x a bc de 的vb表达式是 a sin x a b c deb sin x a b c d ec sin x a b c d e d sin x a b c d e 7 下列语句的输出结果是 dimsumasintegersum 12 56printsuma 12 56b 12c 报错d 13 b c d 8 下列表达式可以判断变量str为大写字母字符的是 a a str zb a str z c a str z d a strandstr z 9 下列程序执行后 x的值是 dimxasintegerx 2selectcasexcase0to3x x 1caseis 3x x 2case2x x 3endselecta 2b 3c 4d 5 d b 10 下列程序的执行结果为 dimiasintegerfori 10to20step2i i 3nextiprintia 21b 23c 25d 2711 下列程序的执行结果是 dimaasinteger basintegera 0b 3whilea 10a a bwendprinta ba 123b abc 93d 124 c a 12 定义静态数组时 其下标允许是 a 变量b 常量c 算术表达式 可含变量 d 常量 变量 算术表达式 可含变量 13 下列程序的执行结果是 dimx 5 asintegerdimiasintegerfori 1to5x i i inextiprintx 5 a 0b 5c 16d 25 b d 14 下列程序的执行结果是 dimx 3 5 asintegerdimiasinteger jasintegerfori 1to3forj 1to5x i j i jnextjnextiprintx 3 4 6b 8c 10d 1215 下列关于函数过程的叙述正确的是 a 函数名只能被赋值一次b 函数名没有赋值 也有值被返回c 函数名可以不遵循变量的命名规则d 定义函数的类型是指定义形参的类型 d b 16 如果要设置timer控件的时间间隔为0 5秒 那么需要设置interval属性值等于 a 5000b 500c 50d 517 在属性窗口中输入组合框控件的列表项时 使用 键换行 a enterb alt enterc ctrl enterd shift enter18 下列语句可用于设置复选框check1控件为选中状态的语句是 a check1 value trueb check1 value falsec check1 value 0d check1 value 1 b c d 19 当单击滚动条控件右侧的按钮一次 滚动块移动一定的刻度值 决定此刻度值的属性是 a maxb minc smallchanged largechange20 下列程序的执行结果为 dimxasinteger yasintegerdimiasintegerx 0fori 1to3fory 1toix x ynextynextiprintx ya 184b 183c 103d 104 c d 二 填空题 共10分 每小题1分 1 以下程序用于判断输入的年份是否是闰年 请将程序补充完全 privatesubcommand1 click dimyasintegery val inputbox 请输入年份 if thenprinty 年为闰年 elseprinty 年不是闰年 endifendsub ymod4 0andymod1000 or ymod400 0 2 程序代码如下 dimaasintegera 20ifa 5thenprint a 5 elseifa 10thenprint a 10 elseprint a aendif程序执行的结果为 a 5 3 以下程序用于计算1 1 2 1 3 直到最后一项小于0 00001 请将程序补充完全 dimnaslong sassinglen 1s 0while s s 1 nn n 1wend4 以下程序用于计算s 1 3 32 33 310的值 请将程序补充完全 dimsaslong tasinteger iasintegers 0t 1fori 0to10 s s tnexti 1 n 0 00001 t 3 i 5 程序代码如下 dima 10 asintegerdimiasintegerfori 1to10a i 2 inextifori 1to10printa i nexti程序执行的结果为 2468101214161820 6 以下程序用于对数组进行从小到大的排序 请将程序补充完全 dima 10 asintegerdimiasinteger jasinteger tasintegerfori 1to9forj 1to10 iif thent a j a j a j 1 a j 1 tendifnextjnexti a j a j 1 7 以下程序用于计算10行10列的二维数组的元素之和 请将程序补充完全 dima 10 10 asintegerdimiasinteger jasinteger sasintegers 0fori 1to10forj 1to10a i j i jnextjnextifori 1to10forj 1to10 nextjnexti s s a i j 8 程序代码如下 subfact byvalaasinteger byrefbasinteger a a 10b b 5endsubprivatesubcommand1 click dimxasinteger yasintegerx 10y 20factx yprintx yendsub单击command1后程序执行的结果为 1025 9 以下程序用于计算 n 1 2 m 请将程序补充完全 functionfact masinteger aslongdimiasintegerdimtaslong saslongs 0t 1fori 1tom s s tnextifact sendfunction m n 1 t t i 10 程序代码如下 dimiasinteger jasinteger kasintegerk 0fori 0to10step3ifi 8thenexitforforj 1to3k k 1nextjnextiprint k k程序执行的结果为 k 9 privatesubcommand1 click dimaasinteger basinteger casintegera val text1 text b val text2 text c a btext3 text str c endsub privatesubcommand1 click dimrasinteger hasintegerdimvassingler val text1 text h val text2 text v 3 14 r r htext3 text str v endsub privatesubcommand1 click dimxasinteger yasintegerx val text1 text ifx 10andx 20theny x 2 1elsey 3 x 3endiftext2 text str y endsub privatesubcommand1 click dimmasintegerm val inputbox 输入m的值 ifmmod3 2andmmod5 3thenprint 满足条件 elseprint 不满足条件 endifendsub privatesubcommand1 click dimxasinteger saslongdimnasintegern val inputbox 输入n的值 s 0forx 1tons s x x x x 3 x x x 2 x x 1nextxprint s sendsub privatesubcommand1 click dimnasintegerdimaasinteger basinteger casintegerforn 100to999a n 100b nmod100 10c nmod10ifa b c 5thenprintnendifnextnendsub privatesubcommand1 click dima 100 asintegerdimiasinteger sasintegerrandomize time fori 1to100a i int rnd 10 nextifori 1to100text1 text text1 text a i nextis 0fori 1to100s s a i nextitext2 text str s endsub privatesubcommand1 click dima 5 5 asinteger iasinteger jasinteger maxasintegerrandomize time fori 1to5forj 1to5a i j int rnd 10 nextjnextifori 1to5forj 1to5text1 text text1 text a i j nextjtext1 text text1 text vbcrlfnextimax a 1 1 fori 1to5forj 1to5ifmax a i j thenmax a i j endifnextjnextitext2 text str max endsub functionfact xasinteger aslongdimsaslongs 2 x x 3 x 1fact sendfunctionprivatesubcommand1 click dimxasintegerdimsasintegerx val text1 text s fact x text2 text str s endsub 10 编写sub过程 对包