UC知道VB过程看不懂,找内行人解释下.
来源：百度知道 编辑：UC知道 时间：2024/05/26 10:53:03
Rem 声明变量R、L、S为单精度型，在整个窗体模块程序中有效
Rem 声明常量PI=3.1415926，在整个窗体模块程序中有效
Dim R As Single, L As Single, S As Single, V As Single
Const PI As Single = 3.1415926
Rem *************** 输入半径的值 ***************
Private Sub Command11_Click()
Dim TS$
TS$ = "请输入半径" + Chr(13) + Chr(10) + "R="
R = Val(InputBox(TS$, "输入半径", 8, 5000, 1600))
End Sub
------------------------------------------
Dim TS$
TS$ = "请输入半径" + Chr(13) + Chr(10) + "R="
R = Val(InputBox(TS$, "输入半径", 8, 5000, 1600))
这段是什么意思?
也就是说 chr(N)
N是什么值都可以,只是在不到10的时候是在同一行内隔开
到达10后是换行
那么chr(10)和chr(13)意义是一样的? 任何情况下 只是为了换行?
Rem 声明常量PI=3.1415926，在整个窗体模块程序中有效
Dim R As Single, L As Single, S As Single, V As Single
Const PI As Single = 3.1415926
Rem *************** 输入半径的值 ***************
Private Sub Command11_Click()
Dim TS$
TS$ = "请输入半径" + Chr(13) + Chr(10) + "R="
R = Val(InputBox(TS$, "输入半径", 8, 5000, 1600))
End Sub
------------------------------------------
Dim TS$
TS$ = "请输入半径" + Chr(13) + Chr(10) + "R="
R = Val(InputBox(TS$, "输入半径", 8, 5000, 1600))
这段是什么意思?
也就是说 chr(N)
N是什么值都可以,只是在不到10的时候是在同一行内隔开
到达10后是换行
那么chr(10)和chr(13)意义是一样的? 任何情况下 只是为了换行?
Dim TS$
'定义字符串变量
TS$ = "请输入半径" + Chr(13) + Chr(10) + "R="
'变量赋值，Chr(13) + Chr(10)是回车换行，也可用vbCrLf代替
R = Val(InputBox(TS$, "输入半径", 8, 5000, 1600))
'输入对话框，输入值赋给R。TS$ 是提示输入信息；"输入半径"对话框标题；8是默认输入值，若不改变则R=8；5000, 1600是 X坐标和Y坐标。
其实改为一句也可以
R = Val(InputBox("请输入半径" + vbCrLf + "R=", "输入半径", 8, 5000, 1600))
chr(13) 是一个回车
Chr(10) 是个换行符
不是很懂........