-
记事本(复制,剪切,粘贴)
Dim st
As String
'
变量的设置
Dim FileType, FiType As String
Private Sub Command1_Click()
'
剪切
st
= t
t =
文字的移动
Sub
MyMove()
'
移动主程序
Label1.
Move
Label1.
Left
+ 50,
Label1.
Top
If > Form1.
Width
Then
= 0
(
al
= 200
自动)
单击次数
Text1 =
Val(Text1) + 1
'Val
用来定义数
复制文本(包括改字体)
Private Sub Command2_Click()
= t
'Text1
中选定的值
Text2.
FontName
=
me
Text2.
FontSize
= ze
温度互换
Dim f!, c!
'
定义变量
f = Val(Text1)
c = 5 / 9 * (f
- 32)
Text2 =
Format
(c,
计算周长面积
Private Sub Text1_LostFocus()
If
Not IsNumeric
() Then
'
判别是否数字
i =
MsgBox (
输入有非数字字符,请重新输入
'MsgBox
警告提示框,
1
是框名
=
转换成大写和显示字长
Private Sub Command1_Click()
a =
InputBox
(
Print
UCase
(a)
'
转换成大写
Print
Len
(a)
'
显示字长
产生随机数并翻转
Private
Sub Command2_Click()
Label2
=
Int(Rnd * 900 + 100)
'
产生<
/p>
900
个随机数,
100
开始
Private Sub Command1_Click()
Dim x%, X1%, X2%, x3%
x =
Val(Label2)
X1 =
x Mod 10
X2 =
(x Mod 100) 10
x3 =
x 100
Label1 = X1 * 100 + X2 * 10 + x3
'
重组
提取左右,中间的字符
Private Sub Label2_Click()
a
=
n =
Mid(a, 12, 17)
'
从第<
/p>
12
位开取,取到第
17
位
求价钱(打折,不同范围)
Private Sub Command1_Click()
Dim x!, y!
x = Val(InputBox(
输入
x
的值
<
/p>
'
分三项的,提示、框名、初值
If x < 1000 Then
'
小于号
的小数先行,大于号的大数先行
y = x
产生随机数并排列
Private Sub Command1_Click()
Dim x, y, z
Print Space(8) &
x = Int(Rnd * 1001)
'
各自产生随机数
y = Int(Rnd * 1001)
z =
Int(Rnd * 1001)
Print
排序前
If x > y Then
'
两两比较
x = y
End If
If x
> z Then
x = z
End If
If y > z Then
y = z
End If
Print
排序后
Space
应该是空格
鸡兔问题(错位提示框)
Private Sub Text2_LostFocus()
'
失去焦点时触发
Dim m%, n%, y%
m =
Val(Text1)
n = Val(Text2)
If n Mod 2 <> 0 Then
'
除
p>
2
不等于
0
,说明
不是双数,触发
MsgBox
(
脚数必定为偶数
'MsgBox
,提示、按钮、标题
Text2 =
us
'
重新定焦点
Else
正三角数(倒三角用它改)
Private Sub Form_Click()
For
i = 1 To 9
'Tab
是从第几位开始显示
P
rint Tab(10 - i); String(2
* i - 1, Trim(Str(i)))
'Str
(
i
)
是每行中显示的数
Next i
'String
重复显数
D3
求
S=
1+1
/
2+1
/
4+1
/7
·
·
< br>·
Private Sub
Command1_Click()
Dim s!, t!, i&
s = 1
t = 1
i =
1
Do While 1 / t > 0.00001
t
= t + i
s = s + 1 / t
i = i
+ 1
Loop
Print
结构
项
Priva
te Sub Command2_Click()
Dim s!, t!, i&
s = 1
t = 1
For i = 1
To 100000
t = t + i
s = s +
1 / t
If 1 / t < 0.00001 Then Exit For
p>
'
加到
1
/t
p>
小于
0.0001
Next i
Print
结构
项
'Print
中输出普通文字等用双引号
D
4
当
n=10
、
100
、
1000
时
π
的值
Private
Sub Form_Click()
Dim n!, pi!
n = 1
pi = 2
Do
While n <> 10
pi = pi * 4 * n * n / ((2
* n - 1) * (2 * n + 1))
'
主要都是识得用通式
n = n + 1
Loop
'
一直循环到
n=10
Print
当
n
=
10
圆周率为
D6
水仙花数
Private Sub Form_Click()