vb百分制与五级制转换
@粱选5710：用VB编程 输入一个百分制成绩,把它转换成五级记分制 -
郗咏17517294426…… Private Sub Command1_Click() Dim n As Single Dim s As String n = Val(InputBox(＂请你输入成绩＂)) Select Case n Case 90 To 100 s = ＂优秀＂ Case 80 To 90 s = ＂良＂ Case 70 To 80 s = ＂中＂ Case 60 To 70 s = ＂及格＂ Case 0 To 60 s = ＂不及格＂ Case Else s = ＂请你输入0至100自己的数字＂ End Select MsgBox s End Sub
@粱选5710：用VB将学生成绩百分制转换为五级制. -
郗咏17517294426…… private sub command1_click() dim n as single dim s as string n = val(inputbox(＂请你输入成绩＂)) select case n case 90 to 100 s = ＂优秀＂ case 80 to 90 s = ＂良＂ case 70 to 80 s = ＂中＂ case 60 to 70 s = ＂及格＂ case 0 to 60 s = ＂不及格＂ case else s = ＂请你输入0至100自己的数字＂ end select msgbox s end sub
@粱选5710：vb程序设计,百分制转化为五级制,要求用inputbox输入mark值,直接输出评定结果...求解.. -
郗咏17517294426…… mark=inputbox(＂ ＂,＂ ＂ ) dim s as string if mark<60 and mark>=0 then s=＂F＂ else if mark<70 then s=＂D＂ else if mark<80 then s=＂C＂ else if mark<90 then s=＂B＂ else if mark<=100 then s=＂A＂ else s=＂N＂ '超出100 end if msgbox s
@粱选5710：VB编程 输入百分制分数,输出对应的五级分制分数 求大神! -
郗咏17517294426…… for (j = 1; j < LEN; j++) { key = a[j]; c1 i = j - 1; c2 while (i >= 0 && a[i] > key) { a[i+1] = a[i]; c3 i--; c4 }
@粱选5710：懂VB的帮帮忙哈,要求把下面这道题If……Then……Elseif的语句改变成Select Case语句形式,已知某课程的百分制成绩mark,要求转换成对应五级制的评... - 作业帮
郗咏17517294426…… [答案] select case mark case is >=90 grade=＂优＂ case 80 to 89 grade=＂良＂ case 70 to 79 grade=＂中＂ case 60 to 69 grade=＂及格＂ case else grade=＂不及格＂ end select
@粱选5710：VB编百分制成绩和等级成绩相互转换功能的程序 -
郗咏17517294426…… 输入的成绩变量为cj,一个TEXT文本框,一个COMMAND按钮,名称默认,代码如下. Private Sub Command1_Click() cj = Val(Text1.Text) If cj >= 95 And cj < 100 Then MsgBox ＂A＂ ElseIf cj >= 80 And cj < 95 Then MsgBox ＂B＂ ElseIf cj >= 60 And cj < 80 Then MsgBox ＂C＂ Else MsgBox ＂D＂ End If End Sub
@粱选5710：将百分制成绩转化为优秀、良好、中等、及格和不及格的5级制成绩 -
郗咏17517294426…… 你好,程序如下: (Java写的) import java.io.*; public class ChengjiPanduan { public static void main(String[] args) throws Exception { BufferedReader bf=new BufferedReader(new InputStreamReader(System.in)); System.out.println(＂请输入...
@粱选5710：vb如何用if语句实现百分制成绩向优良等级转换?变量怎样声明. -
郗咏17517294426…… Dim A As Single, I As Byte Dim B As String Dim C(0 To 3) As String Dim Num As Boolean Private Sub Form_Load() Form1.AutoRedraw = True C(0) = ＂优秀＂ C(1) = ＂良好＂ C(2) = ＂及格＂ C(3) = ＂不及格＂ Do B = InputBox(＂请输入0--...
@粱选5710：设计具有百分制和等级成绩相互转换功能的程序VB的 -
郗咏17517294426…… abcd等级的分数假设为:>90,>80,>60,其他 If Option1.Value = True Then Label1.Caption = ＂＂: Label2.Caption = ＂＂ ElseIf Option2.Value Then Label1.Caption = ＂＂: Label2.Caption = ＂＂ End If Private Sub command1_click() Dim a As ...
@粱选5710：懂VB的帮帮忙哈,求帮忙,要求把下面这道题If……Then……Elseif的语句改变成Select Case语句形式,急啊! -
郗咏17517294426…… select case mark case is >=90 grade=＂优＂ case 80 to 89 grade=＂良＂ case 70 to 79 grade=＂中＂ case 60 to 69 grade=＂及格＂ case else grade=＂不及格＂ end select
郗咏17517294426…… Private Sub Command1_Click() Dim n As Single Dim s As String n = Val(InputBox(＂请你输入成绩＂)) Select Case n Case 90 To 100 s = ＂优秀＂ Case 80 To 90 s = ＂良＂ Case 70 To 80 s = ＂中＂ Case 60 To 70 s = ＂及格＂ Case 0 To 60 s = ＂不及格＂ Case Else s = ＂请你输入0至100自己的数字＂ End Select MsgBox s End Sub
@粱选5710：用VB将学生成绩百分制转换为五级制. -
郗咏17517294426…… private sub command1_click() dim n as single dim s as string n = val(inputbox(＂请你输入成绩＂)) select case n case 90 to 100 s = ＂优秀＂ case 80 to 90 s = ＂良＂ case 70 to 80 s = ＂中＂ case 60 to 70 s = ＂及格＂ case 0 to 60 s = ＂不及格＂ case else s = ＂请你输入0至100自己的数字＂ end select msgbox s end sub
@粱选5710：vb程序设计,百分制转化为五级制,要求用inputbox输入mark值,直接输出评定结果...求解.. -
郗咏17517294426…… mark=inputbox(＂ ＂,＂ ＂ ) dim s as string if mark<60 and mark>=0 then s=＂F＂ else if mark<70 then s=＂D＂ else if mark<80 then s=＂C＂ else if mark<90 then s=＂B＂ else if mark<=100 then s=＂A＂ else s=＂N＂ '超出100 end if msgbox s
@粱选5710：VB编程 输入百分制分数,输出对应的五级分制分数 求大神! -
郗咏17517294426…… for (j = 1; j < LEN; j++) { key = a[j]; c1 i = j - 1; c2 while (i >= 0 && a[i] > key) { a[i+1] = a[i]; c3 i--; c4 }
@粱选5710：懂VB的帮帮忙哈,要求把下面这道题If……Then……Elseif的语句改变成Select Case语句形式,已知某课程的百分制成绩mark,要求转换成对应五级制的评... - 作业帮
郗咏17517294426…… [答案] select case mark case is >=90 grade=＂优＂ case 80 to 89 grade=＂良＂ case 70 to 79 grade=＂中＂ case 60 to 69 grade=＂及格＂ case else grade=＂不及格＂ end select
@粱选5710：VB编百分制成绩和等级成绩相互转换功能的程序 -
郗咏17517294426…… 输入的成绩变量为cj,一个TEXT文本框,一个COMMAND按钮,名称默认,代码如下. Private Sub Command1_Click() cj = Val(Text1.Text) If cj >= 95 And cj < 100 Then MsgBox ＂A＂ ElseIf cj >= 80 And cj < 95 Then MsgBox ＂B＂ ElseIf cj >= 60 And cj < 80 Then MsgBox ＂C＂ Else MsgBox ＂D＂ End If End Sub
@粱选5710：将百分制成绩转化为优秀、良好、中等、及格和不及格的5级制成绩 -
郗咏17517294426…… 你好,程序如下: (Java写的) import java.io.*; public class ChengjiPanduan { public static void main(String[] args) throws Exception { BufferedReader bf=new BufferedReader(new InputStreamReader(System.in)); System.out.println(＂请输入...
@粱选5710：vb如何用if语句实现百分制成绩向优良等级转换?变量怎样声明. -
郗咏17517294426…… Dim A As Single, I As Byte Dim B As String Dim C(0 To 3) As String Dim Num As Boolean Private Sub Form_Load() Form1.AutoRedraw = True C(0) = ＂优秀＂ C(1) = ＂良好＂ C(2) = ＂及格＂ C(3) = ＂不及格＂ Do B = InputBox(＂请输入0--...
@粱选5710：设计具有百分制和等级成绩相互转换功能的程序VB的 -
郗咏17517294426…… abcd等级的分数假设为:>90,>80,>60,其他 If Option1.Value = True Then Label1.Caption = ＂＂: Label2.Caption = ＂＂ ElseIf Option2.Value Then Label1.Caption = ＂＂: Label2.Caption = ＂＂ End If Private Sub command1_click() Dim a As ...
@粱选5710：懂VB的帮帮忙哈,求帮忙,要求把下面这道题If……Then……Elseif的语句改变成Select Case语句形式,急啊! -
郗咏17517294426…… select case mark case is >=90 grade=＂优＂ case 80 to 89 grade=＂良＂ case 70 to 79 grade=＂中＂ case 60 to 69 grade=＂及格＂ case else grade=＂不及格＂ end select
