求高人帮忙设计三个简单的VB程序！
要求：全面了解Visual Basic 语言的语法，学会写复杂的语句；完全熟练开发环境，理解并掌握常用的输入输出控件的使用方法。
1.根据不同的成绩,显示不同的提示信息,要求是:如果分数显示为90分及以上显示“优秀”，80分及以上显示“良好”，70分及以上显示“中等”，60分及以上显示“几个”，59分及以下显示“不及格”。（要求用Select Case语句和IF语句各实现一次，可以用两个“显示结果”按钮）
2.计算1~100中所有能被3或能被5整出的数字的和，将它们的和显示出来，并计算出这些数字。（要求用For 语句和While语句各实现一次）
3.输入圆的半径，计算圆的面积，输出圆的面积，若圆的面积大于5则提示大圆，否则提示小圆
谢谢！！！麻烦发到我的邮箱：55678413@qq.com
所有分都给你了！！！！
VB其实很简单，请多看一些参考书。
哪位高手帮小弟做这三个vb简单图形(要代码)
Picture1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)Label5.Caption = HScroll1.Value Label6.Caption = HScroll2.Value Label7.Caption = HScroll3.Value End Sub === 第三个程序代码：Private Sub Command1_Click()Timer1.Enabled = True End Sub Private Sub Time...
急求用VB编程做的3个简单程序
画出椭圆。算法步骤：1、求a,b: a=len\/2 b=sqr((x1-x2)^2+(y1-y2)^2)2、求旋转角α ：求出(y1-y2)\/(x1-x2)的反正切值即为α 3、求椭圆中心坐标（x0,y0）: x0=(x1+x2)\/2 y0=(y1+y2)\/2 3、计算椭圆上点的坐标（x,y）：x=acosθ ， y=bsinθ ( 0<=θ< 2*...
求简单的VB程序,真的很简单~~~
Private Sub Form_click()Cls Dim a(100) As Integer, x As Integer For I = 1 To 100 a(I) = Int(Rnd * 90) + 10 Print a(I);If I Mod 10 = 0 Then Print Next Print For I = 1 To 100 If Pd(a(I)) = True Then Print a(I);x = x + 1 If x Mod 10 = 0 T...
VB编写程序。。。求求大家帮忙
dim a(96) as string,i as integer,k as integer k=101 for i=0 to 45 a(i)="0843" + cstr(k)k=k+1 if k=102 then k=k+1 if k=103 then k=k+1 if k=104 then k=k+1 if k=106 then k=k+1 if k=135 then k=k+1 if k=147 then k=k+1 next i k=201 for...
vb程序设计 代码
程序首先设定一个变量n，用于确定生成字符的数量。这里使用了随机数函数Rnd，并结合数学运算确保生成的字符数量在5到21之间。接下来是一个循环结构，用于生成指定数量的字符。在循环体内，程序生成一个随机字符，并与前一个字符进行比较。如果当前字符比前一个字符大，程序会将这两个字符和前一个字符加入...
VB程序设计
我自能给亲说一下思路，，如图所示，应该建立2个form，第一个用于成绩显示查询，当然前提应该把成绩的数据库导入进去，如果这是老师要求的作业，用access数据库简单编几个数据就好了。当点击“生成图表”按钮时，form1隐藏，form2出现，坐标轴事先用line画好，生成一些标签，每个标签等长度，填充颜色：...
vb程序设计
1、Dim i As Integer Dim x As String Dim s As Long For i = 1 To 5 x = InputBox("请输入一个整数：")If Val(x) >= 1 And Val(x) < 10 Then Print x & " 是一位数"Print ElseIf Val(x) >= 10 And Val(x) < 100 Then Print x & " 是二位数"Print Else Print x...
如何使用VB编写一个简单的小程序?
如下图所示。最后，前面5个步骤只是做了程序的界面，想要程序出结果，那必须加些代码了，既然是简单程序，只加一行代码就可以了。双击命令按钮，在代码窗口中输入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)后，再单击运行，输入数字，单击计算，此时就出现结果了，如下图所示。
vb程序设计(入门级!!不要用高深的词汇!!)
Private Sub Command1_Click()Me.Cls Dim j As Integer Randomize t = 1 k = 1 For i = 1 To 80 a(i) = Int(Rnd * 90) + 10 If a(i) Mod 2 = 1 Then b(k) = a(i)k = k + 1 End If If IsPrimeNum(a(i)) Then c(t) = a(i)t = t + 1 End If Next i P...
帮忙写个VB小程序,几句话,很短!用Do while...loop语句。
Option Explicit Private Sub Form_Load()Dim i As Integer, x As Integer, Num Randomize (Timer)Num = Val(InputBox("请输入1～100之间的某个数："))Do While i < 100 If Int(Rnd * 99 + 1) > Num Then x = x + 1 i = i + 1 Loop MsgBox "大于" & Num & "的个数为" ...
