- 博客(6)
- 收藏
- 关注
原创 VB中函数的用法,计算三角形面积
Private Sub Command1_Click()Dim x%, y%, z%, s As Single, b As Boolean, h As Single'$ string 字符类型'% integer 整型'& long 长整型'# double 双精度浮点型'! single 单精度浮点型x = InputBox("请输入三角形的边长")y = Inp
2017-03-17 12:40:55 6808
原创 inputbox()和val(inputbox())
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As Integera = Val(InputBox("请输入a")) /a=inputbox("") ,是将输入框用户输入的内容 反馈给变量a,不管用户输入的是文本、数字或其他/a=Val(inputbox("")) 是将输入框用户输入
2017-03-17 12:33:08 4526
原创 VB键盘输入、常量定义与输出文字和参数
Private Sub Command1_Click()Dim a As SingleDim b As SingleConst p = 3a = InputBox("请输入a")b = InputBox("请输入b")Print "您输入的a是" & a /这里&可以换成逗号Print "您输入的b是" & b /这里&可以换成逗号a = a *
2017-03-17 12:17:03 1757
转载 VB For 循环语句的用法
For循环的格式:For 循环变量 = 初值 To 终值 [Step 步长] step 2 就是i=i+2[循环体]Next [循环变量]注意:1) 当步长 > 0 时循环执行的条件:循环变量 2) 当步长 循环执行的条件:循环变量 >= 终值强行退出 For 循环,请使用 Exit For。
2017-03-14 07:18:50 108131
原创 VB键盘输入一个数求阶乘的和
Private Sub Command1_Click()Dim n As IntegerDim sum As IntegerDim t As Integert = 1sum = 0n = InputBox("请输入n:", "数据输入")For i = 1 To nt = i * nsum = sum + tNext iPrint "N的阶乘为:" &
2017-03-14 07:11:11 6200
转载 VB从键盘输入任意三个数A,B,C,将其值按由大到小的顺序显示出来
Private Sub Form_Load()Dim x As Integer,y As Integer,z As IntegerDim diyige As IntegerDim dierge As String,disange As String,disige As Stringdiyige = InputBox("请输入A:","数据输入")dierge = InputBo
2017-03-14 07:09:57 11311 1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人