yong664764616-优快云博客

原创随机生成十个不同的数

Private Sub Command1_Click() Form_Load End Sub Private Sub Form_Load() Dim a(1 To 10) As Integer Randomize p= "" 'p用来显示随机生成的10个整数 For i = 1 To 10 Do X =

2012-05-19 12:41:42 472

原创随机生成十个不相同的数

Option Explicit Private Sub Command1_Click() Dima(10) As Integer, i As Integer, k As Integer, t As Integer DimFlag As String Dimprintstr As String a(1) = Int(Rnd() * 10

2012-05-11 07:31:05 617

原创求100以内素数的和

Private Sub Form _Click() Dim s As Integer,n as Integer Show S =0 : n=1 Do While n S= s+n n=n+1 Loop Print “1+2+3+…100=”;s End sub

2012-05-11 07:25:22 394

原创实现十个数大小的比较

Dim i(8) As Integer Private Sub Command1_Click() Private Function max() As Integer Dimi(1 To 10) As Integer f(i) = Int(Rnd * 100 + 7) End Function Private Sub Form_Load() Dim

2012-05-11 06:44:16 651

原创实现三个数大小的比较

Private Sub Command1_Click() Dim A As Integer Dim B As Integer Dim C As Integer A = Text1.Text B = Text2.Text C = Text3.Text If A > B Then Max = A Else: Max =

2012-05-11 06:42:33 332

原创实现两个数大小的比较

Private Sub Command1_Click() Dim M As Integer Dim N As Integer M = Val(Text1.Text) N = Val(Text2.Text) If M > N Then Print M Else Print N End If End Sub

2012-05-11 06:40:51 593

原创计算圆的面积的实验步骤

Dim r As Integer Private SubCommand1_Click() r =Val(InputBox("请输入半径", "输入框")) Print Print Print Print Space(5);"半径" & r End Sub Private SubCommand2_Click() Print Sp

2012-05-08 22:29:18 539

原创字母大小写的实验步骤

Dim x As String Private SubCommand1_Click() Text1.Text = UCase(x) End Sub Private SubCommand2_Click() Text1.Text =LCase(x) End Sub Private SubCommand3_Click() Text

2012-05-08 22:25:03 305

原创矩阵元素求和的实现步骤

Dim a(1 To 4, 1 To4) As Integer Private SubCommand1_Click() For i = 1 To 4 For j = 1 To 4 Print a(i, j) Next j Print Next i End Sub Private SubCommand2_Click() Dim s

2012-05-08 21:57:12 1395

翻译文字到叙输出的实现步骤

Dim a() '声明一动态数组 Private SubCommand1_Click() Dim n As Integer Dim wz As String wz = Text1.Text n = Len(wz) ReDim a(1 To n) For i = 1 To n a(i) = Mid(wz, i,1) Next For i =

2012-05-08 21:55:25 153

转载生成指定范围的随机数

Private Sub Command1_Click() Dim m As Integer Dim n As Integer m=Val(Text1.Text) n=Val(Text2.Text) Text3.Text=m+Int(Rnd*(n-m+1)) End Sub Private Sub Form_load() Randomise End Sub

2012-04-26 20:16:46 206

原创生成画圆程序的实现步骤

Private Sub Command1_Click() Form1.Circle (1200,1500),800,vbBlue Text1.Text=”画一个实心圆” End Sub Private Sub Command2_Click() Form1.Cls Text1.Text=”清除实心圆” End Sub Private Sub Command3_Click() End

2012-04-25 17:05:11 749

翻译数据统计计算的实现步骤

Option Base 1 '数组下标从一开始 Dim a(10) As Integer Private Sub Command1_Click() For i = 1 To 10 a(i) = InputBox("输入第" & i & "个数") Next i End Sub Private Sub Command2_Click() Dim max As Integer

2012-04-25 17:01:04 216

yong664764616的专栏