第三章
1 输出
print (?) 方法: 窗体.方法
Form1.Print 12 Print 23 a = 10 Print a + 20, 30, Sin(a) Print a + 20; 30; Sin(a) xm = \"李四\" Print xm & \"成绩是:\" & a 如果一个连接内有非字符串型内容,使用&强制转换 2 与Print相关函数
Tab(n)
\'Dim a, b, c As Integer \'a,b为变体
Dim a As Integer, b As Integer, c As Integer a = 12: b = 24: c = 34 \'多句书写一行上,用:隔开 Print Tab(2); a; Tab(10); b; Tab(10); c 指定在第n列位置开始输出数据,输出完成后光标在最后一个数据的右边.如果下一个tab(n) 的列数
3 cls方法 Picture1.Cls Form1.Cls
cls
3.2 数据输入inputbox( ) x = InputBox(\"请输入一个数:\") \'输入的是字符串 Print Val(x) ^ 2 \'val(x)把数字式的串转换成数值型 Print x ^ 2 注:default:设置默认(缺省)参数值
x = InputBox(\"请输入一个数:\", \"提示!\", 1) \'输入的是字符串
3.3 msgbox( )函数,命令 函数:
Msgbox(“信息”,[类型],”标题”)
t = MsgBox(\"你弄错了\", , \"警告\")
Private Sub Command3_Click() t = MsgBox(\"你弄错了\", 3 + 256, \"警告\") End Sub
不加括号,成了命令
MsgBox \"你弄错了\", 3 + 256, \"警告\"
注:msgbox( )会根据用户点击的按钮来返回一个值,如点了“是(Y)”按钮,则返回的是6,根据这个值来继续编程控制程序的运行.M$=”abdcd”
等效于如下:
Dim m as string M=”abdcd”
作业上交: pzyy14@126.com
规范:20100900001张三第一次.rar
第4章
程序设计
4.1 赋值语句,是一个动作命令,”=”叫赋值操作,不是等号
Let 变量名=表达式
变量名=表达式
赋值是自右向左运算
Label1.Caption = \"计算机学习\" Label1.FontSize = 22 Label1.AutoSize = True Label1.ForeColor = RGB(255, 1, 1) X=x+1
4.2 条件语句 1 分支结构 If then
[ else
] End if 例:输入一个数,判断是负还是非负 n = Val(InputBox(\"请输入一个数:\")) If n
Print \"负数\" Else
Print \"非负数\" End If If n
Print \"负数\" Else
If n = 0 Then
Print \"0\"
Else
Print \"正数\"
End If End If