vb.net程序，利用隨機函數(shù)產生100個1到100之間的整數(shù)，求其中的最大最小值。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

創(chuàng)新互聯(lián)建站主打移動網站、成都做網站、網站設計、網站改版、網絡推廣、網站維護、域名與空間、等互聯(lián)網信息服務，為各行業(yè)提供服務。在技術實力的保障下，我們?yōu)榭蛻舫兄Z穩(wěn)定，放心的服務，根據(jù)網站的內容與功能再決定采用什么樣的設計。最后，要實現(xiàn)符合網站需求的內容、功能與設計，我們還會規(guī)劃穩(wěn)定安全的技術方案做保障。

Randomize() '產生隨機數(shù)種子 以防止每次生成結果都一樣

Dim a(100) As Integer '聲明數(shù)組存放數(shù)據(jù) 用來保存隨機數(shù)結果

Dim max As Integer, min As Integer '聲明兩個變量存最大值和最小值

min = 1000 : max = 0 '設置初值

For i = 0 To 99 '循環(huán)100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一個隨機數(shù) 由于rnd范圍為0-1之間的小數(shù).所以*1000設置他的范圍為0到999之間 加1變成1到1000之間

If a(i) = max Then max = a(i) '如果當前數(shù)值大于最大值的變量就保存

If a(i) = min Then min = a(i) '如果當前數(shù)值小于最小值的變量就保存

Next

MsgBox("最大值為" max)

MsgBox("最小值為" min)

End Sub

我在用VB.net做一個計算程序，遇到一個問題。一個數(shù)15563，需要取出萬位和千位（1500）

dim a as integer

a=15563

萬位=a\10000

千位=a\1000 mod 10

百位=a\100 mod 10

if a mod 105 then 百位+=1

用vb怎么做數(shù)獨程序

你把label控件設為控件數(shù)組：Label1()

Private?Sub?Command1_Click()

Dim?a(9)?As?Integer,?i?As?Integer

Do?While?'這里你的條件實在看不懂，如果對a()沒有限制，就把Do?While?和Loop刪掉

Randomize

For?i?=?1?To?9

a(i)=Int(Rnd*3)+1

Next?i

Loop

For?i=1?to?9

Label1(i).Caption=a(i)

Next?i

End?Sub

VB.NET listbox 題目

For Each i In ListBox1.Items

If ListBox2.Items.Contains(i) = False Then

ListBox3.Items.Add(i)

End If

Next

VB.Net的問題，輸入整數(shù)n，顯示具有n行的楊輝三角形。

參考：

以下為十行的楊輝三角輸出，根據(jù)這個自己做相應修改，都做好了，那你就是伸手黨了。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i, j As Integer

Dim n As Integer

n = 10

Dim dete(n, n) As Integer

Dim sum As Integer

For i = 0 To n

For j = 0 To i

If i = 0 Then

dete(i, j) = 1

ElseIf j = 0 Then

dete(i, j) = 1

ElseIf i = j Then

dete(i, j) = 1

Else

dete(i, j) = dete(i - 1, j - 1) + dete(i - 1, j)

End If

Next

Next

For i = 0 To n

For j = 0 To i

Debug.Write(dete(i, j) " ")

sum += dete(i, j)

Next

Debug.WriteLine(" ")

Next

End Sub

End Class

本文名稱：vbnet數(shù)獨出題,vb數(shù)獨編程
文章位置：http://chinadenli.net/article38/dsshpsp.html

成都網站建設公司_創(chuàng)新互聯(lián)，為您提供移動網站建設、App開發(fā)、定制網站、商城網站、網站設計公司、面包屑導航

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)