- 博客(17)
- 收藏
- 关注
RSS订阅
原创 vb输出1000到2000内能同时被17和37整除的数
一·实验目的实现1000到2000内所有能被17和37整除的数。二。实验内容打开vb6.0正式版之后，直接在代码窗口输入以下语言： Private Function judge(N As Integer) As Booleanjudge = (N Mod 17 = 0 And N Mod 37 = 0) End Function Private Sub Fo
2012-04-19 17:42:21
1919
原创 vb程序求出100以内素数的和
一·实验目的实现100以内所有素数的和。二·实验内容打开vb6.0正式版之后，在窗体上画出一个command按钮，点击command按钮，输入以下程序语言：Private Sub Command1_Click()Dim s As IntegerDim n As IntegerDim m As IntegerDim x As IntegerDim flag As
2012-04-19 17:33:30
8726
原创 vb判断生日是星期几
一·实验目的输入生日，让程序判断出你的生日是星期几。二·实验内容1·首先打开vb6·0正式版，在窗体上画出三个label框，分别写上年月日，在分别在后面留上三个text框，在在顶部画上一个label框，写上“请你输入你的生日，让程序判断出你的生日是星期几”再画出一个command按钮，再画出一个label框，让程序输出你的生日是星期几。2·编写程序语言，在通用字段输入以下语言：
2012-04-19 17:18:28
1613
原创 vb两位数相乘程序
一·实验目的 实现两位数相乘。实现两位数的逐一相乘，并实现加法和乘法的进位。例如：27乘以34，4乘以7等于28进2，各位保留下8,2乘以4等于8加上2等于10 ，进1。然后3乘以7等于21，进2,1加上0等于1,2乘以3等于6加上2等于8，加上1等于9结果为0918。二·实验内容 首先打开vb6.0中文版，在窗体上画出三个label,前两个label分别写上n,m,第
2012-03-28 11:52:11
1797
原创 随机生成10个数
一·实验目的使用vb程序实现随机生成十个数。 二·实验内容在vb的窗体上画出一个command按钮，单击command按钮，编写如下程序语言：Private Sub Command1_Click()Me.FontSize = 18Dim a(10) As IntegerDim mystr As String Dim printstr As Stringa
2012-05-14 21:30:26
655
原创 比较十个数的大小
一·实验目的实现十个数的大小比较，最终输出最大的一个数。二·实验内容在对象窗口划出一个command按钮，点击command按钮输入以下vb程序语言：Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim max As IntegerDim c As IntegerDim d As Inte
2012-04-25 22:25:15
866
原创 比较三个数的大小
一·实验目的 实现三个数的大小比较，比较出最大的一个数。二·实验内容 在对象窗口画出一个command按钮，点击command按钮，输入以下vb程序语言：Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim max As IntegerDim c As Integer a
2012-04-25 21:42:38
636
原创 比较两个数的大小
一·实验目的 实现两个数大小的比较，比较出较大的一个数。二·实验内容 在对象窗口划出一个command按钮，点击command按钮输入以下vb程序语言 Private Sub Command1_Click()Dim a As IntegerDim b As Integera = 78b = 489 If a > b Then
2012-04-25 21:09:03
420
原创 vb显示各位数
一·实验目的生成随机数。二·实验内容1. 建立窗体，画出三个label，分别写上：“请输入随机数下界”，“生成随机数上界”，“生成的随机数”。画出一个command按钮，输入“生成随机数”。画出三个text窗体。2. 编写程序如下：Private sub command1_click()Dim m as integerDim n as integer
2012-03-28 20:11:13
455
原创 vb生成随机数
一·实验目的生成随机数。二·实验内容1. 建立窗体，画出三个label，分别写上：“请输入随机数下界”，“生成随机数上界”，“生成的随机数”。画出一个command按钮，输入“生成随机数”。画出三个text窗体。2. 编写程序如下：Private sub command1_click()Dim m as integerDim n as integer
2012-03-28 20:10:26
1985
1
原创 vb实现大小写转换
一·实验目的实现英文字母大小写转换。二·实验内容1. 建立窗体，再创提上画出一个Label,输入文字如下：“英文字母如下：”，再画出一个Text，再画出三个command按钮，分别输入以下文字“转大写”，“转小写”，“还原”。2. 编写代码：在通用生命段中输入程序语言，如下：dim x as string点击Text编写如下程序：Private sub
2012-03-28 20:09:23
3825
原创 vb实现随机图形
一·实验目的 为了实现随机生成不同的图形，满足题目需要，实现vb语言程序的运作，最后画出那令人满意的随机的不同图形。二·实验内容 在窗体上画一个commandbutton按钮，双击按钮编写程序语言，其语言如下：Private Sub Command1_Click()ShowMe.Scale (0, 0)-(18, 8)Me.AutoRedraw = True
2012-03-28 20:07:51
558
原创 vb实现能动图形
一·实验目的 为了对vb语言的运用有更好的把握，同时能够运用vb语言实现不同图形随机的运动。二·实验内容 首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程，语言如下;Dim g As BooleanDim x As Long 再双击开始运动按钮，编写程序
2012-03-28 20:06:57
548
转载 vb实现能动图形
首先，在form1上画出commandbutton,写上开始运动，在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程，语言如下;Dim g As BooleanDim x As Long再双击开始运动按钮，编写程序语言，语言如下：Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub
2012-03-28 11:43:20
356
翻译 程序设计的感想
今天，上了第一节课就是计算机，如果是上学期估计又得昏昏欲睡了，呵呵。。。不过今天确提起了我的兴趣，因为换了一个老师，而且都是南方人，亲切呀！还是说一下学习的感想吧，觉得程序设计挺难的，往往出现问题都在一些小细节，所以以后可得细心了。但现在我们还都是抄老师的程序，以后希望自己也能写程序。
2012-03-28 11:42:49
319
原创 vb实现随机图形
在窗体上画一个commandbutton按钮，双击按钮编写程序语言，其语言如下：Private Sub Command1_Click()ShowMe.Scale (0, 0)-(18, 8)Me.AutoRedraw = TrueMe.DrawMode = 2Circle (3, 4), 3, vbRedMe.AutoRedraw = FalseLine (7, 1
2012-03-28 11:42:22
383
原创 计算机语言
选用单精度数据，是说你让电脑用较少的空间存放数据，表现为精确到小数点后5位，并且第五个小数还是四舍五入得到的，如果你用双精度定义数据，是说你用较多的空间存放同一个数，表现为小数点后较多的位数，同样最后一位仍然是四舍五入得到。这就是区分单双精度的原因。用单精度型数据和双精度型数据表示13.25。单精度表示13.25： (13.25)10=1*101+3*100+2*10-1+2*10-2
2012-03-28 11:41:37
358
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人