sysu计算机程序设计VB编程【荐】.docVIP

下载本文档

16
0
约1.88万字
约 17页
2015-07-21 发布于河南
举报
版权申诉

sysu计算机程序设计VB编程【荐】.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

sysu计算机程序设计VB编程【荐】.doc

顺序结构： Dim var1 As Integer, var2 As String var1 = 12345 var2 = InputBox(输入Var2=, 输入对话框) MsgBox(var2 Chr(13) + Chr(10) var1= Str(var1)) MsgBox(var2 vbCrLf var1= Str(var1)) 赋值类型一、模仿第1题的实验，通过编程运行，理解变量、表达式和函数的定义、书写规则。 (1)在变量说明语句中，将变量A、变量B……变量J分别说明成什么类型，才能与下列的值匹配。 325、546.2、5383149、2003-12-31、“ABCDEF”、 false 、“123456”、 3.2434E+100、1.2563E+12 Dim a As Short Dim b As Single Dim c As Integer Dim d As Date Dim e1 As String Dim f As Boolean Dim g As String Dim h As Double Dim i As Single Dim j(4, 3) As Integer a = 3.25 b = 546.2 c = 5383149 d = #12/31/2003# e1 = ABCDEF f = False g = 123456 h = 3.24E+100 i = 1.2563E+15 j(0, 0) = 456 MsgBox(a vbCrLf b vbCrLf c vbCrLf d vbCrLf e1 vbCrLf f vbCrLf g vbCrLf h vbCrLf i vbCrLf j(0, 0)) 二、分析下列表达式的运算结果，在窗体单击事件过程中，通过定义与运算结果类型相符合的变量，并将运算结果赋值给已定义的对应变量。观察程序编写过程中的语法编译提示。 1) 2) + |0.123-3| 3) - sin(300 ) 4) e6+ln( +2.135) 5) 8912(8912 6) AB+STR(32.56)+ CD 7) mid(student”,5)= “ent” And(52) 8) Not (62) Or (79)) Dim x21, x22, x23, x24 As Single Dim x25, x27, x28 As Boolean Dim x26 As String x21 = Sqrt(3 ^ 2 / (2 * 4)) x22 = +Abs(0.123 - 3) x23 = -Sin(30 * PI / 180) x24 = Exp(6) + Log(2.135) x25 = 89 12 8912 x26 = AB + Str(32.56) + CD x27 = Mid(student, 5) = ent And (5 2) x27 = Microsoft.VisualBasic.Right(student, 3) = ent And (5 2) x28 = Not (6 2) Or (7 9) MsgBox(x21 vbCrLf x22 vbCrLf x23 vbCrLf x24 vbCrLf x25 vbCrLf x26 vbCrLf x27 vbCrLf x28) 三、 1、产生一个100以内的随机整数 Dim y As Integer y = Int(Rnd() * 100) MsgBox(y) 2、给出任意字符串，测其长度 Dim y As String Dim y1 As Integer y = VB程序设计语言 y1 = Len(y) MsgBox(y 长度为 y1) 3、在给出的字符串中找到stu的位置 Dim y As Integer