- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
转换函数用于数据类型的转换 说明:Val函数将数字字符串转换为数值型数字时,会自动将字符串中的空格去掉,并依据字符串中排列在前面的数值常量来定值,例如: Val(12A12) 的值为 12 Val(1.2e2) 的值为 120 Val(A12) 的值为 0 使用转换函数的示例 Private Sub Form_Click() x = 123 y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + 5) Print a,b, c End Sub 运行程序后单击窗体,输出结果是什么 ? 2.4.4 类型转换函数 想一想 6 128 1235 转换函数例 思考题 格式:Format(表达式 [,格式串]) 功能:根据格式串规定的格式来输出表达式的值 示例 a=4513.7 Print Format(a,##,###.##) Print Format(a,$##,###.00) 输出结果是: 4,513.7 $4,513.70 格式符号#和0都能显示数字,但符号#会剔除不必要的0,符号0会按规定补足0 2.4.5 格式输出函数(Format) 1.随机函数Rnd 随机函数Rnd可以模拟自然界中各种随机现象。 产生一个(0,1)的随机数。 2. Randomize语句 使用Randomize语句可以得到不同的随机数序列。 Rnd通常与Int函数配合使用。 生成[a, b]区间范围内的随机整数,可以采用 Int((b-a+1)*Rnd + a) 例如 Int(4*Rnd+1)可以产生1~4之间(含1和4)的随机整数。可以是1,2,3或4,这由VB运行时随机给定。 2.4.6 随机函数 编写的窗体单击事件过程代码如下: Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Randomize 初始化随机数生成器 a = Int(90 * Rnd + 10) 产生[10,99]区间内的随机整数 b = Int(90 * Rnd + 10) c = a + b 求两数之和 Print 产生的两个随机数: ; a, b Print 和数: ; c End Sub 运行程序后单击窗体,输出结果是: 产生的两个随机数:56 71 和数:127 例2.4 通过随机函数产生2个两位正整数,求这2个数 之和并显示出来 再次运行程序,单击窗体后输出另一组结果是: 产生的两个随机数:18 37 和数:55 例2.4 2.5.1 编码规则 (1) 通常一行写一条语句。在同一行上也可以书写多条语句,语句之间用冒号“:”分隔。 Sum=Sum+x : Count=Count+1 (2) 一条语句写成多行 使用续行符(一个空格后面跟随一个下划线“_”),将长语句分成多行。 Print Text1.Text Text2.Text Text4.Text └┘_ Left(Text3.Text,3) (3)不区分大小写字母
您可能关注的文档
最近下载
- 智能控制(双语)知到课后答案智慧树章节测试答案2025年春湘潭大学.docx VIP
- 2023年人教版初中三年英语单词默写表.pdf VIP
- 康力电梯D10D632电气原理图纸布线图纸.pdf
- 2023年中航集团(国航股份)管理储备生岗位招聘考试真题.docx VIP
- 2025届中航集团(国航股份)管理储备生岗位高校毕业生校园招聘20人笔试参考题库附带答案详解.pdf
- 公安机关纪律条令课件.pptx VIP
- (完整版)pep人教版小学英语单词表(打印版)(可编辑修改).pdf VIP
- 2025年(完整版)pep人教版小学英语单词表(打印版)(可编辑修改).pdf VIP
- 警察内务培训课件.ppt VIP
- 钳工工艺与技能实训(第2版)全套完整教学课件.pptx
原创力文档


文档评论(0)