- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
赋值语句的基本格式
例:将文本框中的输入 内容赋值给变量a、b
Text1.text=a
Text2.text=b
变量=表达式
变量说明的语句格式
Dim a as integer,b as single
这条语句的含义是什么?
Dim 变量 as 类型
Mod 运算符的使用
例:统计100以内能被7整除的
整数的个数。
lf a /7=0 then … …
lf a\7=0 then … …
If a mod 7=0 then … …
表示式1 or 表达式2
Not 表示式1
or表示非,即表达式1成立,则结果不成立
And 表示并且,即表达式1成立,并且表达式2成 立,结果才成立
And、or、not的区别 表示式1 and 表达式2
or表示或者,即表达式1成立,或者表达式2成立, 结果均成立
输出变量a的基本方法:
Print“a”
方法—:
Print“a=“;a
方法二:
Text1.text=a
如下所示,哪一个是合法的变量
名?
dim
123a
end
A#
Sqr
八
A
integer
VB 中的关键词不能做变量名。
变量名必须是字母打头,字母数字 下划线的组合。
打开Z:\“VB\432”文件夹中的文件: “gc04.vbp”进行以
下操作后并保存!
码实现,求
的值。
S=0
For i=1 to 10
S=s+(i+1)/i Next i
Prints=;s
step
1
下 述 程 序 是 否 存 在 问 题 ?
S=0
For i=10 to 5 step -7
S=S+i
Next i
Print“s=“;s
7
S=s+1放在循环体中用于 统计个数的。
S=s+i 放在循环体中用于 求和的。
S=s*i放在循环体中用于求 累积的。S 的初始值是1。
程序的触发事件
Private_sub command1_click(
文本框的默认触发事件
标签栏的默认触发事件
窗体的默认触发事件
按钮的默认触发事件
change
click
load
click
触发事件
Private Sub Command1_Click)
End Sub
Private Sub Text2_Change)
Dim a As Integer
a =Text1.Text
fex 2. e =“0能.T en
t2.Text = “不能“
End If
End Sub
ex
lse
x
o
Click
这个就是触 发事件
输入a 输出
工 程 1 -Form1(Code)
Comi■and1
口 X
Form
第11题:
打开Z:\的“VB\235”文件夹中的文件: “k3.vbp”进行以下操 作后并保存!
在窗体“Form1.frm”的 “Command1 Click” 事件中编写代 码(请不要随便更改其它代码),使之能够实现如下功能:在 text1文本框中输入一个整数a, 判断该数能否被4整除,如果 该数能被4整除,则在text2 文本框中输出“能”,否则输出 “不能”。
测试数据
在text1文本框中输入72,在text2 文本框中输出:能。
在text1文本框中输入86,在text2文本框中输出:不能。
本题的触发事件是什么?
下述程序的代码有几处
错 误 ?
试题提示
CH09:47:18 您的考试盘符是:Z:V 重做本题
第11题:
打开Z:\的“VB\235”文件夫中的文件: “k3.vbp”进行以
下操作后并保存!
在面体“F orml.frm”的“Command1_Click”事件中编写代 码(请不要随便更改其它代码),使之能够实现如下功能;在
text1文本框中输入一个整数a,判断该数能否被4整除,如 #
果该数能被4整除,则在text2文本框中输出“能”,否则输
出“不能”。
测试数据
任text1飞本桩甲葡人72,在text2 本框 在text1文本框中输入86,在text2文本框
中 中
和出:采能。
Private Sub Text2_Change()
Dim a As Integer
Text1.Text=a
If a/4=0 Then
Text2.Text =能
Else
Text2.Text =不能
End If
End Sub
文档评论(0)