VB的程序代码，达人来帮忙

第一题：在Change事件中进行判断，主要条件是9位学号，前2位年级，第5位类型

Private Sub Text1_Change()

If Len(Text1Text) = 9 Then '等于9位才进行判断

Select Case Left(Trim(Text1Text), 2)'取前2位判断年级

Case "01"

Text2Text = "一年级" '01,02,03代表年级

Case "02"

Text2Text = "二年级"

Case "03"

Text2Text = "三年级"

Case Else

Text2Text = ""

Text3Text = "" '超出范围即无效学号，清空显示

End Select

Select Case Mid(Trim(Text1Text), 5, 1)取第5位判断类型

Case "2"

Text3Text = "博士" '2-博士，3-硕士，4-本科，5-专科

Case "3"

Text3Text = "硕士"

Case "4"

Text3Text = "本科"

Case "5"

Text3Text = "专科"

Case Else

Text2Text = ""

Text3Text = "" '超出范围即无效学号，清空显示

End Select

Else

Text2Text = ""

Text3Text = ""

End If

End Sub

第二题：主要条件是即时转换，对写入及删除产生一个即时效果，大小写及非字字母转换，所以在Change中判断，用ASC、Chrw检测及转换。

Private Sub Text4_Change()

Text5Text = "" '清空显示框

For i = 1 To Len(Text4Text)'取每一位字符

Select Case Asc(Mid(Text4Text, i, 1))'对每一位字符判断

Case 65 To 90 '大写字母

Text5Text = Text5Text & ChrW(Asc(Mid(Text4Text, i, 1)) + 32)'转小写

Case 92 To 122 '小写字母

Text5Text = Text5Text & ChrW(Asc(Mid(Text4Text, i, 1)) - 32)'转大写

Case Else

Text5Text = Text5Text & ""'转星号

End Select

Next

End Sub

第三题：由于用复选框作选择，复选框的值为0或1，数值型，问题条件只是0或255固定值，所以直接乘255就可以满足条件。（建议使用三个滑块，效果更好）

在3个复选框的Click事件中写

Private Sub Check1_Click()

Form1BackColor = RGB(Check1Value 255, Check2Value 255, Check3Value 255)

End Sub

Private Sub Check2_Click()

Form1BackColor = RGB(Check1Value 255, Check2Value 255, Check3Value 255)

End Sub

Private Sub Check3_Click()

Form1BackColor = RGB(Check1Value 255, Check2Value 255, Check3Value 255)

End Sub

在窗体中建立一个文本框text1,multiline属性为true,scrollBars属性为2－vertical

复制进如下代码：

Private

Sub

Form_Load()

Dim

a&,

b$

For

a

=

100

To

200

If

a

Mod

3

=

0

Then

b

=

b

&

Str(a)

Next

a

Text1Text

=

b

End

Sub

---------我是华丽丽的分割线--------

dim

a(1

to

10)

as

long

dim

Temp()

as

long

‘保存能被3整除的数

dim

s

as

string

dim

n

as

integer

for

i=1

to

10

a(i)=inputbox("Please

input

data!")

next

i

for

i=1

to

10

if

(a(i)

mod

2)

then

n=n+1

s=s

&

cstr(a(i))

&

","

end

if

redim

temp(n)

as

long

dim

v

v=split(s,",")

for

i=0

to

ubound(v)

temp(i)=v(i)

next

i

语言实现此程序。

以下是VB编程语言的实现示例：

'定义变量，存储每个奖项的人数

Dim firstPrize As Integer = 3

Dim secondPrize As Integer = 5

Dim thirdPrize As Integer = 12

Dim souvenirPrize As Integer = 10

'定义变量，存储抽奖结果

Dim firstPrizeList As New List(Of Integer)

Dim secondPrizeList As New List(Of Integer)

Dim thirdPrizeList As New List(Of Integer)

Dim souvenirPrizeList As New List(Of Integer)

'定义变量，存储编号滚动的起始编号

Dim currentNum As Integer = 1

'循环抽取各种奖项

For i As Integer = 1 To firstPrize

'抽取一等奖，并将编号添加到一等奖名单中

firstPrizeListAdd(currentNum)

currentNum += 1

Next

For i As Integer = 1 To secondPrize

'抽取二等奖，并将编号添加到二等奖名单中

secondPrizeListAdd(currentNum)

currentNum += 1

Next

For i As Integer = 1 To thirdPrize

'抽取三等奖，并将编号添加到三等奖名单中

thirdPrizeListAdd(currentNum)

currentNum += 1

Next

For i As Integer = 1 To souvenirPrize

'抽取纪念奖，并将编号添加到纪念奖名单中

souvenirPrizeListAdd(currentNum)

currentNum += 1

Next

'输出抽奖结果

ConsoleWriteLine("一等奖名单：" & StringJoin(",", firstPrizeList))

ConsoleWriteLine("二等奖名单：" & StringJoin(",", secondPrizeList))

ConsoleWriteLine("三等奖名单：" & StringJoin(",", thirdPrizeList))

ConsoleWriteLine("纪念奖名单：" & StringJoin(",", souvenirPrizeList))

Dim stra5$

Dim a&, b&, c&, d&, e&, f&, i&

stra5 = "x10,y20,z30,u40,v50,w60"

mystr = Split(stra5, ",")

For i = 0 To UBound(mystr)

If Mid(mystr(i), 1, 1) = "x" Then a = Mid(mystr(i), 2)

If Mid(mystr(i), 1, 1) = "y" Then b = Mid(mystr(i), 2)

If Mid(mystr(i), 1, 1) = "z" Then c = Mid(mystr(i), 2)

If Mid(mystr(i), 1, 1) = "u" Then d = Mid(mystr(i), 2)

If Mid(mystr(i), 1, 1) = "v" Then e = Mid(mystr(i), 2)

If Mid(mystr(i), 1, 1) = "w" Then f = Mid(mystr(i), 2)

Next

Private Sub Command1_Click()

s = InputBox("请输入30个字符：")

For i = 1 To 30

c = Mid(s, i, 1)

Select Case c

Case "A" To "Z", "a" To "z"

zm = zm + 1

Case "0" To 9

num = num + 1

Case Else

other = other + 1

End Select

Next i

Print "数字："; num

Print "字母："; zm

Print "其它字符："; other

End Sub

Private Sub Command1_Click()

Dim a(10)

Randomize

Dim sum As Integer, min As Integer, max As Integer

sum = 0: min = 100: max = 30

For i = 0 To 9

a(i) = Int(30 + (71 Rnd))

sum = sum + a(i)

If a(i) < min Then min = a(i)

If a(i) > max Then max = a(i)

Print a(i),

Next i

Print vbCrLf & "最大值:"; max

Print "最小值:"; min

Print "平均值:"; sum / 10

End Sub

拿第3步举例：

for x=1 to 5

temp=a(1,x)

a(1,x)=a(3,x)

a(3,x)=temp

next x

就是用类似冒泡排序的思想。

下面的代码是利用三边计算三角形面积

Private Sub Command1_Click()

a=val(text1text)

b=val(text2text)

c=val(text3text)

p=(a+b+c)/2

s=sqr(p(p-a)(p-b)(p-c))

if a+b>c and b+c>a and a+c>b then

text4text="三角形的面积是:" & s

else

text4text="不能构成三角形"

end if

end sub

下面是计算两数之和的代码

private sub command1_click()

a=val(text1text)

b=val(text2text)

text3text=a+b

end sub

以上就是关于VB的程序代码，达人来帮忙全部的内容，包括:VB的程序代码，达人来帮忙、用VB编写程序、VB编程年会抽奖代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！