孙俏版VB4-5章答案介绍.docx

  1. 1、本文档共18页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
4.1 代码 Private Sub Text1_Change() If Len(Text1.Text) 15 Then Text2.SetFocus End If End Sub 实验结果 4.2 题目 在窗体上有3个名称分别为Text1、Text2和Text3的文本框,一个名称为C1,标题为计算的命令按钮,如图4-4所示。要求程序运行后,在Text1和Text2中分别输入两个整数,单击计算按钮后,可把两个整数之间的所有整数(含两个整数)累加起来并在Text3中显示。 代码 Dim a%, b%, c% Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = ((b - a + 1) * (b + a)) / 2 Text3.Text = Val(c) End Sub 实验结果 4.3 题目 代码 Dim a%, s% Private Sub Command1_Click() s = 0 For a = 100 To 200 If a Mod 3 = 0 Then s = s + a End If Next a Text1.Text = s End Sub 实验结果 4.4 题目 代码 Dim sum As Integer, N As Integer Private Sub Command1_Click() If N = 0 Then MsgBox 重新输入 Else For i = 1 To N a = Val(InputBox(输入学生的visual basic 成绩)) sum = sum + a Next i End If Label1.Caption = sum/N End Sub Private Sub Text1_Change() N = Val(Text1.Text) End Sub 实验结果 4.5 题目 代码 Dim n As Integer, s As Variant P弄不清这些东西 rivate Sub Form_click() For i = 1 To n b = 1 For j = 1 To i b = b * j Next j s = s + (2 * i - 1) / b Next i Print s End Sub Private Sub Text1_Change() n = Val(Text1.Text) End Sub 实验结果 代码 Dim s As Variant, t As Variant Private Sub Form_click() For i = 1 To 100 b = 1 For j = 1 To i b = b * j Next j If (2 * i - 1) / b t Then Exit For Else s = s + (2 * i - 1) / b End If Next i Print s End Sub Private Sub Text1_Change() t = Val(Text1.Text) End Sub 5.1 题目 代码 Private Sub Command1_Click() Dim a(1 To 5) As Integer, b(1 To 4) As Integer, c(1 To 9) As Integer Dim i As Integer, j As Integer, k As Integer, t As Integer k = 1 For i = 1 To 5 a(i) = 2 * i - 1 c(k) = a(i) k = k + 1 Next i For i = 1 To 4 b(i) = 2 * i c(k) = b(i) k = k + 1 Next i Print 合并后C的值是: For i = 1 To 8 For j = i + 1 To 9 If c(j) c(i) Then t = c(j) c(j) = c(i) c(i) = t End If Next j Next i For

文档评论(0)

a336661148 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档