早教吧作业答案频道 -->其他-->
vb.net程序设计:包括三个过程1事件过程form1用inputbox输入10个数,2函数过程求最大值,3button调用过程运用循环,显示出10个框要自己输入10个数.请兄弟姐妹们,感激不尽!
题目详情
vb.net程序设计:包括三个过程1事件过程form1用inputbox输入10个数,2函数过程求最大值,3button调用过程
运用循环,显示出10个框要自己输入10个数.
请兄弟姐妹们,感激不尽!
运用循环,显示出10个框要自己输入10个数.
请兄弟姐妹们,感激不尽!
▼优质解答
答案和解析
整数判断还是含有小数?整数判断:
Dim A(9) As Integer
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
For i = 0 To 9
A(i) = Val(InputBox("输入一个数字","输入"))
Debug.WriteLine("第" & i + 1 & "个数:" & A(i))
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Debug.WriteLine("最大数为:" & jisuan(A))
End Sub
Private Function jisuan(ByVal shuzu() As Integer) As Integer
Dim max As Integer
For i = 0 To shuzu.Length - 1
If shuzu(i) > max Then max = shuzu(i)
Next
Return max
End Function
Dim A(9) As Integer
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
For i = 0 To 9
A(i) = Val(InputBox("输入一个数字","输入"))
Debug.WriteLine("第" & i + 1 & "个数:" & A(i))
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Debug.WriteLine("最大数为:" & jisuan(A))
End Sub
Private Function jisuan(ByVal shuzu() As Integer) As Integer
Dim max As Integer
For i = 0 To shuzu.Length - 1
If shuzu(i) > max Then max = shuzu(i)
Next
Return max
End Function
看了 vb.net程序设计:包括三...的网友还看了以下:
设函数f(x)连续,且满足f(x)=e^x+∫(0.x)uf(u)du-x∫(0.x)f(u)du 2020-04-27 …
求特征值和特征向量三阶矩阵数值皆为1,一行(111)二行(111)三行(111)按(λE-A)x= 2020-05-14 …
设a>0,f(x)=e^x/a+a/e^x是R上的偶函数,求a值.∵f(x)=e^x/a+a/e^ 2020-05-17 …
设A是数域P上的n阶方阵,令W1={X∈P^n|(A-E)X=0},W2={X∈P^n|(A+E) 2020-06-17 …
已知随机变量X的数学期望E(X)存在,则下列等式中不恒成立的是()已知随机变量X的数学期望E(X) 2020-07-25 …
设X是均值为1/λ的指数随机变量,即fX(x)=λe-λx,0<x求E[X|X>1]. 2020-07-30 …
已知定义在R上的奇函数f(x)满足f(1)=e(e为自然对数的底数),且当x≥0时,有(x-1)f 2020-08-01 …
计算题(求下列曲线围成的平面图形面积)(1)xy=6,x+y=7(2)y=lnx,y=0,x=e; 2020-08-02 …
∫(-1,0)1+x^2dx+∫(0,1)e^(-x)dx到x+x^3/3|(-1,0)-e^(-x 2020-11-01 …
在数学期望中,E(X^2)=0可得P{X=0}=1,从而得E(X)=0,这个推理正确吗? 2020-11-21 …