yong664764616-优快云博客

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

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

2012-05-19 12:41:42 472

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

Option ExplicitPrivate 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 IntegerShowS =0 : n=1Do While nS= s+nn=n+1LoopPrint “1+2+3+…100=”;sEnd sub

2012-05-11 07:25:22 395

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

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

2012-05-11 06:44:16 653

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

Private Sub Command1_Click() Dim A As IntegerDim B As IntegerDim C As Integer A = Text1.TextB = Text2.TextC = Text3.Text If A > B ThenMax = AElse: Max =

2012-05-11 06:42:33 333

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

Private Sub Command1_Click()Dim M As IntegerDim N As IntegerM = Val(Text1.Text)N = Val(Text2.Text)If M > N ThenPrint MElsePrint NEnd If End Sub

2012-05-11 06:40:51 593

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

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

2012-05-08 22:29:18 539

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

Dim x As StringPrivate 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 IntegerPrivate SubCommand1_Click()For i = 1 To 4For j = 1 To 4Print a(i, j)Next jPrintNext iEnd Sub Private SubCommand2_Click()Dim s

2012-05-08 21:57:12 1395

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

Dim a() '声明一动态数组Private SubCommand1_Click()Dim n As IntegerDim wz As Stringwz = Text1.Textn = Len(wz)ReDim a(1 To n)For i = 1 To na(i) = Mid(wz, i,1)NextFor i =

2012-05-08 21:55:25 153

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

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

2012-04-26 20:16:46 207

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

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

2012-04-25 17:05:11 752

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

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

2012-04-25 17:01:04 216