原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
顺序结构：
Dim varl As Integer, var2 As String
varl = 12345
var2 = InputBox (，?输入Var2二，输入对话框)
MsgBox(var2 Chr(13) + Chr(10) varl二 Str(varl))
J MsgBox(var2 vbCrLf varl二 Str(varl))
赋值类型
一、模仿第1题的实验，通过编程运行，理解变量、表达式和函数的定义、书写规则。
(1)在变量说明语句中，将变量A、变最B……变量J分别说明成什么类型，才能与下列 的值匹配。
325、546.2、5383149 2003-12-31 “ABCDEF”、 false 、“123456”、
3.2434E+I00、1.2563E+12
Dim a As Short
Dim
b
As
Single
Dim
c
As
Integer
Dim
d
As
Dcite
Dim
el
.At
Siring
Dim
f
As
Boolean
Dim
g
As
String
Dim
h
As
Double
Dim
■
As
Single
Dim
j
4
3) As Integer
a =
3.
25
b =
546.2
c =
53831
49
d = #12/31/2003# el = 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 el vbCrLf f vbCrLf g vbCrLf h vbCrLf i vbCrLf j(0, 0))
二、分析F列表达式的运算结果，衣窗体单击事件过程中，通过定义与运算结果类型相 符合的变量，并将运算结果赋值给已定义的对应变量。观察程序编写过程屮的语法编译提示。
1) I 32 2) + 10」23-引 3) - sin(30°) 4) e6+ln( +2.135)
2x4
5) 8912o 8912 6) AB+STR(32.56)+CD”
7) mid(student,5)= tenf, 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 * PT / 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 = Tnt (Rnd () ? 100)
MsgBox(y)
2、 给出任意字符串，测其长度
Dim y As Striri￡
Dim yl As Tnteger
y二程序设计语言〃
yl = Len(y)
MsgBox(y 长度为 yl)
3、 在给出的字符串中找到stu的位置
Dim y As Integer
y = InStr(^abc student, slu)
MsgBox (y)
4、 去除字符屮Visual C ++ 中两端的空格
Dim y As String
y = TrimC Visual C ++ ”)
MsgBox(去除左边空格〃 y 去除右边空格)
5、 测字符“我去资料室查资料”所占字节
Private Sub Button7_Click(ByVal sendcr As System. 0bject, ByVai e As System?EventArgs) Handles Button7. Click
Dim y As Striri￡
Dim y1 As Tnteger
y = 〃VB程序设计语言〃
yl = Len(y) * 2
MsgBox(y
文档评论（0）