VB模拟试题(3)

（4分）

6、* 下面程序计算1!+3!+5!+...+9!的值，请将其补充完整。 * 程序代码如下： Dim nt As Single

Private Sub aa(ByVal n As Single) Dim i As Integer nt = 1 For i = 1 To n nt = nt * i Next i End Sub

Private Sub Form_Click() Dim sum As Single, n As Integer sum = 0

For n = 1 To 9 Step 2 aa (

)

sum = sum + Next n Print sum End Sub （4分）

7、* 编写一个登录的程序，如图{}所示。

* 运行过程：点击确定按钮时判断密码是否为“Gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。 Private Sub Form_Load() Text2.PasswordChar = \ Text2. Text1 = \ End Sub

Private Sub Command1_Click()

= \

Dim I As Integer If Text2.Text = \ MsgBox \登录成功\ Else .Text = \\ Text2.SetFocus End If End Sub 【附图5】（6分） 三、编程题（2道小题，共20分） 1、* 编写程序： * 已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。 * 例如：1,1,2,3,5，...，请求出这个数列前43项的和。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 编写程序： * 先下载数据文件kaoshiwenjian.txt到自己的计算机中,然后编制程序，要求：统计出该数据文件中奇数的个数。 （【下载文件“kaoshiwenjian.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序