如何用VB模拟足球赛vb编写计算器成绩

来源：蜘蛛抓取(WebSpider) 时间：2015-08-14 10:19 标签： 全国计算机二级vb题库
这个求平均分的问题，怎么用vb实现_百度知道
提问者采纳
Private Sub Command1_Click()Dim a, bDim rDim avgDim s(4, 3) As IntegerFor a = 0 To 4r = a + 1s(a, 0) = rFor b = 1 To 3s(a, b) = 100 * Rnd's(a, b) = Val(InputBox(&input ..&))r = r & & & & s(a, b)NextPrint rNextr = &avg&For b = 1 To 3avg = 0For a = 0 To 4avg = avg + s(a, b)NextDebug.Print UBound(s)avg = avg / (UBound(s) + 1)r = r & & & & avgNext'Print rEnd Sub
提问者评价
其他类似问题
为您推荐：
平均分的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁编写一个程序,输出5名同学的数学、语文、英语的考试成绩,并计算总分,平均分。vb的题_百度知道
编写一个程序,输出5名同学的数学、语文、英语的考试成绩,并计算总分,平均分。vb的题
我有更好的答案
#include&stdio.h&main(){float a,b,c,sum,scanf(&%f %f %f&,&a,&b,&c);sum=a+b+c;aver=sum/3;printf(&%.1f %.1f&,sum,aver);}
其他类似问题
为您推荐：
考试成绩的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB输入语文、数学、英语的成绩,分别计算等第,总分和平均分.85以上是优,85~75良,74~60及格,60以下不及格要用8个textbox,8个按钮只学了顺序结构,if语句_百度作业帮
VB输入语文、数学、英语的成绩,分别计算等第,总分和平均分.85以上是优,85~75良,74~60及格,60以下不及格要用8个textbox,8个按钮只学了顺序结构,if语句
VB输入语文、数学、英语的成绩,分别计算等第,总分和平均分.85以上是优,85~75良,74~60及格,60以下不及格要用8个textbox,8个按钮只学了顺序结构,if语句
Private Sub Command1_Click()Dim Level(1 To 3) As IntegerDim FScore(1 To 3) As LongDim STName(1 To 3) As StringDim i As Integer,Total As Long,PJF As LongFScore(1) = Text(1) '前三个填成绩FScore(2) = Text(2)FScore(3) = Text(3)STName(1) = "数学"STName(2) = "语文"STName(3) = "英语"'计算等级For i = 1 To 3If FScore(i) > 85 Then Level(i) = 1If FScore(i) = 75 Then Level(i) = 2If FScore(i) = 60 Then Level(i) = 3If FScore(i) < 60 Then Level(i) = 4Next iFor i = 1 To 3Select Case Level(i)Case 1Text(i+3) = STName(i) & "：优"Case 2Text(i+3) = STName(i) & "：良"Case 3Text(i+3) = STName(i) & "：及格"Case 4Text(i+3) = STName(i) & "：不及格"End Select'计算总分Total = FScore(1) + FScore(2) + FScore(3)Text(7) = Total'计算平均分PJF = (Total) / 3Text(8) = PJFEnd Sub用vb程序计算三个数的平均值 代码要简单易懂的，本人菜鸟_百度知道
用vb程序计算三个数的平均值 代码要简单易懂的，本人菜鸟
用vb程序计算三个数的平均值并说明高中数学必修三p23页的的代码(计算语数外的平均成绩）与vb上的代码有何不同。有知道的就请详细介绍下 谢谢了
提问者采纳
Private Sub Command1_Click()
&#39;计算平均分Dim a As Single, b As Single, c As Single, d As Singlea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = (a + b + c) / 3Text4.Text = dEnd SubPrivate Sub Command2_Click()
‘清除Text1.Tex = &&Text2.Tex = &&Text3.Tex = &&Text4.Tex = &&End SubPrivate Sub Command3_Click()
’退出EndEnd Sub
提问者评价
其他类似问题
为您推荐：
其他3条回答
Private Sub Form_Click()Dim x As IntegerDim y As IntegerDim z As IntegerDim sum As IntegerDim pingjun As Integerx = InputBox(&输入X&)y = InputBox(&输入Y&)z = InputBox(&输入Z&)sum = x + y + zpingjun = Int(sum / 3)Print &三个数的平均值是:&; pingjunEnd Sub
for i = 1 to 3n=inputbox&请输入第& & i & &个数&s=s+nnext i? s/3
Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)d = (a + b + c) / 3Print dEnd Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用vb+access做一个成绩查询系统，怎么按课程查询成绩_百度知道
用vb+access做一个成绩查询系统，怎么按课程查询成绩
用vb+access做一个成绩查询系统，要实现在一个下拉combol里选定一个课程名后按一个搜索按钮在datagrid里显示该课程所有学生成绩，怎么实现啊
提问者采纳
请用datacombo组件和datagrid来实现，直接在datacombo的change事件中筛选就可以了，不用多余的搜索按钮。
我是在做课程设计，datacombo没有这个控件啊，可以请教用combol怎么实现吗，谢谢
你用的vb6.0还是vb.net啊？vb6.0有这个控件的，在部件里勾选上MICROSOFT DATALIST CONTROLS。用combol也可以，但不如这个方便。怎么实现？就是在combo的change事件里写代码，先取得当前选择的combo值，然后select * from xx where 课程=…………，然后requery记录集就完事了
提问者评价
原来是这样，感谢！
其他类似问题
Public Str1 As String
Public Str2 As String
Public Str3 As StringPrivate Sub Command1_Click()
Dim i as integer
Str1 = &Provider=Microsoft.Jet.OLEDB.4.0;&
Str2 = &Data Source=数据库名称;&
Str3 = &Jet OLEDB:Database Password=&
conn.Open Str1 & Str2 & Str3
strSQL = &select * from 数据表名称 Where 课程名称=&#39;& & Combo1.Text & &&#39;&
rs.Open strSQL, conn, 3, 3
While Not rs.EOF
dataGrid1.Text(i, 0) = rs!学生姓名
dataGrid1.Text(i, 1) = rs!成绩
rs.MoveNext
conn.closeEnd Sub VB6.0程序
为您推荐：
成绩查询的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 全国计算机二级vb题库 的文章

 

随机推荐