12年九套VB上机题.docx
- 文档编号:12865213
- 上传时间:2023-06-08
- 格式:DOCX
- 页数:37
- 大小:1.11MB
12年九套VB上机题.docx
《12年九套VB上机题.docx》由会员分享,可在线阅读,更多相关《12年九套VB上机题.docx(37页珍藏版)》请在冰点文库上搜索。
12年九套VB上机题
第1套VB上机题
参考代码如下:
PrivateSubCommand1_Click()
Text1.Text=""
IfCheck1.Value=1Then
Text1.Text=Check1.Caption
EndIf
IfCheck2.Value=1Then
Text1.Text=Text1.Text+Check2.Caption
EndIf
EndSub
本题可以用双重循环来实现该数列的求和计算。
外循环用于求和,内循环计算某项的分母。
参考代码如下:
DimsAsSingle,nAsInteger,tAsSingle,iAsInteger
PrivateSubC1_Click()
s=1
n=1
Do
n=n+1
t=1
Fori=1To2*n-1
t=t*i'计算阶乘
Nexti
s=s+(-1)^(n-1)/t'求和
LoopUntil1/t<0.00001'外循环结束条件
Text1.Text=s
EndSub
PrivateSubC2_Click()
Callputdata("kssj.dat",Text1.Text)
'调用putdata过程把结果写入文件
EndSub
操作步骤如下:
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”,在“名称”栏中输入菜单项的名称“文件”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“新建”;使用类似的操作,输入如下所示的菜单:
文件(F)数据处理
新建计算
──────
退出Ctrl+X
5.说明:
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加模块”命令,将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是:
计算1+1/3+1/5+……+1/(2N-1),直到1/(2N-1)小于0.0001。
填空的参考答案如下:
'*****question*****
temp=1/(2*n-1)
'*****question*****
LoopUntiltemp<0.0001
7.添加如下所示的菜单事件过程代码:
PrivateSub退出_Click()
End
EndSub
PrivateSub计算_Click()
calculate
EndSub
8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序:
Menu1.exe。
第二套VB上机题
参考代码如下:
PrivateSubCombo1_Click()
SelectCaseCombo1.ListIndex
Case0
Text2.Text=UCase(Text1.Text)
Case1
Text2.Text=LCase(Text1.Text)
Case2
Text2.Text=Len(Text1.Text)
EndSelect
EndSub
PrivateSubForm_Load()
Combo1.AddItem"小写转大写"
Combo1.AddItem"大写转小写"
Combo1.AddItem"测长度"
EndSub
参考程序如下:
DimNAsInteger,SAsSingle,IAsInteger,TAsSingle
PrivateSubCommand1_Click()
S=0
ForN=1To10'外循环求和
T=1
ForI=1ToN'内循环求阶乘
T=T*I
NextI
S=S+T
NextN
Text1.Text=S'计算结果在文本框中显示
EndSub
PrivateSubCommand2_Click()
Callputdata("kssj.dat",S)
'调用putdata过程把计算结果写入文件
EndSub
操作步骤如下:
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“调试(&D)”,在“名称”栏中输入菜单项的名称“调试”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“逐语句”;使用类似的操作,输入如下所示的菜单:
调试(D)数据处理
逐语句计算
──────
退出Ctrl+X
5.说明:
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加模块”命令,将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是:
求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。
填空的参考答案如下:
'*****question*****
Forj=1Toi
'*****question*****
s=s+j
7.添加如下所示的菜单事件过程代码:
PrivateSub退出_Click()
End
第三套VB上机题
参考代码如下:
PrivateSubCommand1_Click()
Command2.Enabled=True
Label1.FontSize=Label1.FontSize+10
IfLabel1.FontSize>30ThenCommand1.Enabled=False
EndSub
PrivateSubCommand2_Click()
Command1.Enabled=True
Label1.FontSize=Label1.FontSize-10
IfLabel1.FontSize<10ThenCommand2.Enabled=False
EndSub
参考代码如下:
'变量sum用于保存数字字符个数
'变量str1用于保存从数据文件中读入的字符串
DimsumAsInteger,str1AsString
PrivateSubC1_Click()
Callgetdata("ini.txt",str1)
'调用getdata过程读入字符数据
Text1.Text=str1
'在文本框中显示str1的内容
EndSub
PrivateSubC2_Click()
DimcAsString,iAsInteger
sum=0
'以下逐字查找str1中的数字字符
Fori=1ToLen(str1)
c=Mid(str1,i,1)
Ifc>="0"Andc<="9"Then
sum=sum+1
EndIf
Nexti
Text2.Text=Str(sum)'显示统计结果
EndSub
PrivateSubC3_Click()
'调用putdata过程把统计结果写入磁盘文件
Callputdata("kssj.dat",sum)
EndSub
操作步骤如下:
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“播放(&P)”,在“名称”栏中输入菜单项的名称“播放”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“打开”;使用类似的操作,输入如下所示的菜单:
播放(P)数据处理
打开计算
──────
退出Ctrl+X
5.说明:
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加模块”命令,将考生文件夹下的“CDMK.Bas”文件添加到本工程。
该模块中的calculate过程的功能是:
在窗体上打印如下图所示的九九乘法表。
填空的参考答案如下:
'*****question*****
Forj=1Toi
'*****question*****
char=j&"×"&i&"="&(i*j)
7.添加如下所示的菜单事件过程代码:
PrivateSub退出_Click()
End
EndSub
PrivateSub计算_Click()
calculate
EndSub
8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序:
Menu1.exe。
第四套VB上机题
参考代码如下:
PrivateSubHScroll1_Scroll()
Timer1.Interval=HScroll1.Value
'计时器时间间隔为水平滚动条的值
EndSub
PrivateSubText1_Change()
Label1.Caption=Text1.Text
'文本框中内容作为标签的标题
EndSub
PrivateSubTimer1_Timer()
Label1.Left=Label1.Left-100
IfLabel1.Left<-100ThenLabel1.Left=5000
EndSub
参考程序代码如下:
Dims1AsInteger,s2AsInteger
PrivateSubCommand1_Click()
Callgetdata
Fori=1To50
Ifa(i)>=60Then
s1=s1+1
Else
s2=s2+1
EndIf
Nexti
Text1.Text=Str(s1)
Text2.Text=Str(s2)
EndSub
PrivateSubCommand2_Click()
Callputdata("kssj.dat",s1,s2)
EndSub
操作步骤如下:
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“文件(&F)”,在“名称”栏中输入菜单项的名称“文件”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“打开”;使用类似的操作,输入如下所示的菜单:
文件(F)数据处理
打开计算
──────
退出Ctrl+X
5.说明:
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加模块”命令,将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块中的calculate过程的功能是:
在窗体上绘制Cos函数曲线。
填空的参考答案如下:
'*****question*****
menu1.Scale(-8,2)-(8,-2)
'*****question*****
y=Cos(x)
7.添加如下所示的菜单事件过程代码:
PrivateSub退出_Click()
End
EndSub
PrivateSub计算_Click()
calculate
EndSub
8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序:
Menu1.exe。
第五套VB上机题
参考代码如下:
PrivateSubCommand1_Click()
Fori=0ToList1.ListCount-1
IfList1.Selected(i)Then
List2.AddItemList1.List(i)
EndIf
Nexti
EndSub
PrivateSubForm_Load()
List1.AddItem"安徽"
List1.AddItem"江苏"
List1.AddItem"浙江"
List1.AddItem"上海"
List1.AddItem"北京"
EndSub
参考代码如下:
DimsAsSingle,maxAsInteger,minAsInteger
PrivateSubCommand1_Click()
Callgetdata
'调用读取数据的过程
ForI=1To50
'用循环将50个数添加到列表框中
List1.AddItemA(I)
NextI
EndSub
PrivateSubCommand2_Click()
s=A
(1)
'先将第一个数存入累加变量
max=A
(1):
min=A
(1)
'设第一个数为初始最大值和初始最小值
ForI=2To50
s=s+A(I)
IfA(I)>maxThenmax=A(I)
IfA(I) NextI Text1.Text=min Text2.Text=max Text3.Text=s/50 EndSub PrivateSubCommand3_Click() Callputdata("kssj.dat",Text3.Text) Endsub 操作步骤如下: 1.打开考生文件夹中的工程Menu1.Vbp。 2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。 3.在“标题”栏中输入菜单项的标题“文件(&F)”,在“名称”栏中输入菜单项的名称“文件”。 4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“新建”;使用类似的操作,输入如下所示的菜单: 文件(F)数据处理 新建计算 保存 退出Ctrl+X 5.说明: 在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 6.单击“工程”菜单的“添加文件”命令,将考生文件夹下的“CDMK.Bas”文件添加到本工程。 该模块的功能是: 找出被3、5、7除,余数为1的最小的5个正整数。 填空的参考答案如下: '*****question***** IfnMod3=1AndnMod5=1AndnMod7=1Then '*****question***** LoopUntilc>=5 7.添加如下所示的菜单事件过程代码: PrivateSub退出_Click() End EndSub PrivateSub计算_Click() calculate EndSub 8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序: Menu1.exe。 第六套VB上机题 参考代码如下: PrivateSubCommand1_Click() Text2.Text=Text2.Text+Combo1.Text+": "+Text1.Text+vbCrLf EndSub PrivateSubForm_Load() Combo1.AddItem"学生" Combo1.AddItem"教师" Combo1.AddItem"医生" Combo1.ListIndex=0 Text2.Text="" EndSub 参考程序如下: PrivateSubCommand1_Click() DimnAsInteger,fAsInteger,iAsInteger,sAsInteger Forn=101To200Step2 '对101~200之间的每一个奇数判断 f=1'f为特征变量 Fori=2ToSqr(n) IfnModi=0Then f=0: ExitFor '若n能被i整除,改f值为0,跳出循环 EndIf Nexti Iff=1Thens=s+n '如果f的值仍然为1,则n是素数 Nextn Text1.Text=s EndSub PrivateSubCommand2_Click() Callputdata("kssj.dat",Text1.Text) EndSub 操作步骤如下: 1.打开考生文件夹中的工程Menu1.Vbp。 2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。 3.在“标题”栏中输入菜单项的标题“插入(&C)”,在“名称”栏中输入菜单项的名称“插入”。 4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“文本框”;使用类似的操作,输入如下所示的菜单: 插入(C)数据处理 文本框计算 ────── 退出Ctrl+X 5.说明: 在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 6.单击“工程”菜单的“添加文件”命令,将考生文件夹下的“CDMK.Bas”文件添加到本工程。 该模块的功能是: 随机产生15个不重复的大写英文字母。 填空的参考答案如下: '*****question***** c=Chr(Int(Rnd*26+65)) '*****question***** s(n)=c 7.添加如下所示的菜单事件过程代码: PrivateSub退出_Click() End EndSub PrivateSub计算_Click() calculate EndSub 8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序: Menu1.exe。 第七套VB上机题 参考代码如下: DimnAsInteger'模块级变量,保存产生的随机数 PrivateSubCommand1_Click() n=Int(Rnd*900+100) Text1.Text=n Command2.Enabled=True EndSub PrivateSubCommand2_Click() IfnMod2=0Then Label2.Caption=n&"是偶数" Else Label2.Caption=n&"是奇数" EndIf Command2.Enabled=False EndSub PrivateSubForm_Load() Randomize EndSub 参考代码如下: PrivateSubCommand1_Click() DimF(30)AsLong DimiAsInteger Cls F (1)=1: F (2)=1 Fori=3To30'计算数列的3至30项 F(i)=F(i-2)+F(i-1) Nexti Fori=1To30 PrintF(i); IfiMod5=0ThenPrint '每打印5个数后换行 Nexti Text1.Text=F(30) EndSub PrivateSubCommand2_Click() putdata"kssj.dat",Text1.Text '调用putdata把第30项写入文件 EndSub 操作步骤如下: 1.打开考生文件夹中的工程Menu1.Vbp。 2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。 3.在“标题”栏中输入菜单项的标题“插入(&C)”,在“名称”栏中输入菜单项的名称“插入”。 4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“书签”;使用类似的操作,输入如下所示的菜单: 插入(C)数据处理 书签计算 ────── 退出Ctrl+X 5.说明: 在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。 6.单击“工程”菜单的“添加文件”命令,将考生文件夹下的“CDMK.bas”文件添加到本工程。 该模块的功能是: 统计一个数字字符串中各数字字符出现的次数。 填空的参考答案如下: '*****question***** c=Mid(s,i,1) '*****question***** n(j)=n(j)+1 7.添加如下所示的菜单事件过程代码: PrivateSub退出_Click() End EndSub PrivateSub计算_Click() calculate EndSub 8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序: Menu1.exe。 第八套VB上机题 参考代码如下: PrivateSubDir1_Change() File1.Path=Dir1.Path EndSub PrivateSubDrive1_Change() Dir1.Path=Drive1.Drive EndSub PrivateSubFile1_Click() Picture1.Cls IfLen(File1.Path)=3Then Picture1.PrintFile1.Path&File1.FileName Else Picture1.PrintFile1.Path&"\"&File1.FileName EndIf EndSub 使用辗转相除法求出数M、N的最大公约数 DimmAsLong,nAsLong,tAsLong,rAsLong PrivateSubCommand1_Click() m=Val(Text1.Text) n=Val(Text2.Text) Do r=mModn m=n n=r LoopUntilr=0 Tex
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 12 年九套 VB 上机