yong664764616-CSDN博客

yong664764616

码龄13年

IP 属地：河北省

查看详细资料

原力等级

当前等级

0

当前总分

0

当月

0

个人成就

获得0次点赞
内容获得0次评论
获得0次收藏

创作活动更多

新星杯·14天创作挑战营·第9期

这是一个以写作博客为目的的创作活动，旨在鼓励大学生博主们挖掘自己的创作潜能，展现自己的写作才华。如果你是一位热爱写作的、想要展现自己创作才华的小伙伴，那么，快来参加吧！我们一起发掘写作的魅力，书写出属于我们的故事。我们诚挚邀请你们参加为期14天的创作挑战赛！注： 1、参赛者可以进入活动群进行交流、分享创作心得，互相鼓励与支持（开卷），答疑及活动群请见 https://bbs.csdn.net/topics/619626357 2、文章质量分查询：https://www.csdn.net/qc

475人参与去参加

搜TA的内容

随机生成十个不同的数

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 ·

随机生成十个不相同的数

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 ·

求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 ·

实现十个数大小的比较

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 ·

实现三个数大小的比较

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 ·

实现两个数大小的比较

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 ·

计算圆的面积的实验步骤

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

发布博客 2012.05.08 ·

字母大小写的实验步骤

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 ·

矩阵元素求和的实现步骤

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 ·

文字到叙输出的实现步骤

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 ·

生成指定范围的随机数

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 ·

生成画圆程序的实现步骤

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 ·

数据统计计算的实现步骤

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 ·