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