- 博客(11)
- 收藏
- 关注
原创 数组中取十个互不相同的数
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 17:20:26 514
原创 数的乘法计算
新建一个窗体,插入三个标签,分别为“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 17:19:27 699
原创 会动的圆
用VB绘制图形并使其运动 绘制圆形并运动的程序代码 打开VB6.0程序,新建一个窗体。应用command画出一个按钮,将command的caption属性改为“开始运动”;插入一个timer,将其interval属性改为1000,enabled属性改为FALSE。用shape控件画出一个圆。Dim g As BooleanDim x As Long Pri
2012-05-30 17:18:37 220
原创 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 17:17:46 162
原创 数组的声明及应用
研究问题:求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:17:00 130
原创 利用递归思想解决问题
研究问题:求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:16:24 250
原创 单精度表示13.25
选用单精度数据,是说你让电脑用较少的空间存放数据,表现为精确到小数点后5位,并且第五个小数还是四舍五入得到的,如果你用双精度定义数据,是说你用较多的空间存放同一个数,表现为小数点后较多的位数,同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。用单精度型数据和双精度型数据表示13.25。单精度表示13.25: (13.25)10=1*101+3*100+2*10-1+2*10-2
2012-05-30 17:15:36 291
原创 实现英文的大小写转换
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:14:07 218
原创 最大公约数
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:12:50 130
原创 显示各位小数
1. 1显示各位小数做三位数的显示,在窗体中放置三个标签,并在其属性值中分别输入“个位”,“十位”“百位”,并放置三个文本框,用于显示各位数,一个命令按钮,将其属性值设置为“显示”点击显示个位,十位,百位。2. 编写程序代码:双击命令按钮,输入:Dim star as stringStar=text1.textText2.text=left(stra,1)Tex
2012-03-31 20:22:38 218
原创 画图
1. 随机生成不同的图形 在窗体上画一个commandbutton按钮,双击按钮编写程序语言其语言如下:Private Sub Command1_Click()ShowMe.Scale (0, 0)-(18, 8)Me.AutoRedraw = TrueMe.DrawMode = 2Circle (3, 4), 3, vbRedMe.AutoRedraw =
2012-03-31 20:20:54 141
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人