上半年VB8套题Word文档格式.docx
- 文档编号:20401781
- 上传时间:2023-01-22
- 格式:DOCX
- 页数:27
- 大小:779.25KB
上半年VB8套题Word文档格式.docx
《上半年VB8套题Word文档格式.docx》由会员分享,可在线阅读,更多相关《上半年VB8套题Word文档格式.docx(27页珍藏版)》请在冰豆网上搜索。
NextJ
NextI
Text1.Text=S
PrivateSubC2_Click()
Callputdata("
kssj.dat"
A)
操作步骤如下:
1.打开考生文件夹中的工程Menu1.Vbp。
2.单击“工具”菜单的“菜单编辑器”命令,打开“菜单编辑器”窗口。
3.在“标题”栏中输入菜单项的标题“视图(&
V)”,在“名称”栏中输入菜单项的名称“视图”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“普通”;
使用类似的操作,输入如下所示的菜单:
视图(V)数据处理
普通计算
──────
退出Ctrl+X
5.说明:
在“退出”菜单项的“快捷键”下拉列表框中选择“Ctrl+X”。
6.单击“工程”菜单的“添加文件”命令,将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块的功能是:
编写程序,求出所有小于或等于100的自然数对。
填空的参考答案如下:
'
*****question*****
a=i+j
IfSqr(a)=Int(Sqr(a))AndSqr(b)=Int(Sqr(b))Then
7.添加如下所示的菜单事件过程代码:
PrivateSub退出_Click()
End
PrivateSub计算_Click()
calculate
8.调试运行并保存工程,然后单击“文件”菜单的“生成Menu1.exe”命令,生成可执行程序:
Menu1.exe。
2015上半年第二套
PrivateSubForm_Load()'
窗体装载过程
+"
在组合框中添加"
、"
-"
号
DimSAsSingle,AAsSingle,BAsSingle
变量s用于保存计算结果
A=Val(Text1.Text)
B=Val(Text2.Text)
SelectCaseCombo1.Text
Case"
S=A+B
S=A-B
EndSelect
Text3.Text=S'
将计算结果显示在文本框text3中
参考代码如下:
DimKAsInteger,IAsInteger,SAsSingle,TAsSingle
S=1:
K=1
Do
K=K+2
T=1
ForI=1ToK
T=T*I
S=S+1/T
LoopUntil1/T<
0.000001
S)
3.在“标题”栏中输入菜单项的标题“页面设置(&
S)”,在“名称”栏中输入菜单项的名称“页面设置”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“纸张大小”,并在“复选”前打勾;
页面设置(S)数据处理
√纸张大小计算
√页边距
退出
在“纸张大小”、“页边距”单项的“复选”前打勾。
6.单击“工程”菜单的“添加模块”命令,将考生文件夹下的“CDMK.bas”文件添加到本工程。
该模块中的calculate过程的功能是:
根据泰勒级数计算e=1+1/1!
+1/2!
+1/3!
+…,当第i项的值小于10^-5时结束。
f=f+y
LoopUntily<
10^-5
7.添加如下所示的菜单事件过程代码:
2015上半年第三套
PrivateSubHScroll1_Scroll()
Label1.FontSize=HScroll1.Value
Label2.Caption="
字体大小="
&
HScroll1.Value
PrivateSubText1_Change()
Label1.Caption=Text1.Text
DimsumAsInteger,str1AsString
Callgetdata("
INI.TXT"
str1)
Text1.Text=str1
DimcAsString,iAsInteger
sum=0
Fori=1ToLen(str1)
c=Mid(str1,i,1)
Ifc>
="
A"
Andc<
Z"
sum=sum+1
Nexti
Text2.Text=Str(sum)
PrivateSubC3_Click()
sum)
3.在“标题”栏中输入菜单项的标题“播放(&
P)”,在“名称”栏中输入菜单项的名称“播放”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“打开”;
播放(P)数据处理
打开计算
6.单击“工程”菜单的“添加文件”命令,将考生文件夹下的“CDMK.Bas”文件添加到本工程。
在窗体上打印金字塔图形。
menu1.PrintChr(64+j);
Forj=i-1To1Step-1
2015上半年第四套
PrivateSubCombo1_Click()
Text1.FontName=Combo1.Text
宋体"
黑体"
Combo1.ListIndex=0
PrivateSubOption1_Click()
Text1.ForeColor=vbRed
PrivateSubOption2_Click()
Text1.ForeColor=vbBlue
排序的方法有多种,下面给出冒泡排序的算法,其它排序算法请参考有关书籍。
DimiAsInteger
getdata'
调用Getdata过程,读取数据
Fori=1To50
将数组中的数据添加到List1中
List1.AddItemA(i)
PrivateSubCommand2_Click()
以下为冒泡排序算法
DimiAsInteger,jAsInteger
Forj=1To50-i
IfA(j)<
A(j+1)Then
t=A(j)
A(j)=A(j+1)
A(j+1)=t
Nextj
List2.AddItemA(i)
PrivateSubCommand3_Click()
putdata"
3.在“标题”栏中输入菜单项的标题“文件(&
F)”,在“名称”栏中输入菜单项的名称“文件”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“打开”;
文件(F)数据处理
──────
调用Trial函数计算一个三角形的面积,并显示在窗体上。
Ifx+y>
zAndy+z>
xAndx+z>
yThen
area=Tria(x,y,z)
2015上半年第五套
IfCommand1.Caption="
开始"
Timer1.Enabled=True
Command1.Caption="
暂停"
Else
Timer1.Enabled=False
EndIf
PrivateSubTimer1_Timer()
Text1.Text=Time()
DimF(30)AsLong
Cls
F
(1)=1:
F
(2)=1
Fori=3To30'
计算数列的3至30项
F(i)=F(i-2)+F(i-1)
Fori=1To30
PrintF(i);
IfiMod5=0ThenPrint
每打印5个数后换行
Text1.Text=F(30)
PrivateSubCommand2_Click()
Text1.Text
调用putdata把第30项写入文件
3.在“标题”栏中输入菜单项的标题“插入(&
C)”,在“名称”栏中输入菜单项的名称“插入”。
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“对象”;
插入(C)数据处理
对象计算
调用判别素数的函数将100~120之间的偶数拆分成两个素数之和。
Forn=100To120Step2
IfxModi=0Then
2015上半年第六套
PrivateSubDir1_Change()
File1.Path=Dir1.Path
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
PrivateSubFile1_Click()
Image1.Picture=LoadPicture(File1.Path&
\"
File1.FileName)
算法要点:
1、数制转换:
相应的系数乘权值相加。
2、判断是否为八进制数:
看输入的字符是否为“0~7”
参考程序如下:
DimsAsInteger,nAsInteger,iAsInteger
n=Len(Text1.Text)
s=0
Fori=nTo1Step-1
s=s+Val(Mid(Text1.Text,i,1))*8^(n-i)
Text2.Text=s
Putdata"
Text2.Text
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
If(Chr(KeyAscii)<
0"
OrChr(KeyAscii)>
7"
)Then
错误!
输入内容非八进制数"
KeyAscii=0
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“引用”;
引用计算
找出1000~9999中满足倒序后得到的数字是原数字倍数的数。
m=m*10+nMod10
IfmModi=0Andm\i>
1Then
2015上半年第七套
DimxAsInteger,iAsInteger
List1.Clear
x=Val(Text1.Text)
Fori=1Tox
IfiMod2=0Then
List1.AddItemi
Nexti
Fori=100To150
IfiMod4=2AndiMod5=3AndiMod6=0Then
'
根据题意求小球数除4余2、除5余3,并且能被6整除
Text1.Text=i
Callputdata("
Text1.Text)
4.单击“下一个”按钮,再单击“→”按钮,使用与步骤3相似的方法输入下级菜单项“文件”;
文件计算
使5×
5数组的主、副对角线元素为1,其余为0。
Ifi=jOri+j=4Then
a(i,j)=0
2015上半年第八套
DimnAsInteger
n=Int(Rnd*90+10)
Text1.Text=n
IfSqr(n)=Int(Sqr(n))Then
Label2.Caption=n&
的平方根是整数"
的平方根不是整数"
Randomize
DimaAsInteger,bAsInteger,minAsInteger
DimmaAsInteger,mbAsInteger,rAsInteger
min=19
Fora=0To135/19
Forb=0To135/23
r=135-a*19-b*23
Ifr<
minAndr>
=0Then
min=r
ma=a
mb=b
Nextb
Nexta
Text1.Text=ma
Text2.Text=mb
ma,mb
putdata过程的作用是打开指定的文件,进行写操作。
该过程有3个参数,一个是欲打开的文件名,另外两个是要保存的数据。
这里按题目要求,指定的文件名是kssj.dat,需要保存的数据是存放了19米和23米根数的两个变量m
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 上半年 VB8