关闭

开始了吗?已经结束了

学VB半年,至今仍是一头雾水,根源就是自己对书本的知识不了解,学知识比较死板,到现在这个时候,开始了吗?已经结束了...
阅读(87) 评论(0)

随机生成10个随机数并排序

Dim a(1 To 10) As Integer Private Sub Command1_Click() Form_Load End Sub Private Sub Form_Load() Dim p As String 'p用来显示随机生成的10个随机数 Randomize    p = "" For i = 1 To 10 '生成10个随机数 Do x = Int(Rn...
阅读(380) 评论(0)

两个数比较大小,三个数比较大小,十个数比较大小,并输出最大数

两个数的大小 Private Sub Command1_Click() Dim a As Integer Dim b As Integer   a = 44 b = 36   If a >= b Then Print a Else Print b End If End Sub 三个数的大小 Private Sub Command1_Click() Dim a As...
阅读(421) 评论(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...
阅读(96) 评论(0)

判断一个数是否是素数

'Label1.Caption = IIf(IsPrimer(Int(Val(Text2.Text))) = 0, "bushi", "shi")  End Sub Private Function IsPrimer(n As Integer) As Integer    Dim i As Integer    For i = 2 To n - 1        If n Mod...
阅读(83) 评论(0)

关于VB的感想

话说,VB我感觉真难,但是正是因为难才更有动力去学习,富于挑战性。   现在做VB题基本上都是按照书上的输进去,然后出结果的,就是个木头人,不懂VB的一些代码,才造成了VB的不会。我要把课本都看一遍,再加上上机多加练习,活学活用,充分利用手中的资源,尝试自己去编写程序,努力!...
阅读(224) 评论(0)

VB----随机生成一个不同种类的图形

现画一个command命令按钮,进行粘贴。 Private Sub Command1_Click () Show Me Scale (0, 0)-(18, 8) Me. Auto redraw =True Me. Draw Mode =2 Circle (3, 4), 3, VB Red Me. Auto Redraw =false Line (7, 1) –step (4,...
阅读(192) 评论(0)

VB---生成随机数,大小写转换,随机生成个位数

一.                实验目的 1.                 生成随机数 2.                 实现大小的转换 3.                 随机生成个位数 为了学习到真正的运用VB知识做题,要学会运用如何随机生成随机数,大小写的转换,生成个位数。 二.                实验内容 1.生成随机数 再窗体上放三个文本...
阅读(604) 评论(0)

VB实验报告----制作随机图形,制作动画

一:试验目的: 1利用vb程序设计语言制作随机图形 2利用vb程序设计语言制作动画 二:实验内容: 1先进行界面分布和相应的属性设置 2编写代码如下: 1,Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Private Sub Command2_Click() F...
阅读(254) 评论(0)

VB

首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下; Dim g As Boolean Dim x As Long 再双击开始运动按钮,编写程序语言,语言如下: Private Sub Command1_Click() Timer1.Enabled = True End Sub...
阅读(78) 评论(0)

第一次VB课

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 If M TemparyValue = N M = N N =...
阅读(94) 评论(0)
    个人资料
    • 访问:4984次
    • 积分:149
    • 等级:
    • 排名:千里之外
    • 原创:11篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档