vb1

n = Val(InputBox("请输入数字", "输入的数字的整数与小数部分位数"))
i = Str$(n)
j = Len(i)
k = InStr(i, ".")
Print "整数部分位数为" & (k - 2)
Print "小数部分为" & (j - k)
For i = 1 To n
Print Tab(n + 1 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
For i = n - 1 To 1 Step -1
Dim i%, j%, t%
For i = 1 To 10
a(i) = Int(Rnd * 100 - 1)
Print a(i)
Next i
Print
For i = 1 To 9
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
t = a(j) = a(j + 1)
X1 = Val(InputBox("请输入一个数："))
y = Sgn(X1)
X2 = Val(InputBox("请输入一个数："))
While X2 <> 0
If Sgn(X2) = y Then Print X2
X2 = Val(InputBox("请输入一个数"))
Wend
End Sub
ave = ave + 0.1 * a(i)
Next i
Picture1.Print "最大数为："; max
Picture1.Print "最小数为："; min
Picture1.Print "平均数为："; ave
Open "d:\data.tax" For Output As #1
Print n
count = count + 1
If count Mod 5 = 0 Then Print
End If
Next n
End Sub
最大公倍数和最小公约数
Private Sub Command1_Click()
Dim m%, n%, t%, r%, mn&
m = Val(Text1.Text)
n = Val(InputBox("请输入行数"))
For i = 1 To n
For j = 1 To i
Print Tab(20 - i + j * 2);
Print "*";
Next j
Do
r = m Mod n
m = n
n = r
Loop While r <> 0
Text3.Text = m
Text4.Text = mn / m
End Sub
冒泡排序
Private Sub Form_click()
DimFor i = 1 To 10
arr(i) = Val(InputBox("输入第" & i & "个数字"))
Print arr(i);
n = Val(Text2.Text)
If m <= 0 Or n <= 0 Then
Text3.Text = "输入错误"
End
End If
mn = m * n
If m < n Then
t = m: m = n: n = t
End If
Write #1, "最大值为" & max, "最小值为" & min
Close #1
End Sub
100以内素数
Private Sub Form_Click()
Dim n As Long, i As Long, flag As Long, r As Long, count As Integer
s = s + n
Print s
Next n
End Sub
杨辉三角
Private Sub Command1_Click()
Dim i%, j%, n%, a() As Long
n = Val(InputBox("请输入一个整数:(绘出其杨辉三角)", "n值输入框"))
ReDim a(n, n)
Print Tab(32 - i * 3 + j * 6); a(i, j);
Next j
Next i
End Sub
人口过26亿
Private Sub Command2_Click()
Dim i&, n&
n = 1
Do
i = 14 * (1 + 0.008) ^ n
n = n + 1
For i = 1 To n
a(i, 1) = 1
a(i, i) = 1
Next i
For i = 2 To n
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j
Next i
For i = 1 To n
For j = 1 To i
Print i
ElseIf i <= 31 And Mid(i ^ 2, 2, 2) = i Then
Print i
End If
Next i
End Sub
菱形
Dim i As Integer, j As Integer, n As Integer
n = Val(InputBox("请输入菱形对角线的长度"))
计算s
Dim i As Single, s As Single, j As Single
i = 1: j = 1: s = 0
While Abs(1 / j > 0.00001)
s = s + i * 1 / j
j = j + 3
i = -i
If x > 0 Then
zs = zs + 1
Else
fs = fs + 1
End If
x = Val(InputBox("请输入整数"))
Wend
Print "正数" & zs&; "个"
Print "负数" & fs&; "个"
End Sub
输出与第一个数符号相同的数
Private Sub Command4_Click()
count = 0
For n = 2 To 100
flag = 0
i = 2
While ((i <= Int(Sqr(n))) And (flag = 0))
r = n Mod i
If r = 0 Then
flag = 1
Else
i = i + 1
End If
Wend
If flag = 0 Then
Timer1.Enabled = False
End Sub
'继续计时
Private Sub Command10_Click()
Timer1.Enabled = True
End Sub
'重新计时
Private Sub Command11_Click()
Next i
End Sub
同构数
Private Sub Command6_Click()
Dim i%
For i = 1 To 100
If i <= 3 And Mid(i ^ 2, 1, 1) = i Then
Print i
ElseIf i <= 9 And Mid(i ^ 2, 2, 1) = i Then
10个整数最大最小值
Private Sub Command1_Click()
Randomize
Picture1.Print "产生的随机数为"
For i = 1 To 10
a(i) = Int(Rnd * 99 + 1)
Picture1.Print a(i)
Next i
Picture1.Print
Print Tab(n + 1 - i);
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
等腰三角
Dim i As Integer, j As Integer, n As Integer
Wend
Print s
输入十个数，求最大值，并将最大与最后换位
Dim arr(1 To 10) As Integer, i As Integer, j As Integer, k As Integer, max As Integer