【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“vb编写程序 - 计算机教材”一文，供大家参考学习!

1．设计具有百分制成绩到等级成绩转换功能的程序。

    输入一个百分制的成绩，要求输出成绩的等级A、B、C、D。

    90分以上输出A，8089分输出B，6079分输出C 60分以下输出D。

    程序运行界面见下图。

     2．用键盘输入下列正整数：1211、2、2323、2333、4443、1111、0（“0”做为输入结束标记），并存入到数组中，然后将其中恰含有3个相同数字（另一个数字与它们不同）的四位数显示在窗体上。

     3．编写一个Function过程ODD，用于判断一个数是否是奇数。

    当单击命令按钮时，随机产生一个二位数，调用ODD过程，判断该数是否是奇数。

    如果是奇数，则显示True否则显示False. 4．用输入对话框输入一个字符串，求出其中数字、字母和其他字符出现的个数。

     5．用输入对话框输入10名同学的学习成绩，求出其中的最高分、最低分和平均成绩 6．用公式 计算e的近似值，直到某项小于10-7为止。

     7．编写求两个数的最大公约数的Function过程gcd。

     8．编写程序，打印如下图形： 9．用文本框（txtin）输入一行数字，按相反的顺序输出。

     10．产生m个1099之间的随机整数，求出其中的素数，并求出素数中的最大值、最小值和平均值。

     11．随机生成12个两位正整数，分别赋给一个3×4的数组，找出每一行中的最大元素，并输出。

     12．数据的逆置。

    程序运行时随机产生10个两位整数显示在标签（lblData）中；单击“逆置”按钮（cmdBack），将各数据按逆序重新放入原数组中并显示在标签（lblResult）中。

     13．程序运行时，单击“产生数据” 按钮（cmdData），随机产生20个0100之间的整数显示??????????????????????????13121111ne在窗体上部；单击“排序” 按钮（cmdSort），将排序后的数据显示在窗体下部。

     1． Private Sub cmdok_Click Dim d As Integer s As String sout As String out As String d Valtxtinput.Text Select Case d Case 0 To 59 sout D Case 60 To 79 sout C Case 80 To 89 sout B Case 90 To 100 sout A End Select txtoutput.Text sout End Sub Private Sub txtinput_Click txtinput.Text txtoutput.Text End Sub Private Sub cmdend_Click End End Sub 2． Option explicit Private sub form_click Dim i as integer j as integer x as integer Dim a as integer s as stringn as integer Dim k as integer do xvalinputbox“请输入数据：”）） If x0 then exit do ii1 Redim preserve ai Aix Loop while x0 For i1 to ubounda If ai 999 and ai A And UCases 0 And s max Then max score If score min Then min score sum sum score Next i ave sum / 10 Print 最大值： max Space5 最小值： min Space5 平均值 ave Print End Sub 6． Private Sub Command1_Click Dim t As Single i As Integer s As Single t 1: i 1: s 1 While 1 / t 0.0000001 t t i s s 1 / t i i 1 Wend Print e的值为： s Print End Sub 7． Private Function gcda As Integer b As Integer As Integer Dim t As Integer c As Integer If a b Then t a a b b t End If c a Mod b While c 0 a b b c c a Mod b Wend gcd b End Function Private Sub Command1_Click Dim a As Integer b As Integer a ValInputBox输入正整数a： b ValInputBox输入正整数b： g gcda b Print 最大公约数为： g Print End Sub 8． Private Sub Command1_Click Dim i As Integer j As Integer For i 1 To 3 Print Tab20 For j 1 To 4 - i Print Spc1 Next j For j 1 To 2 i - 1 Print Next j Print Next i For i 2 To 1 Step -1 Print Tab20 For j 1 To 4 - i Print Spc1 Next j For j 1 To 2 i - 1 Print Next j Print Next i 9． Private Sub Command1_Click n Valtxtin.Text While n 0 r n Mod 10 Print r n n 10 Wend Print End Sub 10． Private Sub Command1_Click Dim r As Integer max As Integer min As Integer ave As Single max 9: min 100 m ValInputBox输入正整数m的值 For j 1 To m r IntRnd 90 10 For i 2 To r - 1 If r Mod i 0 Then Exit For Next i If i r Then If r max Then max r If r min Then min r sum sum r n n 1 Print r End If Next j ave sum / n Print 素数的最大值： max Space5 素数的最小值： min Space5 素数的平均值： ave Print End Sub 11． Option Explicit Dim a3 4 As Integer Private Sub form_click Dim i As Integer j As Integer mmax As Integer Randomize For i 1 To 3 For j 1 To 4 ai j Int90 Rnd 10 Print ai j Next j Print Next i For i 1 To 3 mmax