vb编程100例,vb代码编程实例

用VB编写男子100m短跑共有10人参加,打印出前三名运动员的名次、号码和...

1、可以输入以下公式：=IF（LEN（C2）=15，IF（MOD（MID（C2，15，1），2）=1，男，女），IF（MOD（MID（C2，17，1），2）=1，男，女）公式内的“C2”代表的是输入身份证号码的单元格。

2、跳水比赛一般设男、女跳板跳水和跳台跳水4个项目。跳板跳水比赛，可在1米或3米的跳板上进行。

3、正常情况下跑到是8人一组，1~9~117~225~28可以分为4组（前三组8人一组，最后一组4人一组，因为是抽签决定顺序，所以完全公平合理），首先进行预赛，取每组前两名出现，然后4组共计8人再进行决赛。

4、男女分别取前三名。（四）、急行跳远场地器材：沙坑场地1个、长5米宽3米踏板1块（板长120CM，宽30CM，厚5CM）、7米钢尺1根、镐一把。裁判3人：检录记录1名、判犯规发令拉尺报成绩2名。

vb程序设计实例100

1、Private Sub Form_Activate（）1年期25%，2年期43%，3年期为70%，5年期为88%（不记复利）。

2、编写产生随机整数的Function过程，调用该过程输出30个1～100之内的随机数。

3、首先需要启动VB0，新建一个标准exe工程。打开VB0之后，在窗体上绘制一个命令按钮。接下来需要双击命令按钮进入代码窗口。接下来开始编辑按钮的单击事件。最后就可以按F5运行测试。

4、程序界面 先把登录的界面设计好（输入用户名的是text1，输入密码的是text2）把text2的passwordchar值设为“*”，这样当用户输入密码时，显示的字符就是“*”了。

VB编程:输出1~100之间所有素数

输出1-100以内的素数：同样，也是输出1-100以内的素数，这个构造一个数组，将其所有元素初始化为1，表示素数，这时取x从2开始，到100以内做循环。

我给你个程序，可以求出任意正整数M到正整数N之间的所有质数。

k = k + 1 If k Mod 5 = 0 Then Print End If End If Next i 这个程序我以上机运行过，中间我加入了一段程序K，这段程序的作用是在输出时每5个一行输出，这样你就可以在界面上看到200以内的全部素数了。

vb编程:找出一维数组中负数的最大值和正数的最小值

Print 最大值：； Max；Print 最小值：； Min； 平均值：； s / 20 End Sub 然后点击工具栏中的“运行”图标。然后就完成了。

Next MsgBox s & vbCrLf & 最大值为： & max & 最小值为： & min End Sub 如果不给max，min赋值第一个输入的整数 结果是不正确的。

min Then min = x（i）LabelCaption = LabelCaption & x（i） & Next i LabelCaption = LabelCaption & vbCrlf & Max= & max & Min= & min 还有你没有说什么是“交换最大值”。

思路，把三个数存放到变量x，y，z，里，然后按照从大到小排列，最后x里是最大值，z里是最小值。

VB编程产生100个0-100之间的随机整数找出其中能被3整除的数,并且按由...

a = Int（Rnd * 100 + 1）Nrep（a） = Nrep（a） + 1 Debug.Print a；Next Debug.Print For i = 1 To 100 If Nrep（i） = 3 Then Print i；Next i Print End Sub BTW， 楼上求得是出现4次的结果。

方法一：传统方法，计算100到999间每个数除以3的余数，如果是0，则输出到屏幕。

因此要产生1~100之间的随机数，可以使用Rnd*98，产生的是[0，98）的随机数，而int（Rnd*98）产生的是[0，97]之间的随机整数，那么int（Rnd*98）+2产生的就是[2，99]之间的随机整数了，符合目标1到100之间的随机数目的。

用VB编写一个计算器程序的代码

打开VB，新建一个EXE文件。02 画上四个方框，表示运算法则（即加减乘除四项），3个文本控件表示数，一个标签控件为“=”。并对控件进行命名。

Dim NumOps As Integer 操作数个数。Dim LastInput 指示上一次按键事件的类型。Dim OpFlag 指示未完成的操作。Dim TempReadout C （取消） 按钮的 Click 事件过程 重新设置显示并初始化变量。

我们现在要text也要拉出三个，把了text里面texttexttext3全部删掉。

这是我改的程序，看不懂的可以加我QQ（381340316）留言● 计算器VB程序 这个程序包括5个单选按钮，12个命令按钮和一个文本框。 如果你学了数组以后，10个数字键就可以打一行代码了。

添加btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）六个按钮。

MsgBox 正常的加减乘除都是正常的，当你使用混合加减乘除时。切记，必须要先写上你要乘，除，加，减或二次方的数字再点击加减乘除符号，否则会造成数据复位，前面的会白算的，这与计算器是一个道理。

标签：编程实例代码100vb