vb.net題目 vb試題庫(kù)

VB.NET的題目哈 隨機(jī)產(chǎn)生20個(gè)大寫字母，求出現(xiàn)次數(shù)最多的字母及出現(xiàn)次數(shù)，還有求出現(xiàn)次數(shù)為0的字母有哪些

Imports System.Text.RegularExpressions

成都創(chuàng)新互聯(lián)公司主營(yíng)平羅網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,app開發(fā)定制,平羅h5重慶小程序開發(fā)搭建,平羅網(wǎng)站營(yíng)銷推廣歡迎平羅等地區(qū)企業(yè)咨詢

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Dim g() As Char = a.ToCharArray

Dim MyRandom As New Random

Dim bs As String = ""

For i = 1 To 20

bs = g(MyRandom.Next(0, g.GetUpperBound(0) + 1))

Next

Dim gs() As String = (From mt As Match In Regex.Matches(bs, "[A-Z]") Select mt.Value).ToArray

System.Array.Sort(gs)

gs = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Value).ToArray

Dim g_len() As Integer

g_len = (From mt As Match In Regex.Matches(Join(gs, ""), "([A-Z])\1*") Select mt.Length).ToArray ' 使用數(shù)組元素作為計(jì)數(shù)器g_len

System.Array.Sort(g_len, gs)

Label1.Text = "出現(xiàn)次數(shù)最多的字母：" gs(gs.GetUpperBound(0)).Substring(0, 1) " 共出現(xiàn)" g_len(g_len.GetUpperBound(0)) "次" vbCrLf "沒(méi)有出現(xiàn)的字母是：" Join(a.Split(bs.ToCharArray), "")

End Sub

End Class

用VB.NET程序編寫代碼

Delphi代碼如下：

procedure?TForm1.Button1Click(Sender:?TObject);

var

購(gòu)物總價(jià):Integer;

折扣:Extended;

begin

購(gòu)物總價(jià):=StrToInt(Edit1.Text);

if?購(gòu)物總價(jià)250?then

begin

折扣:=0;

end

else?if?購(gòu)物總價(jià)500?then

begin

折扣:=0.05;

end

else?if?購(gòu)物總價(jià)1000?then

begin

折扣:=0.075;

end

else?if?購(gòu)物總價(jià)2000?then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else?if?購(gòu)物總價(jià)3000?then

begin

折扣:=0.05;

end

}

else?if?購(gòu)物總價(jià)=3000?then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+'?原價(jià)：'+IntToStr(購(gòu)物總價(jià))

+'?折后總價(jià)：'+FloatToStr(購(gòu)物總價(jià)*(1-折扣)));

end;

vb.net 數(shù)組顯示矩陣的一道題

'這是在vb6中的代碼，在vb.net中基本差不多，你可以參考一下

Private Sub cmdCommand1_Click()

Me.AutoRedraw = True

Dim Grp

Grp = Array(1, 2, 3, 4, 5)

Dim i, j As Long

Dim StrPrt As String

For i = 0 To UBound(Grp)

'i為位移量

StrPrt = ""

For j = i To UBound(Grp)

StrPrt = StrPrt Grp(j)

Next j

For j = 0 To i - 1

StrPrt = StrPrt Grp(j)

Next j

Me.Print StrPrt

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的題目 利用隨機(jī)數(shù)生成兩個(gè)4*4的矩陣A~~緊急緊急

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

MsgBox(Int(Rnd() * 10))

Dim n As Integer = 4

Dim i, a As Integer

Dim r As String

Randomize()

For i = 1 To n

r = Int(Rnd() * 10)

Label1.Text = Space(n - i + 1) StrDup(i, r) + vbNewLine

Next i

For i = n To 1 Step -1

r = Int(Rnd() * 10)

Label1.Text = Space(n - i + 1) StrDup(i, r) + vbNewLine

Next i

For Each c In Label1.Text

If IsNumeric(c) Then

a += 1

End If

Next

MsgBox(a) ‘主對(duì)角線和次對(duì)角線上各元素之和

End Sub

另一個(gè)矩陣也是用同樣方法.

你說(shuō)的是不是這樣?

文章標(biāo)題：vb.net題目 vb試題庫(kù)
標(biāo)題URL：http://muchs.cn/article46/hjohhg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、品牌網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站營(yíng)銷、企業(yè)建站

廣告

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