vb历年理论真题.ppt

VB历年理论考试真题 计算机教研室崔园 1 PrivateSubCommand1Click DimnAsIntegern 1sum 0Fori 0to2Sum sum fun n NextiPrintsumEndSubFunctionfun nAsInteger AsIntegerStaticcAsIntegern n 1c c 1fun n cEndFunction 1 在程序运行后 首次单击命令按钮的显示结果是 A 30B 9C 12D 20 2 第二次单击命令按钮的显示结果是 A 12B 30C 47D 65 3 如果将fun函数中的 StaticcAsInteger 改为 DimcAsInteger 则首次单击命令按钮的显示结果是 A 9B 6C 4D 3 2 程序代码如下 PrivateSubCommand1Click DimxAsInteger sAsInteger nAsIntegerRandomizeTimerx Int Rnd 9 11Fori 2toxn Int Sqr i Forj 2tonIfiModj 0ThenExitForNextjIfj nthens s iNextiPrints xEndSub 1 该程序中整数X的取值范围是 A 11 19之间B 11 20之间C 9 19之间D 9 20之间 2 变量S中存放的数是 A 2 X之间的所有数值之和B 2 X之间的所有素数之和C 2 X之间的所有偶数之和D 2 X之间的所有奇数之和 3 假设X的值为12 则程序的运行结果中S的值是 A 77B 28C 44D 25 3 程序代码如下 PrivateSubCommand1 Click Dima 3 3 AsIntegerFori 0To3Forj 0To3a i j Int 45 Rnd 2 11NextNextFori 0To3temp a i 0 a i 0 a i 3 a i 3 tempNextFori 0To3Ifi 3 i 0ThenPrintTab i 3 1 a i i Spc 2 2 i 3 1 a i 3 i ElsePrintTab 3 i 3 1 a i 3 i Spc 2 i 4 3 1 a i i EndIfNextEndSub 1 在程序中 存入数组的随机数的范围是 A 11到98的奇数 B 11到99的奇数 C 11到100的奇数 D 11到101的奇数 2 在程序中 以下代码段的功能是 Fori 0To3temp a i 0 a i 0 a i 3 a i 3 tempNext将所有数据的行和列互换将两条对角线上的数据互换将最上边的一行数据和最下边一行的数据互换将最左边的一列数据和最右边一列的数据互换 3 最终程序显示输出的结果是 A 数组中所有的数据 B 两条对角线上的数据 C 最上边和最下边的1行数据 D 最左边和最右边的1列数据 4 程序代码如下 OptionBase1PrivateSubcommand1 click Dimsa 3 3 AsString 1 iAsInteger jAsIntegerk 1Fori 1To3Forj 1To3sa i j Mid text1 k l picture1 Printsa i j k k 1Nextjpicture1 PrintNextiFori 1To3Forj 1To3k Asc sa i j Asc A i j Mod26sa i j Chr k Asc A picture2 Printsa i j Nextjpicture2 PrintNextiEndSub 1 在程序运行时 如果输入 PROGRAMER 并单击命令按钮 则在picture1对象中显示的内容是 A PRO B PGMGRARREMEROAR C RUS D RJQJVFUVJQJXSFX 2 在程序运行时 如果输入 PROGRAMER 并单击命令按钮 则在picture2对象中显示的内容是 A PRO B PGMGRARREMEROAR C RUS D RJQJVFUVJQJXSFX 3 如果在全部代码前添加 optionExplicit 则程序运行的结果 无变化 程序无法启动 出现编译错误 以上说法都不对 程序填空题 1 如果一个三位正整数的百位 十位及个位数的立方和等于这个数本身 则称这个数为水仙花数 下面程序的功能是 找出100 999之间的所有水仙花数 请填空完善程序 Privatesubcommand1 click DimIasinteger aasinteger basinteger casintegerFor 1 A int i 100 B 2 C i 100 a 10 bIf 3 thenPrintiEndifNextEndsub i 100To999 b Int i 100 a 10 a 3 b 3 c 3 i 2 以下程序的功能是查找100 2000之间所有素数并按每5个显示 请完善该程序 PivateSubCommand1 click DimnasItegeger kasIntegern 0Fori 1 k sqr i Forj 2tokIfimodj 0thenExitForNextjIf 2 thenPrinti n n 1If 3 thenPrintEndifNextEndsub 100to2000 J k Nmod5 0 3 以下程序的功能是将一个正整数转化为其他逆序数 例如 将791变为197 请完善该程序OptionExplicitPriviteSubCommand1 Click DimnAsLongn Inputbox 请输入正整数 Printn Fun1 n