- 博客(15)
- 收藏
- 关注
RSS订阅原创 求最大公约数
Option Explicit Private Sub Command1_Click() Dim M As Integer Dim N As Integer M = Int(Val(Text1.Text)) N = Int(Val(Text2.Text)) Dim TemparyValue As Integer I
2012-05-30 17:08:58
173
原创 让程序随机不定时间生成随机种类的图形并生成多个
PrivateSub Command1_Click()Timer1.Enabled= TrueEnd SubPrivateSub Timer1_Timer()Randomize Cls Dim MaxX As Long Dim MaxY As Long MaxX = Form1.ScaleWidth MaxY = Form1.Sca
2012-05-30 17:08:01
173
原创 生成指定范围的随机数
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 Sub在空白处双击，编写程序如下：Private sub form_load()RandomizeEnd
2012-05-30 17:06:01
213
原创 实现英文的大小写转换
Dim x As string点击Text编写如下程序：Private Sub Form_load()x=text1.textEnd Sub点击command1按钮，编写程序语言如下：Private sub command1_Click（）Text1.text=Ucase(x)End sub点击command2按钮，编写程序语言如下：Private sub
2012-05-30 17:04:48
216
原创 实现显示各位数
Dim numberLength asInteger Dim numbers() as Byte numberLength=Len(Text1.text) redimnumbers(numberLength) For index =1 tonumberLength Numbers(index-1)=mid(Text1.text) Next
2012-05-30 17:03:44
178
原创 用单精度表示13.25
选用单精度数据，是说你让电脑用较少的空间存放数据，表现为精确到小数点后5位，并且第五个小数还是四舍五入得到的，如果你用双精度定义数据，是说你用较多的空间存放同一个数，表现为小数点后较多的位数，同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。用单精度型数据和双精度型数据表示13.25。单精度表示13.25： (13.25)10=1*101+3*100+2*10-1+2*10-2
2012-05-30 17:03:02
555
原创 动态数组的应用
研究问题：实现文字倒序Dim a() '声明一动态数组Private Sub Command1_Click() Dim n as integer Dim wz as String wz=Text1.text n=Len(wz) '取字符串wz的长度 Redim a(1 to n) '指定数组的大小 For i=1 to n
2012-05-30 17:02:03
152
原创 用递归解决问题
求0-100的和Private Sub Command1_Click()Print Str(f(100))End SubFunction f(n As Integer) As IntegerIf n = 1 Then f = 1Else f = n + f(n - 1)End IfEnd Function
2012-05-30 17:01:02
137
原创 数组的声明及应用
研究问题：求1-100的和Option Base 1 '设置下界自动为1Private Sub Command1_Click（） Dim a(100) as integer Dim s as integer For i = 1 to 100 a(i)=i Next i s=0 For i=1 to
2012-05-30 17:00:02
121
原创 100以内素数的和
100以内素数的和Private Sub Form_Load() Dims As Integer, n As IntegerShow s =0: n = 2Do While n s =s + n n =m Dimx As Integer Dimflag As Boolean x =m - 1 flag= FalseWhile x >=
2012-05-30 16:59:12
148
原创 生成会动的圆
用VB绘制图形并使其运动 绘制圆形并运动的程序代码 打开VB6.0程序，新建一个窗体。应用command画出一个按钮，将command的caption属性改为“开始运动”；插入一个timer,将其interval属性改为1000，enabled属性改为FALSE。用shape控件画出一个圆。Dim g As BooleanDim x As Long Pri
2012-05-30 16:58:07
216
原创 数的乘法计算
新建一个窗体，插入三个标签，分别为“M”,“N”,“空白”。再插入两个Text，caption为“空白”。应用按钮控件，属性改为“计算”。 在通用声明段输入Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Tex
2012-05-30 16:57:03
155
原创 数组中取十个不相同的小数
Private Sub Command1_Click()Dim a(10) As IntegerDim mystr As StringDim printstr As String a(1) = Int(Rnd() * 100 + 1) printstr = Str(a(1)) For i = 2 To 10 t = Int(Rnd() * 100 + 1
2012-05-30 16:55:30
224
原创 生成能动图形
Dim gAs BooleanDim xAs Long 再双击开始运动按钮，编写程序语言PrivateSub Command1_Click()Timer1.Enabled= TrueEnd Sub 再双击窗体，编写程序语言Private Sub Form_Load()g = Truex = Shape1.LeftEnd Sub 再双击闹
2012-05-30 16:53:50
164
原创 随机生成不同的图形
Private Sub Command1_Click()ShowMe.Scale (0, 0)-(18, 8)Me.AutoRedraw = TrueMe.DrawMode = 2Circle (3, 4), 3, vbRedMe.AutoRedraw = FalseLine (7, 1)-Step(4, 6), vbGreen, BLine (13, 7)-Ste
2012-05-30 16:50:10
197
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人