songyuexiang1-CSDN博客

原创实现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 = 0End Function Private Sub Form

2012-05-26 16:10:36 717

原创计算机Visual Basic学习心得

计算机Visual Basic第一节课学习心得 Step1.开始-----程序----Microsoft visual Basic6.0 中文版启动 VB开发软件 Step2.文件-----新建工程-----"标准的exe”----确定 Step3.绘制界面 Step4.双击“开始计算”按钮，放置如下代码：

2012-05-26 15:42:09 430

原创实验五：能动的图形

实验五：能动的图形一、实验目的生成能动的图形二、实验内容用VB绘制图形并使其运动绘制圆形并运动的程序代码Dim g As BooleanDim x As LongPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()g = True

2012-03-27 21:15:03 248

原创实验四：随机生成图形

实验四：随机生成图形一、实验目的让程序随机不定时间生成随机种类的图形并生成多个二、实验内容Private Sub Command1_Click() Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()Randomize Cls Dim MaxX A

2012-03-27 21:13:55 416

原创实验三：生成随机数

实验三：生成随机数实验目的：1. 了解VB数据类型的基本概念2. 掌握变量的定义方法3. 掌握运算符和表达式用法一．实验内容：生成指定范围内的随机整数。用Int和Rnd函数生成指定范围的随机整数，用randomize函数初始化随机数发生器，用Val函数将数字字符串转换为数值。二．实验步骤：1．在窗体上放置三个文本框并在其后输入三个文本框，分别用

2012-03-27 21:09:48 748

原创实验二：大小写的转换

实验二：大小写的转换一、实验目的：1.明确赋值语句的意义，弄清赋值表达式与判断相等关系表达式的区别。2.熟悉数据的输入与输出的办法，学习使用输入框和消息框。二、实验内容：字母大小写转换。程序运行时单击“转大写”按钮，文本中英文全部转化为大写，单击“转小写”按钮，转为小写，单击“复原”按钮，复原为初始状态。三、实验步骤：1. 在窗体中放置三个命令按钮，在属性值中

2012-03-27 21:06:22 723

原创实验一

实验一：显示各位数一、实验目的：充分认识VB的语言及其能够处理的数据类型。二、实验内容：1. 做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个命令按钮，将其属性值设置为“显示”点击显示个位，十位，百位。2. 编写程序代码:双击命令按钮，输入:Dim star as stringSta

2012-03-27 21:00:39 181

songyuexiang1的专栏