为Form1,标题为“标签”的窗体上,添加一个名称为Label1,内容为“计算机等级考试”

1、基础题基础题(1)(1)【解题思路】controlbox属性：确定程序运行时是否在窗体上显示控件菜单栏，maxbutton属性：确定标题栏是否显示最大化按钮，minbutton属性：确定标题栏是否显示最小化按钮。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.153和表3.154。步骤2：调试并运行程序，关闭程序后按题目要求存盘。基础题基础题(2)(2)【解题思路】根据题意，在单击命令按钮事件过程中，通过设置fontbold和fontitalic属性，使文本框的内容显示为粗体格式或斜体格式。【操作步骤】步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表

2、3.155和表3.156。表3.155控件命令按钮1命令按钮2namecaptionnamecaption属性command2斜体设置值command1粗体表3.156控件文本框nametextalignmentfontsize属性2设置值text1程序设计三号字步骤2：编写程序代码。参考答案private sub command1_click()text1.fontbold = trueend subprivate sub command2_click()text1.fontitalic = trueend sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题简单题(1)(1)【解

3、题思路】根据题意，在计时器的timer事件中控制文本框中数字的显示。并在select case语句中，依据所选单选按钮索引号的不同，为计时器设置不同的interval属性值。 在开始和停止命令按钮的单击事件过程中分别启动和停止计时器。为使计时器在初始状态下不计时，还需在设计时将其enabled属性值设置为false。【操作步骤】步骤1：打开本题工程文件，计时器的enabled属性设置为false。步骤2：分析并编写程序代码。程序提供代码private sub op1_click(index as integer)select case ?case 0timer1.interval = 1000

4、case 1timer1.interval = 3000end selectend subprivate sub timer1_timer()text1.text= ？.text + 1end sub程序结束参考答案第1个？处填入：index第2个？处填入：text1private sub c1_click()timer1.enabled = trueend subprivate sub c2_click()timer1.enabled= falseend sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。简单题简单题(2)(2)【解题思路】 在command1 click事件过程中将把

5、考生文件夹下in4.dat文件中已按升序方式排列的60个数读入数组a，每个数值之间通过space函数空两格个，通过str函数和连接符显示在text1中。在command2 click事件过程中，通过inputbox函数弹出输入框接收用户输入的任意一个数。在command3 click事件过程中， 通过if语句首先判断输入的数n是否存在于a数组中，若不存在，则弹出msgbox对话框该数不存在于数组中，不能执行删除操作！，若存在，则将该数从数组a中删除，将删除数值后面的数组值前移，并把新数组的内容重新显示在text1中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码

6、dim a(100) as integer, num as integer, n as integerprivate sub command1_click()dim k as integern = 60open app.path & in4.dat for input as #1for k = 1 to ninput #1, a(k)text1 = text1 + str(a(k) + space(2)next kclose #1end subprivate sub command2_click()num = inputbox(请输入一个数)end subprivate sub com

7、mand3_click()for i = 1 to n读数据事件过程中已给出n的初值if num =?thenexit fornext iif?thenmsgbox 该数不存在于数组中，不能执行删除操作！elsen = n - 1for j = i to?a(j)= ?nextend iftext1 = 以下程序段将执行删除操作后的数组a重新显示在text1中for k = 1 to?text1 = text1 + str(a(k) + space(2)next kend sub程序结束参考答案第1个？处填入：a(i)第2个？处填入：n i第3个？处填入：n第4个？处填入：a(j + 1)第5

8、个？处填入：n步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题综合题【解题思路】 根据题意， 单击读数据按钮， 将考生文件夹下in4.dat文件的内容显示在text1文本框中。在command2 click事件过程中，运用sellength 属性判断文本框中是否有字符被选中，如果sellength属性为0，那么弹出msgbox对话框请先选择文本！。 mid函数用于提取选中文本中的每一个字符， 并将其在26个字母中的顺序赋值给n, a(n)数组通过累加得出每个字母出现的次数，通过for循环语句和if选择判断语句判断，如果a(i) max n，则该出现次数最多的字母以大写形式显示在text

9、2文本框内。ucase函数用于将小写字母转化为大写字母使统计不区分大小写字母。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码option base 1dim x as string, max n as integerprivate sub command1_click()open app.path & in5.dat for input as #1s = input(lof(1), #1)close #1text1.text= send subprivate sub command2_click()dim a(26) as integersl = ?st = text1.seltexttext2 = if sl = 0 thenmsgbox 请先选择文本elsefor i = 1 to slc = mid(st, i, 1)if c thenn = asc(ucase(c) - asc(a) + 1a(n) = ?end ifnext imax n = a(1): n = 1for j =?to 26if?thenmax n = a(j)end ifnext jfor i = 1 to 26if?thentext2.text= text2.text + + chr(asc