vb程序设计.docx
《vb程序设计.docx》由会员分享，可在线阅读，更多相关《vb程序设计.docx（69页珍藏版）》请在冰豆网上搜索。
vb程序设计
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）已知sum=-1!
+1/2!
-1/3!
+1/4!
...+1/10!
'请将sum结果值输出到窗体上。
'使用dowhile...loop语句完成程序
'-------------------------------------------------
PrivateSubForm_Click（）
DimpAsLong'p变量存放阶乘的值
DimsumAsSingle
'*****************Begin**************
'***************End*************************
CallTestFunc（sum）
EndSub
PrivateSubTestFunc（iAsSingle）
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\out.txt"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
【参考代码】
DimiAsInteger
i=1:
p=1
DoWhilei<=10
p=p*i
sum=sum+1/p*（-1）^i
i=i+1
Loop
Printsum
===============
【考生代码】
【窗体属性评分】错误
【窗体】sjt1.frm
标准答案：
Name=Form1
学生答案：
Name=Form2
【窗体属性评分】正确
【窗体】sjt1.frm
标准答案：
Caption=菜单练习
学生答案：
Caption=菜单练习
【控件属性评分】正确
【控件】VB.Menu_input
标准答案：
Name=input
学生答案：
Name=input
【控件属性评分】正确
【控件】VB.Menu_input
标准答案：
Caption=输入
学生答案：
Caption=输入
【控件属性评分】正确
【控件】VB.Menu_output
标准答案：
Name=output
学生答案：
Name=output
【控件属性评分】正确
【控件】VB.Menu_output
标准答案：
Caption=输出
学生答案：
Caption=输出
【控件属性评分】正确
【控件】VB.Menu_query
标准答案：
Name=query
学生答案：
Name=query
【控件属性评分】正确
【控件】VB.Menu_query
标准答案：
Caption=查询
学生答案：
Caption=查询
【控件属性评分】正确
【控件】VB.Menu_count
标准答案：
Name=count
学生答案：
Name=count
【控件属性评分】正确
【控件】VB.Menu_bymonth
标准答案：
Name=bymonth
学生答案：
Name=bymonth
【控件属性评分】正确
【控件】VB.Menu_bymonth
标准答案：
Caption=按月
学生答案：
Caption=按月
【控件属性评分】正确
【控件】VB.Menu_byweek
标准答案：
Name=byweek
学生答案：
Name=byweek
【控件属性评分】正确
【控件】VB.Menu_byweek
标准答案：
Caption=按周
学生答案：
Caption=按周
【控件属性评分】正确
【控件】VB.TextBox_Text1
标准答案：
Name=Text1
学生答案：
Name=Text1
【控件属性评分】正确
【控件】VB.OptionButton_Option1
标准答案：
Name=Option1
学生答案：
Name=Option1
【控件属性评分】正确
【控件】VB.OptionButton_Option1
标准答案：
Caption=参加
学生答案：
Caption=参加
【控件属性评分】正确
【控件】VB.OptionButton_Option2
标准答案：
Name=Option2
学生答案：
Name=Option2
【控件属性评分】正确
【控件】VB.OptionButton_Option2
标准答案：
Caption=不参加
学生答案：
Caption=不参加
【事件评分】错误
【事件】PrivateSubOption1_Click（）
标准答案：
Text1.Text="参加"+Text1.Text
学生答案：
Text1.Text="参加"&Text1.Text
【事件评分】错误
【事件】PrivateSubOption2_Click（）
标准答案：
Text1.Text=Text1.Text+"不参加"
学生答案：
Text1.Text=Text1.Text&"不参加"
【控件属性评分】错误
【控件】VB.Menu_count
标准答案：
Caption=统计
学生答案：
Caption=统计
【控件属性评分】正确
【控件】VB.Menu_operation
标准答案：
Name=operation
学生答案：
Name=operation
【控件属性评分】正确
【控件】VB.Menu_operation
标准答案：
Caption=操作
学生答案：
Caption=操作
【事件评分】错误
【事件】PrivateSubTimer1_Timer（）
标准答案：
<100
FontSize
学生答案：
IfLabel1.FontSizeThen
Label1.FontSize=Label1.FontSize*1.1
Else
Label1.FontSize=8
EndIf
【事件评分】正确
【事件】PrivateSubCommand1_Click（）
标准答案：
pos+Arr（k）
neg+Arr（k）
学生答案：
DimArr
Arr=Array（43,68,-25,65,-78,12,-79,43,-94,72）
pos=0
neg=0
Fork=1To10
IfArr（k）>0Then
pos=pos+Arr（k）
Else
neg=neg+Arr（k）
EndIf
Nextk
Text1.Text="正数之和为：
"&Str（pos）
Text2.Text="负数之和为：
"&Str（neg）
【事件评分】正确
【事件】PrivateSubCommand1_Click（）
标准答案：
Command1.Caption="继续"
Timer1.Enabled=True
Command1.Enabled=False
Command2.Enabled=True
学生答案：
Command1.Caption="继续"
Timer1.Enabled=True
Command1.Enabled=False
Command2.Enabled=True
【事件评分】正确
【事件】PrivateSubCommand2_Click（）
标准答案：
Timer1.Enabled=False
Command2.Enabled=False
Command1.Enabled=Tru
学生答案：
Timer1.Enabled=False
Command2.Enabled=False
Command1.Enabled=True
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'
'题目：
（事件）单击窗体。
'（响应）编写代码功能如（图1）。
'将结果存入变量S中
'-------------------------------------------------
'注意：
请在指定的事件内编写代码。
'-------------------------------------------------
PrivateSubForm_Click（）
DimsAsInteger
'************Begin************
'************End****************
TestFunc（s）
EndSub
PrivateSubTestFunc（iAsInteger）
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\11.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
【参考代码】
DimiAsInteger
Fori=1To10
s=s+i*i
Next
Print（CStr（s））
===============
【考生代码】
【控件属性评分】错误
【控件】VB.HScrollBar_H1
标准答案：
Name=H1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.HScrollBar_H1
标准答案：
LargeChange=10
学生答案：
LargeChange=
【控件属性评分】错误
【控件】VB.HScrollBar_H1
标准答案：
Max=100
学生答案：
Max=
【控件属性评分】错误
【控件】VB.HScrollBar_H1
标准答案：
Min=1
学生答案：
Min=
【控件属性评分】错误
【控件】VB.Label_L1
标准答案：
Name=L1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Label_L1
标准答案：
Caption=1
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_L2
标准答案：
Name=L2
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Label_L2
标准答案：
Caption=100
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Menu_m1
标准答案：
Name=m1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Menu_m1
标准答案：
Caption=操作
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Menu_copy
标准答案：
Name=copy
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Menu_copy
标准答案：
Caption=复制
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Menu_clear
标准答案：
Name=clear
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Menu_clear
标准答案：
Caption=清除
学生答案：
Caption=
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
AddItemText1.Text
学生答案：
'Combo1.?
Text1.Text=""
【事件评分】错误
【事件】PrivateSubText1_KeyPress（KeyAsciiAsInteger）
标准答案：
48
0
学生答案：
'IfKeyAscii>57OrKeyAscii
Then
MsgBox"请输入数字！
"
'KeyAscii=?
EndIf
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
m
f（i）
t
学生答案：
DimmAsInteger
DimnAsInteger
DimsAsLong
DimiAsInteger
m=Val（Text1.Text）
n=Val（Text2.Text）
s=0
'Fori=?
Ton
't=?
's=s+?
Next
lblResult.Caption=s
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）求10!
的值，并将结果输出到窗体上。
'将结果存入变量SUM中
'-------------------------------------------------
PrivateSubForm_Click（）
DimsumAsLong
'*********Begin*********
'************End************
TestFunc（sum）
EndSub
PrivateSubTestFunc（iAsLong）
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\29.out"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
【参考代码】
DimiAsInteger
sum=1
Fori=1To10
sum=sum*i
Next
Printsum
===============
【考生代码】
【控件属性评分】错误
【控件】VB.Label_L1
标准答案：
Name=L1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Label_L1
标准答案：
Caption=请确认
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.CommandButton_C2
标准答案：
Name=C2
学生答案：
Name=
【控件属性评分】错误
【控件】VB.CommandButton_C2
标准答案：
Caption=否
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.CommandButton_C2
标准答案：
Height=300
学生答案：
Height=
【控件属性评分】错误
【控件】VB.CommandButton_C2
标准答案：
Width=800
学生答案：
Width=
【控件属性评分】错误
【控件】VB.CommandButton_C1
标准答案：
Height=300
学生答案：
Height=
【控件属性评分】错误
【控件】VB.CommandButton_C1
标准答案：
Width=800
学生答案：
Width=
【窗体属性评分】错误
【窗体】sjt1.frm
标准答案：
MaxButton=0'False
学生答案：
MaxButton=
【窗体属性评分】错误
【窗体】sjt1.frm
标准答案：
MinButton=0'False
学生答案：
MinButton=
【控件属性评分】错误
【控件】VB.TextBox_Text1
标准答案：
Width=1000
学生答案：
Width=
【控件属性评分】错误
【控件】VB.HScrollBar_HS1
标准答案：
Name=HS1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.HScrollBar_HS1
标准答案：
Max=2000
学生答案：
Max=
【控件属性评分】错误
【控件】VB.HScrollBar_HS1
标准答案：
Min=1000
学生答案：
Min=
【事件评分】错误
【事件】PrivateSubHS1_Change（）
标准答案：
Text1.Width=HS1.Value
学生答案：
【控件属性评分】错误
【控件】VB.CommandButton_C1
标准答案：
Name=C1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.CommandButton_C1
标准答案：
Caption=是
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.CommandButton_Command1
标准答案：
Caption=添加项目
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.CommandButton_Command2
标准答案：
Name=Command2
学生答案：
Name=
【控件属性评分】错误
【控件】VB.CommandButton_Command2
标准答案：
Caption=删除项目
学生答案：
Caption=
【事件评分】错误
【事件】PrivateSubCommand2_Click（）
标准答案：
Form1.List1.ListCount-1
学生答案：
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
Form1.Text1.Text
学生答案：
【控件属性评分】错误
【控件】VB.TextBox_Text1
标准答案：
Name=Text1
学生答案：
Name=
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
Text1.Text
Text2.Text
Text3.Text
Text4.Text
i
arr2（）
学生答案：
Dimarr1
Dimarr2（4）AsInteger
'arr1=Array（Val（?
）,Val（?
）,Val（?
）,Val（?
））
Fori=1To4
'arr2（i）=CInt（?
）
Nexti
'M=FindMax（?
）
Print"最大值是:
";M
'-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：
（事件）单击窗体。
'（响应）编写代码功能如下：
'
'将结果存入变量Sum中。
使用while...wend语句完成程序
'
'-------------------------------------------------
PrivateSubForm_Click（）
DimsumAsDouble
'*****************Begin**************
'***************End*************************
CallTestFunc（sum）
EndSub
PrivateSubTestFunc（iAsDouble）
DimOUTAsInteger
OUT=FreeFile
OpenApp.Path&"\out.txt"ForOutputAs#OUT
Print#OUT,i
Close#OUT
EndSub
【参考代码】
DimiAsInteger
i=1
whilei<=10
sum=sum+i^i
i=i+1
wend
Printsum
===============
【考生代码】
【控件属性评分】错误
【控件】VB.Label_Label1
标准答案：
Name=Label1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Label_Label1
标准答案：
BorderStyle=1'FixedSingle
学生答案：
BorderStyle=
【控件属性评分】错误
【控件】VB.CommandButton_Command1
标准答案：
Name=Command1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.CommandButton_Command1
标准答案：
Caption=显示
学生答案：
Caption=
【事件评分】错误
【事件】PrivateSubHScroll1_Change（）
标准答案：
Text1.Width=HScroll1.Value*1.2
Text1.Height=Me.HScroll1.Value
学生答案：
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
Label1.Visible=True
Label1.Caption=Text1.Text
Text1.Visible=False
学生答案：
【控件属性评分】错误
【控件】VB.Label_Label1
标准答案：
Name=Label1
学生答案：
Name=
【控件属性评分】错误
【控件】VB.Label_Label1
标准答案：
Caption=计算机考试
学生答案：
Caption=
【控件属性评分】错误
【控件】VB.Label_Label1
标准答案：
Left=500
学生答案：
Left=
【事件评分】错误
【事件】PrivateSubCommand1_Click（）
标准答案：
True
学生答案：
IfCommand1.Caption="移动"The
升级会员 