福建计算机水平上机会考,福建信息技术会考操作题上机.doc

福建信息技术会考操作题上机

第12题:

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

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

Private Sub Command1_Click()

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

Dim s As Long

Dim n As Integer

Dim i As Integer

n = 10

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

s = 1

For i = 1 To n

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

s = s * i

Next i

Print "S="; s

End Sub

第11题:

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

在窗体“Form1.frm”的“Command1_Click”事件中编写代码(请不要随便更改其它代码)，使之能够实现如下功能： 在text1文本框中输入一个整数a(不为零)，判断其是否为正数，如果该数大于零，则在text3文本框中输出“正数”，如果小于零，则输出“负数”。

测试数据

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

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

?

Private Sub Command1_Click()

Dim a As long

a = Val(Text1.Text)

If a <> 0 Then

If a > 0 Then

Text3.Text = "正数"

Else

Text3.Text = "负数"

End If

End If

?

End Sub

第12题:

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

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

Private Sub Command1_Click()

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

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = 50

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

s = 0

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

For i = 1 To n Step 2

s = s + i

Next i

Print "S="; s

End Sub

?

625

?

?

第13题:

打开“Z:\VB\87”文件夹中的文件：“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。

Private Sub Command1_Click()

Dim a As Long, b As Long

a = Text1.Text

b = Text2.Text

If a > b Then

Text3.Text = a

Else

Text3.Text = b

End If

End Sub

第11题:

新建一个VB文件，保存在“Z:\VB\81”文件夹下，工程文件名为：“工程1.vbp”，窗体文件名为：“Form1.frm”， 进行如下操作后保存！

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

?

第12题:

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

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

Private Sub Command1_Click()

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

Dim s As Single

Dim n As Integer

Dim i As Integer

n = 10

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

s = 1

For i = 1 To n

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

s = s * 1 / i

Next i

Print "S=";