原创力文档- 1、本文档共3页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
高中数学算法复习二(数据的基本类型与赋值上机学案)
算法复习二（数据的基本类型与赋值上机学案）
数据基本类型与赋值
Private Sub Command1_Click()
Dim a As Integer 定义整型变量
Dim b As Integer 定义整型变量
Dim c As Integer 定义整型变量
Const Pi = 3.14159 定义一实数常量
a = Val(Text1.Text) val()转化为数字
b = Val(Text2.Text)
c = a * b
text3.text=str(c) str()转化为文本
End Sub
Private Sub Command2_Click()
Dim score(1 To 3) As Integer 定义一整数型数组
Dim price(1 To 3, 1 To 4) As Double 定义一双精度实数型二维数组
For i = 1 To 3 通过循环语句给数组赋值
score(i) = i * 2
Next
For i = 1 To 3 通过循环语句输出数组的值
Print “score(“ i ”):” score(i)’连接字符串
Next
for i=1 to 3’二维数组赋值
for j=1 to 4
price(i,j)=i*j
next
next
for i=1 to 3’ 依次输出二维数组元素
for j=1 to 4
print “score(“ i “,” j ”):” score(i,j)
next
next
End sub
二、圆的面积计算
Private Sub Command1_Click()
Dim r As Double
Const pi = 3.1416
r = Val(Radius.Text)’ Radius第一个文本框名称
Area.Text = Str(pi * r * r)’ Area第二个文本框名称
End Sub
三、程序填空
有如下Visual Basic程序段：
Dim i As Integer, s As Integer
i = 1
s = 0
Do While i = 10
s = s + 1：i = i + 1
Loop
问：
该程序段运行后，变量s的值为____________，i的值为 。
学会把代码放到VB中去运行调试（print s或者用msgbox s）。
立即窗口的使用：输入?,再输入命令，然后回车，即可得到结果。
如：?3＞5 or 53
高中数学网（），海量高考资源免费下载！
文档评论（0）