- 博客(6)
- 收藏
- 关注
RSS订阅原创 两个数的乘法
Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim Number2() As Byte ReDim
2012-03-28 11:38:55
286
原创 几个实验之五
实验五：能动的图形 一、 实验目的 用VB绘制图形并使其运动 绘制圆形并运动的程序代码实验内容 二、 实验步骤 在窗体中使用了一个按钮、一个计时器，并且用shape控件绘制了一个圆。 Dim g As Boolean Dim x As Long Private Sub Command1_Click() Timer1.Enabled = True End
2012-03-27 22:37:42
186
原创 几个实验之四
实验四：随机生成图形 一、 实验目的 让程序随机不定时间生成随机种类的图形并生成多个 二、 实验内容 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Randomize Cls Dim MaxX As Long
2012-03-27 22:36:42
229
原创 几个实验之三
实验三：生成随机数 一、实验目的： 1. 了解vb数据类型的基本概念 2. 掌握变量的定义方法 3. 掌握运算符和表达式用法 二、 实验内容： 生成指定范围内的随机整数。用int和rnd函数生成指定范围的随机整数，用randomize函数初始化随机数发生器，用val函数将数字字符串转换为数值。 三、 实验步骤： 1． 在窗体上放置三个文本框并在其后输入三个文本框，分别用于输
2012-03-27 22:35:07
218
原创 几个实验之二
实验二：大小写的转换 一、实验目的： 1.明确赋值语句的意义，弄清赋值表达式与判断相等关系表达式的区别。 2.熟悉数据的输入与输出的办法，学习使用输入框和消息框。 二、实验内容： 字母大小写转换。程序运行时单击“转大写”按钮，文本中英文全部转化为大写，单击“转小写”按钮，转为小写，单击“复原”按钮，复原为初始状态。 三、 实验步骤： 1. 在窗体中放置三个命令按钮，在属性值中分
2012-03-27 22:33:19
176
原创 几个实验之一
实验一：显示各位数 一、实验目的： 充分认识vb的语言及其能够处理的数据类型，掌握此程序的编写及应用。 二、 实验内容： 1. 做三位数的显示，在窗体中放置三个标签，并在其属性值中分别输入“个位”，“十位”“百位”，并放置三个文本框，用于显示各位数，一个命令按钮，将其属性值设置为“显示”点击显示个位，十位，百位。 2. 编写程序代码: 双击命令按钮，输入: Dim star as
2012-03-27 22:31:55
159
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人