- 1、本文档共18页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- E+H恩德斯·豪斯 Liquicap M FTI52电容液位开关操作手册.pdf VIP
- CNAS产品质量手册.docx VIP
- 食品安全管理体系培训ppt课件.pptx VIP
- 串联质谱技术新生儿遗传代谢病筛查讲义.ppt
- 体例格式12:任务7教学单元7工学一体化课程《windows服务器基础配置与局域网组建》之教学单元活动方案.docx VIP
- 2016年会计培训课件-《增值税会计处理规定》财会[2016]22号.ppt VIP
- 15MR201 城市道路-沥青路面 .docx VIP
- SHS 01030—2019 阀门维护检修规程.docx VIP
- 第10课 当代中国的法治与精神文明建设 教学课件(共29张PPT)——高中历史人教统编版选择性必修一.pptx VIP
- CJJ 143-2010 埋地塑料排水管道工程技术规范.docx VIP
文档评论(0)