福建信息技术会考操作题（上机）.pdf

第12题:

打开打开文件夹中的文件：“d4.vbp”，进行以下操作后并保存！

在VB代码窗口指定位置修改完善程序代码，实现求1*2*3*4*5*……*9*10的积。值是

3628800

PrivateSubCommand1_Click()

注释：以下为求1*2*3*4*5*……*9*10的积的代码，请不要删除(1)和(2)以外的任何代码

DimsAsLong

DimnAsInteger

DimiAsInteger

n=10

注释：删除(1)，在(1)处写上正确的代码

s=1

Fori=1Ton

注释：删除(2)，在(2)处写上正确的代码

s=s*i

Nexti

EndSub

第11题:

打开““”文件夹中的文件：“k4.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，

使之能够实现如下功能：在text1文本框中输入一个整数a（不为零），判断其是否为正数，

如果该数大于零，则在text3文本框中输出“正数”，如果小于零，则输出“负数”。

测试数据

在text1文本框中输入9，在text3文本框中输出：正数。

在text1文本框中输入-6，在text3文本框中输出：负数。

PrivateSubCommand1_Click()

DimaAslong

a=Val(Text1.Text)

Ifa0Then

Ifa0Then

正数正数

Else

负数负数

EndIf

EndIf

EndSub

第12题:

打开打开文件夹中的文件：“d1.vbp”，进行以下操作后并保存！

在VB代码窗口指定位置修改完善程序代码，实现求1到50之间的奇数和。

PrivateSubCommand1_Click()

注释：以下为求1到50之间奇数和的代码，请不要删除(1)和(2)以外的任何代码

DimsAsInteger

DimnAsInteger

DimiAsInteger

n=50

注释：删除(1)，在(1)处写上正确的代码

s=0

注释：删除(2)，在(2)处写上正确的代码

Fori=1TonStep2

s=s+i

Nexti

EndSub

625

第13题:

打开打开文件夹中的文件：“k1.vbp”，进行以下操作后并保存！

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之

能够实现如下功能：分别在text1和text2文本框中输入a和b两个整数，比较a和b的大

小，并在text3文本框中输出较大的数。

测试数据

在text1文本框中输入3，在text2文本框中输入2，text3文本框输出3；

在text1文本框中输入4，在text2文本框中输入5，text3文本框输出5。

PrivateSubCommand1_Click()

DimaAsLong,bAsLong

a=Text1.Text

b=Text2.Text

IfabThen

Text3.Text=a

Else

Text3.Text=b

EndIf

EndSub

第11题:

新建一个VB文件，保存在文件，保存在文件夹下，工程文件名为：“工程1.vbp”，窗体文件

名为：“Form1.frm”，进行如下操作后保存！

按下表的要求添加控件，并设置其属性：

第12题:

打开打开文件夹中的文件：“d5.vbp”，进行以下操作后并保存！

在VB代码窗口指定位置修改完善程序代码，实现求的积。

PrivateSubCommand1_Click()

注释：以下为求1*1/2*1/3*……*1/9*1/10的积的代码，请不要删除(1)和(2)以外的任何

代码