- 博客(11)
- 收藏
- 关注
RSS订阅原创 随机生成10个随机数并排序
Dim a(1 To 10) As IntegerPrivate Sub Command1_Click()Form_LoadEnd SubPrivate Sub Form_Load()Dim p As String 'p用来显示随机生成的10个随机数Randomize p = ""For i = 1 To 10 '生成10个随机数Dox = Int(Rn
2012-05-16 15:46:05
2951
原创 两个数比较大小，三个数比较大小，十个数比较大小，并输出最大数
两个数的大小Private Sub Command1_Click()Dim a As IntegerDim b As Integer a = 44b = 36 If a >= b ThenPrint aElsePrint bEnd IfEnd Sub三个数的大小Private Sub Command1_Click()Dim a As
2012-04-28 21:45:45
1364
原创 求100以内素数的和
Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n If IsPrimer(n) s = s + n End If n = n + 1 Loop Print "1~100之内的素数的和是：" + St
2012-04-24 21:11:27
371
原创 判断一个数是否是素数
'Label1.Caption = IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi") End SubPrivate Function IsPrimer(n As Integer) As Integer Dim i As Integer For i = 2 To n - 1 If n Mod
2012-04-24 21:07:27
293
原创 关于VB的感想
话说，VB我感觉真难，但是正是因为难才更有动力去学习，富于挑战性。 现在做VB题基本上都是按照书上的输进去，然后出结果的，就是个木头人，不懂VB的一些代码，才造成了VB的不会。我要把课本都看一遍，再加上上机多加练习，活学活用，充分利用手中的资源，尝试自己去编写程序，努力！
2012-03-26 20:17:10
443
原创 VB----随机生成一个不同种类的图形
现画一个command命令按钮，进行粘贴。Private Sub Command1_Click ()ShowMe Scale (0, 0)-(18, 8)Me. Auto redraw =TrueMe. Draw Mode =2Circle (3, 4), 3, VB RedMe. Auto Redraw =falseLine (7, 1) –step (4,
2012-03-26 20:01:53
424
原创 VB---生成随机数，大小写转换，随机生成个位数
一． 实验目的1. 生成随机数2. 实现大小的转换3. 随机生成个位数为了学习到真正的运用VB知识做题，要学会运用如何随机生成随机数，大小写的转换，生成个位数。二． 实验内容1.生成随机数再窗体上放三个文本
2012-03-26 19:59:29
1659
原创 VB实验报告----制作随机图形，制作动画
一：试验目的：1利用vb程序设计语言制作随机图形2利用vb程序设计语言制作动画二：实验内容：1先进行界面分布和相应的属性设置2编写代码如下：1，Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()F
2012-03-26 18:37:49
584
原创 VB
首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程，语言如下;Dim g As BooleanDim x As Long再双击开始运动按钮，编写程序语言，语言如下：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub
2012-03-26 18:30:27
223
原创 第一次VB课
Option ExplicitPrivate Sub Command1_Click()Dim M As IntegerDim N As IntegerM = Int(Val(Text1.Text))N = Int(Val(Text2.Text))Dim TemparyValue As IntegerIf M TemparyValue = NM = NN =
2012-03-26 18:26:40
283
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人