12年九套VB上机题.docx

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