Question

关于VB 的几个简单问题

一·模拟一个家庭教师，随即产生一个100以内的加法，并判断结果是大是小还是正确。
说明一下：两个TEXT控件，点开始后在两个TEXT里面分别随机产生两个1到100的数，写入答案，判断是否正确，是大了还是小了，还是正确。
二·打印金字塔图案（循环）
说明：输入一个数为行数，则打印出金字塔。各行分别为A，B，C……到最长的一行后又开始为……C，B，A

Answer 1

一、随机数
Randomize Timer
RndInt = 1 + CInt((100 - 1) * Rnd)
其他很简单
二、先把打印出来的图形想像成一个长是2 * N - 1，宽是N的长方形；第i行字符长度是 2 * (i - 1) + 1；这就好办了，用长方形的长减去这一行的字符长度就是空格数，要对称再除以2就行了
补空格函数:
Function SetBlank(n) As String
Dim Tmp , i
Tmp = ""
For i = 1 To n
Tmp = Tmp & " "
Next
SetBlank = Tmp
End Function

打印的时候就SetBlank((边长-这一行字符数)/2) & “字符” & SetBlank((边长-这一行字符数)/2)

详细吧

Answer 2

参阅我的博客：http://hi.baidu.com/zgmg/blog/item/5afb9e018c75a70f728da508.html
Dim Js As Integer
Private Sub Form_Load()
Show
Js = Js + 1
Form1.Caption = "СÉñͯ µÚ" & Js & "Ìâ"
Randomize (Timer)
Text1 = Int(Rnd() * 99) + 1
Text2 = Int(Rnd() * 99) + 1
Text3 = ""
Text3.SetFocus
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(Text1) + Val(Text2) > Val(Text3) Then
MsgBox Text3 & "СÀ²£¡"
ElseIf Val(Text1) + Val(Text2) < Val(Text3) Then
MsgBox Text3 & "´óÀ²£¡"
Else
MsgBox "·Ç³£ÕýÈ·£¬ÄãÕæ°ô£¡"
Form_Load
End If
Text3 = ""
End If
End Sub

Private Sub Form_Click()
Form1.Top = 10
Form1.Height = 10000
Form1.Width = 4700
Dim I As Integer
For I = Asc("A") To Asc("Z")
For j = 1 To 90 - I
Print " ";
Next j
For j = 1 To 2 * (I - 64) - 1
Print Chr(I);
Next j
Print
Next I
For I = Asc("Y") To Asc("A") Step -1
For j = 1 To 90 - I
Print " ";
Next j
For j = 1 To 2 * (I - 64) - 1
Print Chr(I);
Next j
Print
Next I
End Sub