vb80上机题答案.docVIP

下载本文档

10
0
约4.95万字
约 24页
2017-08-07 发布于河南
举报
版权申诉

vb80上机题答案.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

第一套二、（1）Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub （2）1) a = Mid$(Text1.Text, k, 1) 2) ch = ch + LCase(a) 3) Text2 = ch 三、Private Sub Command2_Click() a% = CInt(Text1.Text) Do a% = a% + 1 Loop Until isprime(a%) Text2.Text = a% End Sub Function isprime(a As Integer) Dim flag As Boolean k% = 2 flag = True While k% = Int(a / 2) And flag If a / k% = Int(a / k%) Then flag = False End If k% = k% + 1 Wend isprime = flag End Function 第二套二、（1）1) Command2.Enabled = True 2) Combo1.List(Combo1.ListIndex) = Text1 3) Combo1.AddItem Text1 （2）1）red = HScroll1.Value 2）Timer1.Enabled =true 3）Picture1.Visible = False 4）green = green – 1 三、1）Input #1, a% 2）prime = False 第三套二、（1）Private Sub Command1_Click() If Option1.Item(0) = True Then Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 / 180), 0.000) End If If Option1.Item(1) = True Then Text2.Text = Format(Cos(Val(Text1.Text) * 3.14159 / 180), 0.000) End If End Sub （2） 1）Timer1.Enabled = True 2）Form1.Timer1.Interval = HScroll1.Value 3）Picture1.Left = Form1.Picture1.Left + 10 三、Private Sub Command1_Click() Dim f1, f2, f As Long Dim a(40) As Long f1 = 1 f2 = 1 a(1) = f1 a(2) = f2 For i = 3 To Val(Text1.Text) f = f1 + f2 a(i) = f f1 = f2 f2 = f Next Text2.Text = a(40) End Sub 第四套二、（1）1）For k = 0 To 3 2）n = k 3）n = 0 （2） 1）Form1.Combo1.ListIndex 2） tmpStr = Mid(Trim(Text1.Text), 3, 4) 3）Text2.Text = tmpStr 三、Private Sub Command1_Click() Dim f As Long a(1) = 1 a(2) = 1 For i = 3 To Val(Text1.Text) f = a(i - 2) + a(i - 1) + 1 a(i) = f Next Text2.Text = f End Sub 第五套三、 1）True 或非0数值 2）绿灯.ico 3）False 或 0 4）P2.Left 或 Me.P2.Left 或 Form1.P2.Left 第六套二