VB二级培训经典题型4.ppt

VB二级培训经典题型4 在窗体上画一个命令按钮 其Name属性为Command1 然后编写如下代码 OptionBase1PrivateSubCommand1 Click Dima 4 4 Fori 1To4Forj 1To4a i j i 1 3 jNextjNextiFori 3To4Forj 3To4Printa j i NextjPrintNextiEndSub程序运行后 单击命令按钮 其输出结果为 A 69710B 710811C 811912D 9121013 D 2 用下面语句定义的数组的元素个数是 Optionbase1dimA 3to5 asintegerA 6B 7C 8D 9 D 3 用下面的语句所定义的数组的元素个数是 Dimarr 3To5 2to2 A 18B 15C 12D 24 B 4 用Dim 3 3to7 8 声明的是一个 维数组 A 1B 2C 3D 4 C 5 下列程序段的执行结果为 DimA 5 ForI 1To5A I I INextIPrintA I 1 A 5B 25C 0D 16 B 6 在窗体上画一个命令按钮 其名称为Command1 然后编写如下代码 OptionBase1PrivateSubCommand1 Click DimArrArr Array 43 68 25 65 78 12 79 43 94 72 pos 0neg 0Fork 1To10IfArr k 0Then Else EndIfNextkPrintpos negEndSub以上程序的功能是 计算并输出数组Arr中10个数的正数之和pos与负数之和neg 请填空 1 pos pos Arr k 2 neg neg Arr k 7 下面程序的功能是把文件file1 txt中重复的字符去掉后 即若有多个字符相同 则只保留1个 写入文件file2 txt 请填空 PrivateSubCommand1 Click DimincharAsString tempAsString outcharAsStringoutchar Open file1 txt ForInputAs 1Open file2 txt ForOutputAs n LOF inchar Input n 1 Fork 1Tontemp Mid inchar k 1 IfInStr outchar temp Thenoutchar outchar tempEndIfNextkPrint 2 Close 2Close 1EndSub 1 2 2 1 3 0 4 outchar 8 以下程序的功能是 将一维数组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 请填空 OptionBase1PrivateSubForm Click DimiAsInteger jAsIntegerDimA 1To100 AsIntegerDimB 1To10 1To10 AsIntegerFori 1To100A i Int Rnd 100 NextiFori 1To Forj 1To B i j PrintB i j NextjPrintNextiEndSub 1 102 103 A 10 i 1 j 9 设有以下函数过程 Functionfun mAsInteger AsIntegerDimkAsInteger sumAsIntegersum 0Fork mTo1Step 2sum sum kNextkfun sumEndFunction若在程序中用语句s fun 100 调用此函数 则s的值为 30 10 在窗体上画一个名称为Command1的命令按钮 然后编写如下程序 OptionBase1PrivateSubCommand1 Click Dima 10 AsIntegerFori 1To10a i iNextCallswap Fori 1To10Printa i NextEndSubSubswap b AsInteger n Fori 1Ton 2t b i b i b n b n t NextEndSub上述程序的功能是 通过调用过程swap 调换数组中数值的存放位置 即a 1 与a 10 的值互换 a 2 与a 9 的值互换 a 5 与a 6 的值互换 请填空 1 a 2 103 n n 1 11 设有如下程序PrivateSubsearch aAsVariant ByValKeyAsVariant index Dimi Fori LBound a ToUBound a Ifkey a i Thenindex iExitSubEndIfNextiindex 1EndSubPrivateSubForm Load ShowDimbAsVariantDimnAsIntegerb Array 1 3 5 7 9 11 13 15 Callsearch b 11 n PrintnEndSub程序运行后 输出结果是 5 12 设有如下程序PrivateSubForm Click DimaAsInteger bAsIntegera 20 b 50p1a bp2a bp3a bPrint a a b bEndSubSubp1 xAsInteger ByValyAsInteger x x 10y y 20EndSub Subp2 ByValxAsInteger yAsInteger x x 10y y 20EndSubSubp3 ByValxAsInteger ByValyAsInteger x x 10y y 20EndSub该程序运行后 单击窗体 则在窗体上显示的内容是 a 和b 1 302 70 13 单击窗体时 程序运行的结果是 PrivateSubForm Click multi20 3EndSubPublicSubmulti kAsInteger sAsInteger Ifk 50Thenk k sCallmulti k s EndIfk k k sPrintk EndSub 240960 14 在窗体上画一个文本框和一个标签 其名称分别为Text1和Label1 然后编写如下程序 Functionfun sAsInteger Fori 1TosSum Sum i Nexti fun SumEndFunctionPrivateSubForm Click Text1 Text Str fun 5 EndSubPrivateSubText1 Change Label1 Caption VBProgramming EndSub程序运行后 单击窗体则文本框中显示的内容是 而在标签中显示的内容是 1 152 VBProgramming 15 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框 然后编写如下程序 PrivateSubCommand1 Click Dimx y zAsIntegerx 5y 7z 0Text1 Text CallP1 x y z Text1 Text Str z EndSubSubP1 ByValaAsInteger ByValbAsInteger cAsInteger c a bEndSub程序运行后 如果单击命令按钮 则在文本框中显示的内容是 A 0B 12C Str z D 没有显示 1 12 16 在窗体上画一个名称为Command1的命令按钮 再画两个名称分别为Label1 Label2的标签 然后编写如下程序代码 PrivateXAsIntegerPrivateSubCommand1 Click X 5 Y 3Callproc X Y Label1 Caption XLabel2 Caption YEndSubPrivateSubproc ByValaASInteger ByValbAsInteger X a aY b bEndSub程序运行后 单击命令按钮 则两个标签中显示的内容分别是 A 5和3B 25和3C 25和6D 5和6 B 第一题 1 在考生文件夹下有一个工程文件sj80 vbp 窗体文件中已给出所有控件和部分程序 如图所示 要求 1 利用属性窗口设置适当的属性 使Text1 Text2中数据右对齐 2 请编写适当的程序完成以下功能 在Text1中输入40 度数 选择一个单选按钮 单击 计算 按钮 则根据所选择的单选按钮 计算出相应的正弦 余弦值 保留3位小数 第4位截去 取3 14159 并显示在Text2中 注意 考生不得修改窗体文件中已经存在的程序 在结束程序运行之前 必须进行一种计算 在Text1中输入的必须是40 必须用窗体右上角的关闭按钮结束程序 否则无成绩 最后 程序按原文件名存盘 上机操作 2 在考生文件夹下有一个工程文件sj81 vbp 窗体上已经给出所有控件 程序运行时 单击 开始 按钮 则汽车图标向右运动 单击 停止 按钮则汽车停止运动 移动滚动条上的滚动框 可以改变汽车的运动速度 滚动框向右移动 速度减慢 如图所示 要求 去掉程序中的注释符 把程序中的 改为正确的内容 提示 窗体上有一个计时器 计时器的事件过程每执行一次 汽车向右移动10 程序通过改变计时器控件的Interval属性来改变汽车的运动速度 注意 不得修改控件的属性 最后 按原文件名存盘 第二题在名称为Form1的窗体上画三个命令按钮 名称分别为Command1 Command2和Command3 标题分别为 显示 统计 和 保存 然后画一个文本框 名称为Text1 MultiLine属性设置为True ScrollBars属性设置为2 程序运行后 如果单击 显示 命令按钮 则读入in004 txt文件中的文本 并在文本框中显示出来 如果单击 统计 命令按钮 则统计文本框中ASCII码大于等于70 小于等于100的字符的个数 并把结果在文本框中显示出来 如图所示 注意 图中所显示的统计次数是随便写的 不是实际的统计结果 如果单击 保存 命令按钮 则把统计结果存入考生文件夹下的out004 txt文件中 注意 结束程序运行前必须用 保存 命令按钮把统计结果存入考生文件夹下的out004 txt文件中 否则没有成绩 存盘时必须存放在考生文件夹下 工程文件名为sj85 vbp 窗体文件名为sj85 frm 第三题在名称为Form1的窗体上画三个标签 其名称分别为Label1 Label2和Label3 标题分别为 姓名 电话号码 和 邮政编码 再画三个文本框 其名称分别为Text1 Text2和Text3 初始内容均为空白 再画两个命令按钮 其名称分别为Command1和Command2 标题分别为 显示第三记录 和 保存 如图所示 编写适当的事件过程 程序运行后 如果单击 显示第三记录 命令按钮 则读取考生文件夹下in003 txt文件中的第三个记录 并在三个文本框中显示出来 该文件是一个用随机存取方式建立的文件 共有5个记录 要求显示其中的第三个记录 在每个文本框中显示一个字段 如果单击 保存 命令按钮 则把该记录 三个字段 保存到考生文件夹下的顺序文件out003 txt中 随机文件in003 txt中的每个记录包括3个字段 分别为姓名 电话号码和邮政编码 其名称和长度分别为 Name字符串8Tel字符串10PostLong其类型定义为 PrivateTypePalInfoNameAsString 8TelAsString 10PostAsLongEndType变量定义为 DimPalAsPalInfo 要求 1 打开随机文件in003 txt 读取其中的第三个记录 把该记录中的三个字段在三个文本框中显示出来 三个文本框中所显示的字段分别为姓名 电话号码和邮政编码 2 文件out003 txt以顺序存取方式建立和保存 在第二个命令按钮事件过程中实现 其代码如下 PrivateSubCommand2 Click Open out5 txt ForOutputAs 1Print 1 Text1 Text Text2 Text Text3 TextClose1EndSub3 存盘时必须存放在考生文件夹下 工程文件名为sj86 vbp 窗体文件名为sj86 frm 第四题 1 在名称为Form1的窗体上画一个名称为Picture1的图片框 PictureBox 高 宽均为1000 在图片框内再画一个有边框的名称为Image1的图像框 Image 并通过属性窗口把考生文件夹下的图标文件Point11 香蕉图标 装入图像框Image1中 如图所示 注意 存盘时必须存放在考生文件夹下 工程文件名为sj102 vbp 窗体文件名为sj102 frm 2 在名称为Form1的窗体上画一个名称为Shape1的形状控件 画两个名称分别为Command1 Command2 标题分别为 圆形 红色边框 的命令按钮 将窗体的标题设置为 图形控件 如图1所示 请编写适当的事件过程使得在运行时 单击 圆形 按钮将形状控件设为圆形 单击 红色边框 按钮 将形状控件的边框颜色设为红色 HFF 如图2所示 注意 要求程序中不得使用变量 每个事件过程中只能写一条语句 存盘时必须存放在考生文件夹下 工程文件名为s