原创力文档- 1、本文档共9页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
第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)以外的任何
代码
文档评论（0）