早教吧作业答案频道 -->其他-->
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程序设计:包括三...的网友还看了以下:
在Windows98的保护模式下,系统使用了386处理器保护环的两环,即0环和3环。在下列所述类型的 2020-05-24 …
在Windows 98的保护模式下,系统使用了386处理器保护环的两环,即0环和3环。在下列所述类型 2020-05-24 …
某个学生参加军训,进行打靶训练,射击10次,在第6~9次射击中,分别得了9.0环、8.4环、8.1 2020-06-22 …
一个射箭运动员在练习时只记射中9环和10环的成绩,未击中9环或10环就以0环记.该运动员在练习时击 2020-07-29 …
测凸透镜曲率半径时,在读数过程中,为什么先从0环转至45环,再倒回40环开始测量 2020-07-31 …
若曲线f(x,y)=0上两个不同点处的切线重合,则称这条切线为曲线f(x,y)=0的“自公切线”, 2020-08-01 …
尽管我国已进入工业化中期,但环境污染的“拐点”不会自然到来,需各方齐心协力,共同治理。阅读材料,回答 2020-11-06 …
VB编程循环嵌套求高手告诉代码!总共3题都要分支循环的综合应用一、输入一个自然数x,求这个自然数的所 2020-11-17 …
小明参加了军事夏令营,要进行打靶测试.按规定,每人射击10次,10次的平均成绩不少于6.0环,成绩合 2020-11-24 …
下列判断不正确的是()A.画工序流程图类似于算法的流程图,自顶向下逐步细化B.工序流程图中的流程线表 2020-12-01 …