End Function （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、* 大写字符转换小写字符，如图{
Private Sub Text1_
(KeyAscii As Integer)
If KeyAscii >= Asc(\Text2 = Text2 + Chr(KeyAscii Else
32)
Text2.End If End Sub = Text2 + Chr(KeyAscii) 【附图4】（6分） 三、编程题（2道小题，共20分） 1、* 编写程序： * 试求1到500以内能被3或者被5整除的数的个数。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 2、* 编写程序： * 在文件1.txt当中有1000个数，请对它们从小到大排序，然后打印第500个数。 （【下载文件“1.txt”】；）下载方法：在链接上右击打开弹出菜单，选择“目标另存为”。 （10分） 必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计! 请将你解答本题所写的源程序粘贴到下面或者上载源程序 考号：20113160124 姓名： 剩余时间： 89:56 保存交卷退出帮助
强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库郑州大学VB模拟题4(3)在线全文阅读。
相关推荐：