vb.net程序，利用隨機函數(shù)產(chǎn)生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)建站主打移動網(wǎng)站、成都做網(wǎng)站、網(wǎng)站設(shè)計、網(wǎng)站改版、網(wǎng)絡(luò)推廣、網(wǎng)站維護、域名與空間、等互聯(lián)網(wǎng)信息服務(wù)，為各行業(yè)提供服務(wù)。在技術(shù)實力的保障下，我們?yōu)榭蛻舫兄Z穩(wěn)定，放心的服務(wù)，根據(jù)網(wǎng)站的內(nèi)容與功能再決定采用什么樣的設(shè)計。最后，要實現(xiàn)符合網(wǎng)站需求的內(nèi)容、功能與設(shè)計，我們還會規(guī)劃穩(wěn)定安全的技術(shù)方案做保障。

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

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

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

min = 1000 : max = 0 '設(shè)置初值

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

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

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

If a(i) = min Then min = a(i) '如果當(dāng)前數(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è)為控件數(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ù)這個自己做相應(yīng)修改，都做好了，那你就是伸手黨了。

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

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

廣告

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