admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：cancel的意思)

第一题

设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n

的随机整数，并分别显示在3个标签中。

程序如下：

Private Sub Form_Load() ‘加载

Dim n As Integer, a As Integer ‘定义随机变量

Dim b As Integer, c As Integer

Randomize ‘使rnd函数产生不同序列的随机数

n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框

供用户输入数值

a = Int(n * Rnd) ‘在小于n的数内随机选取一树值“下同”

b = Int(n * Rnd)

c = Int(n * Rnd)

n = a ‘随机选取的数值n显示在标签上面“下同”

n = b

n = c

End Sub ‘结束运行

第二题

设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，

单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值

的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个

数为一组）进行比较，再从两组数中的较大数中求出最大数.


本文标签： 文本框 处理 输入 按钮 数值

版权声明：本文标题：VB语言程序设计 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711495842a596954.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。