VB程序设计操作题26套[下学期]

VB程序设计操作题26套
第一套：属性设置
题目:
打开窗体Form2.frm，在窗体中有一个文本框对象：
1、对文本框设置属性 :距窗体Form2顶部距离：1200 , 左边距离： 1800 , 前景色 &H00FF0000&, 字体属性：字体为黑体、二号
2、在文本框左边添加一标签控件，并按下列要求设置：caption=TEL，字体:黑体、二号
3、以原文件名保存
操作参考:
打开窗体Form2.frm
1、选中文本框-设置属性 :属性窗口设置:顶部距离：TOP =1200 左边距离：LEFT=1800, 前景色 Forecolor 照题输入, 字体属性：Font
2、添加标签：点击工具中A-拖动得到一个标签-再设置属性caption中输入 TEL , Font中选黑体、二号
3、以原文件名保存
第二套：属性设置
题目:
设置当前窗体文件FROM3.FRM
1、把窗体中的标签“江苏省中小学”的字体、字号、前景色、背景色参照标签“信息技术等级考试”风格进行设置
2、把窗体中的命令按钮的文字设置为退出，将开始按钮位置设置成与“退出”按钮水平对齐
3、以原文件名保存
操作参考:
1、选中“信息技术等级考试”标签-依要求查看各属性值包括:字体 字号:Font, 前景色 Forecolor, 背景色 Backcolor
2、再选中“江苏省中小学”标签，依上面查看值设置上面的相同属性
3、选中命令按钮-设置 Caption 属性：退出
把两个命令按钮都选中（拖动框起来）-格式-对齐方式-上边对齐（下边对齐也可）
4、以原文件名保存
第三套：属性设置题
题目
1、把窗体中显示“姓名”“准考证号”的文本框的字体设置为”宋体、粗钭体、三号“前景色属性值为&H00FF0000&
2、把窗体中“确定”标签删除，并在相应位置添加一个按钮，显示文字为“确定“
3、以原文件名保存
操作参考：
1、分别选中姓名准考证号-设置FONT属性/设置Forecolor –修改属性值为&H00FF0000&
2、选中“确定”-按DELETE键就删除 / 点击工具中命令-拖动得到一个按钮-设置Caption为“命令”
3、以原文件名保存
第四套：属性设置、简单程序
题目：
打开窗体文件Form2.frm，修改程序代码，当鼠标单击 “隐藏”、“显示”时使标签上的文字“江苏省信息会考”也相应的隐藏、显示。
操作参考：
1、双击窗体进入代码窗体（编辑-已有代码）
2、对两段子程序分别添加一行代码，不要打错字码（用光标移动键选择，空格键得到输入）
label1.Visibled=True （显示） 和 label2.Visibled=Flase (隐藏)
3、 试运行看程序是否准确，再保存程序
第五套：属性设置、简单程序
题目
打开窗体文件from8.frm
1、在窗体相应位置添加一个按钮，显示文字为“红背景“编写代码，使程序运行时单击“红背景”命令按钮 窗体的背景颜色由原来的默认色变为红色（红色： &HFF）
3、运行程序看效果是否准确，再保存程序
操作参考
1、在空的窗体上建立一个命令按钮-Caption属性设置为“红背景”
2、双击“红背景”命令按钮 –在代码中输入一行代码如下
Form8.Backcolor=”&HFF”
3、运行程序看效果是否准确，再保存程序
第六套 程序代码修改
题目：说明：
在已打开的窗体文件form1.frm中完善程序,将代码中"变量1"、"变量2"、"变量3"处分别换成正确的变量名，使当点击"输出"按钮时，屏幕显示程序运行结果是
20 30
程序代码如下：
Private Sub Command_Click()
x=30 ‘变量初值
y=20
If x>y then ‘分支结构，条件成立则交换两个变量的值
t= 变量1 “变量1=x，变量2=y，变量3=t
x= 变量2
y= 变量3
end if
print x,y 显示输出结果值
End Sub
第七套 程序代码修改
题目：说明：
在已打开的窗体文件form14.frm中,完善程序,将代码段中"常量1"、"常量2"、"表达式"分别换成正确的常量值和表达式，其他不变，使得当点击"输出"按钮时，屏幕上显示运行结果；100以内（含100）偶数的和。
程序代码如下：
Private Sub Command14_Click()
s= 常量1 ‘ 这是求和变量初值（没有和值时）为0
for i=0 to 100 step 常量2 ‘循环步长为2
s= 表达式 ‘这是一个“累加器”的式子 （每执行一次变量值加当前I的值
next i
print s ‘输出其和值
End Sub
第八套 程序代码修改
题目：说明：
下面的程序是从键盘上任意输入一个数， 判断这个数是正数、负数、还是零，并输出判断结果。程序中有两处错误,请更正
'****************不要增加语句**************
Dim a As Single
a=Val(Text1.Text) '从Text1中读入考试成绩，保存在变量a中。不要改动本行。
if a>0 then py="正数" 三个分支语句，使得分情况得到PY变量的值
if a=0 then py="零"
if a<=0 then py= "负数" ‘这个负数定义不正确啊
Label3.Caption=a 这是用标签方式显示结果（意义与PRINT语句相近）。结果应是PY
'**********注意调试完成后一定要保存*********
End Sub
第九套 程序代码修改
题目：说明：
下面的程序是求7！（7！=1×2×3…×6×7）的值，并在默认窗口输出这个值。程序中有三处错误，请打开VBTEST子目录下的窗体文件Form6.frm，调试更正。
Private Sub Form_Click()
Dim a As integer 定义变量
Dim i As integer
a=0 变量赋初值（不可能为0 ）
for i=1 to n 循环7次确定的 （step 1步长为1可省去）
a=a*I 这是一个叫“累乘式”的运算，每次乘I
Next i
Print i 输入出A的结果
End Sub
第十套 程序代码修改
题目：说明：
下面的程序是当输入的考试成绩不低于60分时输出“及格”，否则输出“不及格”。程序中有两处错误，请打开VBTEST子目录下的窗体文件Form8.frm，调试更正。
Private Sub Command1_Click()
Dim cj As Integer 定义变量
Dim py As String
cj=Val(Text1.Text) 变量赋初值（从文本框TEXT1中取得其文本框中的输入数值）
If cj>60 then 双分支结构选择语句 ，若分数为60分呢，这里应为>=
py="及格"
Else
py="不及格"
End If
Label3.Caption=cj 这是用标签方式显示结果,为PY
End sub
第十一套 程序代码修改
打开VBTEST字目录下的窗体文件Form3.frm,修改程序，使能输出：
1+2+3+4+5+6……+99+100的值
Private Sub Command1_Click()
s=0 变量设置初值（当然应为0）
For i=1 To 100 Step 1 循环100次
s=s+I 求和“累加式”
Next i
Print s 输出显示和的结果
End sub
第十二套 程序代码修改
打开考核文件夹中的窗体文件Form1.frm，修改其中的程序，使能输出如下图形：
*
**
***
****
*****
******
Private Sub Command1_Click() 这是一个双循环结构
For i=1 To 6 外循环次定输出的行数
for j=1 to I 内循环是每行显示的个数
print "*"； 每次输出一个“*”号 ，PRINT行末要有“；”号表示输出后不换行
next j PRINT行末没有符号，表示输出后换行
Print PRINT （空），表示仅起换行作用
Next i
End Sub
第十三套 程序代码修改
打开VBTEST 子目录下的窗体文件Form9.frm ，完善其中的程序,将程序中的“常量”“变量”“表达式”换成正确的常量值变量值和表达式使得当鼠标单击执行时，显示出满足条件2+4+6+8+……+X〈80中的最大的X值。
Private Sub Command4_Click()
s=0
x=0
Do 这是VB中的直到型循环，至少执行一次循环体，直到条件为真时结束循环
x=x+2 固定值累加式
s=s+x 变量方式累加式
loop Until s>=80 当S超过80时结束
Print x 输出时一定大于80
End Sub
第十四套 程序代码修改
在已打开的窗体文件Form10.frm在窗体的适当位置建立一个命令按钮，然后编写代码，，使点击“命令”按钮时，窗体上的标签文字变为“江苏省信息技术等级考试”。
第十五套 程序代码修改
在已打开的窗体文件Form10.frm中完善程序，将代码中的“常量”，“关系运算符”，“语句”，“变量”，处分别换成正确的常量值，关系运算符，语句，变量名，使点击“输出”按钮时，屏幕显示程序运行结果为：20-10=10
Private Sub Command1_Click()
a=10
b=20 显然这里应初值为20
if a>b then 当条件式成立时
print a;"_";"b;"=";a-b 显示输出其中包括有四个输出项
else
print b;"-";a;"=";10
End if
End Sub
以上为2004会考指导书上15套VB程序题
++++++++++++++++++++++++++++++++++++++++++++++++++++++
以下为2002-2003会考指导书上VB程序题
16设置当前的test17.frm文件，对控件做如下修改：
标签控件设置为距顶端2500个单位，距左端为1500个单位
文本框控件输入文字颜色设为调色板的第三行、第五列的绿色
将按钮文字字号设为“小三号”
保存当前文件，文件名和路径默认。
17．设置当前窗体文件form1.frm
按要求设置窗体form1的下列属性：
（1） 背景色：纯黑（2）宽：6000（3）高：4000（4）caption：TEST
（2） 在窗体的适当位置添加一命令按钮控件，并要求该对象在运行时无效
（3） 保存当前文件，文件名和路径默认
18．设置当前的test14.frm文件，对控件做如下修改：
（1） 将标签的字体设为“隶书“
（2） 将按钮文字改为“命令“
（3） 文本框控件中默认的输入文字设为没有任何文字。
（4） 保存当前文件，文件名和路径默认
19．在已打开的窗体文Foem9.frm中，完善程序，将代码段中“常量”，“关系运算符”，“语句”分别换成正确的常量值，关系运算符和语句，是得当点击“计算”按钮时，屏幕显示程序运行结果是：20≤X<50
20．设置当前的Test18.frm文件，对控件做如下修改：
1． 将标签控件设置文字右对齐
2． 文本框控件输入文字字体为“隶书”
3． 将按钮文字改为“操作”
4． 保存
21．在已打开的窗体文件Form6.frm中用工具增加一个文本框Test3，并按注释要求编写代码，使当鼠标单击命令按钮“计算”时，计算出X和Y 的和，并且把和显示在新增的文本框TEXT3中
X= val(text1.text)
Y=val(text2.text)
Text3.text=str(x+y)
22、程序设计操作题
打开VBTEST子目录下的窗体文件FormlO．frm，修改下面的程序，使运行后，输出如下
结果：
张大富 男 39岁
23、程序设计操作题
下面的程序是求100以内奇数和s的值（S=1+3+5+7…+99）。程序中有三处错误。请打开
VBTEST子目录下的窗体文件Form7.frm，调试更正。
24、程序设计操作题
打开VBTEST字目录下的窗体文件Form3.frm,修改程序，使能输出：
1-2+3-4+5-6……+99-100的值
25、程序操作题
打开VBTEST 子目录下的窗体文件Form9.frm ，完善其中的程序，使能输出如下图形。
******
******
******
******
******
******
26、程序设计操作题
打开VBTEST字目录下的窗体文件Form4.frm。已知一元二次方程的二次项系数、一次项系数、常数
项分别为a、b、c，其中a不等于0，修改程序，求方程的根。
要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。