- 博客(5)
- 收藏
- 关注
原创 多位数乘法计算
Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte
2012-03-28 11:49:19 707
原创 四、生成随即图形
一、 实验目的让程序随机不定时间生成随机种类的图形并生成多个二、 实验内容Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub Private Sub Timer1_Timer()Randomize Cls Dim MaxX As Long Dim MaxY As Long
2012-03-27 22:15:54 250
原创 三,生成随机数
一、实验目的:1. 了解vb数据类型的基本概念2. 掌握变量的定义方法3. 掌握运算符和表达式用法二、 实验内容:生成指定范围内的随机整数。用int和rnd函数生成指定范围的随机整数,用randomize函数初始化随机数发生器,用val函数将数字字符串转换为数值。三、 实验步骤:1. 在窗体上放置三个文本框并在其后输入三个文本框,分别用于输入随机数的下界和上界,
2012-03-27 22:12:40 392
原创 二,大小写的转换
一、实验目的:1.明确赋值语句的意义,弄清赋值表达式与判断相等关系表达式的区别。2.熟悉数据的输入与输出的办法,学习使用输入框和消息框。二、实验内容: 字母大小写转换。程序运行时单击“转大写”按钮,文本中英文全部转化为大写,单击“转小写”按钮,转为小写,单击“复原”按钮,复原为初始状态。三、 实验步骤:1. 在窗体中放置三个命令按钮,在属性值中分别输入“转大写”“转小写
2012-03-27 22:11:28 470
原创 一,显示各位数
一、实验目的:充分认识vb的语言及其能够处理的数据类型,掌握此程序的编写及应用。二、 实验内容:1. 做三位数的显示,在窗体中放置三个标签,并在其属性值中分别输入“个位”,“十位”“百位”,并放置三个文本框,用于显示各位数,一个命令按钮,将其属性值设置为“显示”点击显示个位,十位,百位。2. 编写程序代码:双击命令按钮,输入:Dim star as stringSta
2012-03-27 22:10:21 213
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人