题目
用VB编写程序:随机产生三个数,求出其中最小的那个数
提问时间:2020-10-25
答案
Private Sub Form_Click()
Dim i, min, n
Cls
For i = 1 To 3
Randomize
n = Int(Rnd * 100) + 1
Print n,
If i = 1 Then
min = n
Else
If min > n Then min = n
End If
Next
Print vbNewLine & "最小值:"; min
End Sub
Dim i, min, n
Cls
For i = 1 To 3
Randomize
n = Int(Rnd * 100) + 1
Print n,
If i = 1 Then
min = n
Else
If min > n Then min = n
End If
Next
Print vbNewLine & "最小值:"; min
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 15分之1除以(1-3分之1×2分之1)
- 2邹韬奋的《我的母亲》
- 3亚硫酸铜亚硫酸银是不是沉淀
- 4甲乙丙进行口算比赛,甲1分钟算的条数乙要2分钟,丙2分钟算的条数乙要3分钟.现在甲、乙、丙各算了6分钟,三人共算了486条,那么乙1分钟算多少条?
- 5我要寄一封航空信件,在信封的左上角要写寄信人的地址.想请大家教我以下地址的英文写法.XX市XX区XX街道XX街XX巷XX号X座X梯XXX房.
- 6身边的感人故事作文
- 7“宋人或得玉,献诸子罕.”这个出自哪里,COME ON,顺便翻译一下,我没分,大家帮一下
- 8甲、乙、丙三人分苹果,甲分到的事乙的2倍,又是乙的二分之一.求,甲乙丙三人各分得总数的几分之几?
- 9编写算法,判断有向图中是否存在从顶点v出发的简单网络,若有则输出该回路.
- 10(八分之一)的零次方乘四的负二次方乘二的四次方 上海科学技术出版社7年级数学下册习题8.1的第七大题
热门考点
- 1某厂这个月用煤1.6吨,比上个月节约0.4吨,这个月节约了25%.判断题,
- 21²+2²+3²+4².+25²=5525,求
- 3要配置0.01%的高锰酸钾溶液
- 4铝试剂与铝离子反应方程式是什么
- 5已知相切两圆的半径分别为5cm和4cm,这两个圆的圆心距是_.
- 6英语翻译
- 7等比数列{an}中,a1+a2+a3=30,a4+a5+a6==60,求a10+a11+a12.
- 8设奇函数f(x)在[-1,1]上单调函数,且有f(-1)=-1,若函数f(x)≤t^2-2at+1对所有x∈[-1,1]都成立,当a∈[-1,1
- 9面对浪费粮食的行为,我们应该如何去做,结合政治思想.
- 10一辆卡车向建筑工地运送一批水泥,第一天运送了总数的1/4又3吨,第二天运送了余下的1/3又1吨,这时还有11