VB实验指导书-测试题答案.docVIP

  1. 1、本文档共8页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第1章测试题答案 一、AABD 第2章测试题答案 一、BCDACACC 二、1. 2.Lostfocus 3.etfocus 4.Style,1 5.S(165)6.VScrollBars 三、1.答: Private Sub Form_Click() Form1.BackColor = vbBlue End Sub Private Sub Form_DblClick() Form1.BackColor = vbRed End Sub 2.答:(1)若在设计状态完成: 在窗体上放一标签框,各对象属性按下表进行设置即可。 对象 属性 属性值 Form1 Caption 示例 BackColor 白色 StartUpPosition 2 Label1 Caption 欢迎使用VB6.0! BackColor 蓝色 ForeColor 黄色 Font 黑体 斜体 20号 (2)若在运行状态完成: 编写窗体的Load事件过程如下: Private Sub Form_Load() Form1.BackColor = vbWhite Label1.Caption = 欢迎使用VB6.0! Label1.ForeColor = vbYellow Label1.BackColor = vbBlue Label1.FontName = 黑体 Label1.FontItalic = True Label1.FontSize = 20 End Sub 第3章测试题答案 一、BBDBCADA 二、1.rue ”cde” 2. ”” -12 3.rue ”abc123xy” 4.-2*t)*sin(50*t+ 3) 5.^3 6. Long 7. Double # 8. 关系 逻辑 第4章测试题答案 一、BBBAB ADBDA ADBAC 二、1.判断奇偶数 InputBox(输入一个整数) If a Mod 2 = 1 Then Else MsgBox a 是偶数 2.计算Y值 Val(Text1.Text) x 100 Then x 0 Then Else 3.购物优惠 x Is 5000 Is 3000 Is 2000 Is 1000 Case Else 4.1+2+。。。+N1000的最小N值 Until s 1000 s = s + n 5.输出图形 i = 1 To 6 j = 1 To 2 * i - 1 Print *; Next j 三、1.判断任意一个三位正整数是否为水仙花数。 Private Sub Command1_Click() k = InputBox(输入3位正整数) s1 = Val(Mid(k, 1, 1)) s2 = Val(Mid(k, 2, 1)) s3 = Val(Mid(k, 3, 1)) If s1 ^ 3 + s2 ^ 3 + s3 ^ 3 = Val(k) Then MsgBox k + 是水仙花数 Else MsgBox k + 不是水仙花数 End If End Sub 2.找出不大于1000的最大素数。 Private Sub Command1_Click() Dim I As Integer, J As Integer For I = 1000 To 1 Step -1 K = I是素数 先假设I是素数 以下判断I是否是素数 For J = 2 To I - 1 If I Mod J = 0 Then K = I不是素数 Next J If K = I是素数 Then Print I Exit For Next I End Sub 3.用近似公式计算ex值: Private Sub Command1_Click() Dim x As Integer, i As Integer, k As Double Dim ex As Double, t As Double x = Val(Text1.Text) ex = 1: i = 0: k = 1: t = 1 Do While Abs(t) = 0.000001 i = i + 1 k = k * i t = x ^ i / k ex = ex + t Loop Text2.Text = ex End Sub 4.求的值。 Private Sub Form_Click() Dim i As Inte

您可能关注的文档

文档评论(0)

82393aa + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档