高考Vb程序_高中vb程序例练题详解视频

1.求用VB做一个查成绩的程序，谢谢

2.vb，如何将录入的文本信息保存在另一个窗体中 作业。我编写了一个高考成绩录入系统，前面都是简单的姓名

3.编写vb程序: (1)通过利用循环，将10名同学的高考成绩存入数组编写高考成

#2011-06-08#-date

上面的表达式可以计算出距离6月8日的天数

用#括起来表示日期

我以前做过个毕业倒计时，窗体是不规则形状的，有指针的钟表，如需要消息我

求用VB做一个查成绩的程序，谢谢

建立多个窗体，每个窗体一题。

选项用optionbutton 控件数组，判断的时候方便点。

单击下一题，

判断选择的是哪个按钮，判断是否正确，或者是否选中，

进行相应的累加。这个累加变量用模块级的。在标准模块中定义。

然后，显示下一个窗体，卸载本窗体。

当全部答完之后用MSGBOX提示答对，或者答错的信息。

vb，如何将录入的文本信息保存在另一个窗体中 作业。我编写了一个高考成绩录入系统，前面都是简单的姓名

'数据文件名称 = cj.dat

'数据类型 = ini类型

'[成绩]

'学生姓名=学科1成绩,学科2成绩,...,学科n成绩

'界面设计：

'1个Label，Caption="姓名"；1个TextBox，用户输入要查询的学生姓名，Name="Text1"，Text=""；1个CommandButton，Name="Command1"，Caption="查询成绩"

'

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Const km="科目1,科目2,科目3,科目4,科目5" '需根据实际情况更改

Private Sub Text1_GotFocus()

Text1 = ""

End Sub

Private Sub Command1_Click()

Dim buf, rt As Long, n As Long, xk, i As Integer, msg As String

n = 256 '需根据实际情况更改这个数字的大小

buf = Space(n)

rt = GetPrivateProfileString("成绩",Text1.Text, "", buf, n, App.Path & "\cj.dat")

If rt = 0 Then

MsgBox "未找到”" & Text1.Text & "“的成绩！"

Else

buf = Split(buf, vbNullChar)

xk = Split(km,",")

msg = xk(0) & " = " & buf(0)

For i = 1 To UBound(xk)

msg = msg & "，" xk(i) & " = " & buf(i)

Next

MsgBox Text1.Text & "的成绩：" & vbCrlf & msg

End If

End Sub

编写vb程序: (1)通过利用循环，将10名同学的高考成绩存入数组编写高考成

Dim a()

Dim n As Long

Private Sub Command1_Click()

b = InputBox("请输入要查询同学姓名")

For i = 1 To UBound(a)

If InStr(1, a(i), b) <> 0 Then

MsgBox a(i)

jf = True

Exit For

End If

Next

If jf = False Then MsgBox b & Space(1) & "无该生信息"

jf = False

End Sub

Private Sub Command2_Click()

c = InputBox("请输入 姓名，班级，学号。之间 以 一个空格为分界")

ReDim Preserve a(n + 1)

a(n + 1) = c

n = n + 1

MsgBox "已保存"

End Sub

Private Sub Form_Load()

Open "d:\j.txt" For Input As #1

Do Until EOF(1)

n = n + 1

ReDim Preserve a(n)

Line Input #1, a(n)

Loop

Close

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open "d:\j.txt" For Output As #1

For i = 1 To n

Print #1, a(i)

Next

Close

End Sub

'恰好前天做了一个。给你吧。朋友。只要在窗体上添加一个命令按钮

Option Base 1

Private Sub Command1_Click()

Dim score(10) As Single, s!, m!, count!

'录入10名学生成绩

For i = 1 To 10

score(i) = Val(InputBox("请输入第" & i & "个学生的成绩："))

Next i

'输出成绩

Print "原始记录"

Call out_put(score)

Print

'统计平均值以上的人数

Call up_aver(score)

Print

'从高到低排序

Print "排序后记录"

Call mysort(score)

Print

'输出最高分最低分

Call up_low(score)

End Sub

Private Sub up_low(a!())

Dim max!, min!

max = 0: min = 1000

For i = 1 To 10

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

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

Next

Print "最高分为：" & max, "最低分为：" & min

End Sub

Private Sub mysort(a!())

For i = 1 To 10

For j = 1 To 10 - i

If a(j) < a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 10

Print a(i);

Next

Print

End Sub

Private Sub up_aver(a!())

Dim s!, count!

For i = 1 To 10

s = s + a(i)

Next

m = s / 10

For i = 1 To 10

If a(i) > m Then count = count + 1

Next

Print "成绩在平均值以上的有：" & count & "人"

End Sub

Private Sub out_put(a!())

For i = 1 To 10

Print a(i);

Next

Print

End Sub