1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include
#include
#include
#define PI 3.14
floatarea(intdata);
intmain(void)
{
inti;
floatnum;
scanf(＂%d＂,&i);
num=area(i);
printf（＂面积%f:＂,num）;
}
floatarea(intdata)
{
inttest;
floath;
tset=data;
h=PI*pow(test,2);
returnh;
}
1
Dim a As Byte
Dim b As Byte '回车次数
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 100 + 1)
Command1.Enabled = False
b = 0
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Command1.Enabled = False Then
If b = 10 Then
Label2.Caption = ＂运气真差！请重新出题！＂
Text1.Enabeld = False
Command1.Enabled = True
Exit Sub
End If
If Val(Text1.Text) = a Then
Command1.Enabled = True
Label2.Caption = ＂正确＂
ElseIf Val(Text1.Text) Label2.Caption = ＂太小＂
b = b + 1
ElseIf Val(Text1.Text) > a Then
Label2.Caption = ＂太大＂
b = b + 1
End If
End If
End Sub
Dim v As Boolean
Dim s As Integer
Dim X As Double
Dim Y As Double
Private Sub Command1_Click(Index As Integer)
If Form1.Tag = ＂T＂ Then
If Index = 10 Then
Text1.Text = ＂0＂
Else
Text1.Text = Command1(Index).Caption
End If
Form1.Tag = ＂＂
Else
Text1.Text = Text1.Text & Command1(Index).Caption
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Form1.Tag = ＂T＂
If v Then
X = Val(Text1.Text)
v = Not v
Else
Y = Val(Text1.Text)
Select Case s
Case 0
Text1.Text = X + Y
Case 1
Text1.Text = X - Y
Case 2
Text1.Text = X * Y
Case 3
If Y <> 0 Then
Text1.Text = X / Y
Else
MsgBox （＂不能以0为除数＂）
Text1.Text = X
v = False
End If
Case 4
Y = 0
v = False
End Select
X = Val(Text1.Text)
End If
s = Index
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
控件自己添加吧，空间名要和代码名一致
