zhanglu4-CSDN博客

原创实验十一：出现、删除

一、实验目的设计一个程序使其新出现一个东西并能删去二、实验内容设计一个程序使其新出现一个东西并能被删除，下面是其具体过程 Dim with.events mytextbox As VB.TextBox Private Sub Command1_Click() Dim myTextBox As VB.TextBox set mytextbox = me.controls.Add

2012-05-30 17:16:26 649

原创试验十：随机生成10个不同的数

一、实验目的：随机生成10个不同的数二、实验内容：下面再写一种随机生成10个不同的数的另一种方法并且分为两部分 Private Sub Command1_Click() n = InputBox(请输入一个正整数） dim str2 As string call getNI

2012-05-17 11:28:26 980

原创实验九：随机生成10个不同的数

一、实验目的随机生成10个不同的数二、实验内容随机生成10个不同的数的具体过程 Private Sub Command1_Click() Dim a(10) as Integer Dim printstr As string a(1) = Int(Rn

2012-05-14 20:22:51 441

原创实验八：给定10个数输出最大值

一实验目的：求从给定的10个数中输出最大值二实验内容：10个数中输出最大值的具体步骤为 Private Sub Command1_Click ( ) Dim f(9) As Integer Dim mystr As String mystr = " " for i = 0 to 9 f(i) = I

2012-05-10 09:31:15 487

原创实验七：三位数输出最大数

一实验目的：求三位数输出最大数二实验内容：求三位数输出最大数的具体步骤为 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer a = 23 b = 89 c = 56

2012-05-10 09:08:12 716

原创实验六：两位数输出最大数

一实验目的：两位数输出最大数二实验内容：实现两位数输出最大值的具体步骤为 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 25 b =2 5 if a > b Then print a else

2012-05-10 08:42:16 380

原创实验五：能动的图形

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

2012-03-27 22:03:15 267

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

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

2012-03-27 21:57:02 418

原创实验三：生成随机数

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

2012-03-27 21:55:10 515

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

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

2012-03-27 21:53:06 864

原创实验一：显示各位数

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

2012-03-27 21:50:56 209