![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
qiyexue116
平凡
展开
-
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 · 548 阅读 · 0 评论 -
随机生成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 · 2847 阅读 · 0 评论 -
两个数比较大小,三个数比较大小,十个数比较大小,并输出最大数
两个数的大小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 · 1302 阅读 · 0 评论 -
求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 · 348 阅读 · 0 评论 -
判断一个数是否是素数
'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 · 264 阅读 · 0 评论 -
关于VB的感想
话说,VB我感觉真难,但是正是因为难才更有动力去学习,富于挑战性。 现在做VB题基本上都是按照书上的输进去,然后出结果的,就是个木头人,不懂VB的一些代码,才造成了VB的不会。我要把课本都看一遍,再加上上机多加练习,活学活用,充分利用手中的资源,尝试自己去编写程序,努力!原创 2012-03-26 20:17:10 · 423 阅读 · 0 评论 -
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 · 388 阅读 · 0 评论 -
VB---生成随机数,大小写转换,随机生成个位数
一. 实验目的1. 生成随机数2. 实现大小的转换3. 随机生成个位数为了学习到真正的运用VB知识做题,要学会运用如何随机生成随机数,大小写的转换,生成个位数。二. 实验内容1.生成随机数再窗体上放三个文本原创 2012-03-26 19:59:29 · 1608 阅读 · 0 评论 -
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 · 199 阅读 · 0 评论 -
第一次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 · 256 阅读 · 0 评论 -
开始了吗?已经结束了
学VB半年,至今仍是一头雾水,根源就是自己对书本的知识不了解,学知识比较死板,到现在这个时候,开始了吗?已经结束了原创 2012-05-16 16:05:51 · 272 阅读 · 0 评论