- 博客(14)
- 收藏
- 关注
原创 数组中取十个互不相同的数
Private Sub Command1_Click() Dim a(10) As Integer Dim mystr As String Dim 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-22 20:56:17 437
原创 数的乘法计算
新建一个窗体,插入三个标签,分别为“M”,“N”,“空白”。再插入两个Text,caption为“空白”。应用按钮控件,属性改为“计算”。 在通用声明段输入 Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Tex
2012-05-04 23:12:02 236
原创 会动的圆
用VB绘制图形并使其运动 绘制圆形并运动的程序代码 打开VB6.0程序,新建一个窗体。应用command画出一个按钮,将command的caption属性改为“开始运动”;插入一个timer,将其interval属性改为1000,enabled属性改为FALSE。用shape控件画出一个圆。 Dim g As Boolean Dim x As Long P
2012-05-04 23:11:24 263
原创 100以内素数的和
100以内素数的和 Private Sub Form_Load() Dims As Integer, n As Integer Show s =0: n = 2 Do While n s =s + n n =m Dimx As Integer Dimflag As Boolean x =m - 1 flag= False While x >=
2012-05-04 23:10:32 207
原创 数组的声明及应用
数组的声明及应用 研究问题:求1-100的和 Option Base 1 '设置下界自动为1 Private Sub Command1_Click() Dim a(100) as integer Dim s as integer For i = 1 to 100 a(i)=i Next i s=0 F
2012-05-04 22:44:23 302
原创 利用递归思想解决问题
利用递归思想解决问题 研究问题:求0-100的和 Private Sub Command1_Click() Print Str(f(100)) End Sub Function f(n As Integer) As Integer If n = 1 Then f = 1 Else f = n + f(n - 1) End If End Function 过程的递
2012-05-04 22:43:55 297
原创 动态数组的应用
动态数组的应用 研究问题:实现文字倒序 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=
2012-05-04 22:43:11 183
原创 单精度数据
选用单精度数据,是说你让电脑用较少的空间存放数据,表现为精确到小数点后5位,并且第五个小数还是四舍五入得到的,如果你用双精度定义数据,是说你用较多的空间存放同一个数,表现为小数点后较多的位数,同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。 用单精度型数据和双精度型数据表示13.25。 单精度表示13.25: (13.25)10=1*101+3*100+2*10-1+2*10-2
2012-04-06 19:49:50 657
原创 实现显示各位数
一、实验目的 实现显示各位数 二、实验内容 Dim numberLength asInteger Dim numbers() as Byte numberLength=Len(Text1.text) redimnumbers(numberLength) For index =1 tonumberLength Numbers(index-
2012-04-06 19:48:12 186
原创 实现英文的大小写转换
一、实验目的 实现英文的大小写转换 二、实验内容 1、 建立窗体,再窗体上画一个Lable,输入文字如下:”英文字母如下”,再画出一个Text,再画出三个command按钮,分别输入以下文字”转大写”,”转小写”,”还原”. 2、 编写代码:在通用声明段中输入程序语言,如下: Dim x As string 点击Text编写如下程序: Private Sub Form_l
2012-04-06 19:45:57 326
原创 生成指定范围的随机数
一、实验目的 生成指定范围的随机数 二、实验内容 用Int和Rnd函数生成指定范围的随机数,用Randmise函数初始化随机数发生器;用Val函数将数字字符串转为数值。在窗体放置三个文本框,分别用于随机数的下界和上界,显示生成的随机整数;一个命令按钮用于执行随机整数的生成和显示;三个标签,用于对文本框作简要说明。输入代码如下: Private Sub Command1_Click() D
2012-04-06 19:44:42 764 1
原创 生成能动的图形
一、实验目的 生成能动的图形 二、实验内容 用VB绘制图形并使其运动 绘制圆形并运动的程序代码 Dim g As Boolean Dim x As Long Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() g = True x = Shape1.Left
2012-04-06 19:43:05 213
原创 让程序随机不定时间生成随机种类的图形并生成多个
一、实验目的 让程序随机不定时间生成随机种类的图形并生成多个 二、实验内容 PrivateSub Command1_Click() Timer1.Enabled= True End Sub PrivateSub Timer1_Timer() Randomize Cls Dim MaxX As Long Dim MaxY As Long MaxX
2012-04-06 19:41:53 375
原创 最大公约数
今天的课是关于程序设计的.大体的内容 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 TemparyValu
2012-04-06 19:25:40 261
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人