vb学生信息录入代码（用vb编写学生管理系统）

本篇文章给大家谈谈vb学生信息录入代码，以及用vb编写学生管理系统对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB,设计一程序，录入有一批学生的姓名及成绩
• 2、编写VB程序。。。输入5个学生的姓名,年龄,性别,分别放在三个数组中.再输出这5个学生的信息
• 3、VB数据库管理系统只输入一个名字就可以知道学生所有信息怎么做到 代码是啥
• 4、VB编程题目急求！！编写一个学生成绩信息录入 统计和打印的应用程序
• 5、vb编程combobox ，需要设计教学信息系统，在录入学生成绩板块，使用combobox
• 6、VB编写一个简单的学生信息

VB,设计一程序，录入有一批学生的姓名及成绩

Dim a(6) As String

Dim b(6) As Integer

Dim c As String

Dim d As Integer

Dim e As Boolean

Dim n As Integer

Private Sub Command1_Click()

If n = 6 Then

a(n) = InputBox("请输入姓名")

b(n) = InputBox("请输入分数")

n = n + 1

Else

n = 0

c = MsgBox("提示：已到人数上限", vbOKCancel, "提示")

End If

End Sub

Private Sub Command2_Click()

Cls

For i = 0 To 5

e = True

For j = 0 To 5

If b(j) b(j + 1) Then

c = a(j)

a(j) = a(j + 1)

a(j + 1) = c

d = b(j)

b(j) = b(j + 1)

b(j + 1) = d

e = False

End If

Next j

If e Then

Exit For

End If

Next i

For i = 0 To 5

Print a(i), b(i)

Next i

n = 0

End Sub

望采纳。。。。

编写VB程序。。。输入5个学生的姓名,年龄,性别,分别放在三个数组中.再输出这5个学生的信息

Dim NAM() As String 'dim 和ststic的区别，在timer实践中，每次执行一次timer事件，用dim 定义的通用变量值会不会改变

Dim AGE() As String

Dim SEX() As String

Dim TEM As Integer

Private Sub Command1_Click()

ReDim Preserve NAM(1 To TEM)

ReDim Preserve AGE(1 To TEM)

ReDim Preserve SEX(1 To TEM)

NAM(TEM) = Text1.Text

AGE(TEM) = Text2.Text

SEX(TEM) = Text3.Text

TEM = TEM + 1

End Sub

Private Sub Form_Load()

TEM = 1

End Sub

Private Sub Label4_Click()

For i = 1 To UBound(NAM)

Text4.Text = Text4.Text  "姓名："  NAM(i)  vbCrLf  "年龄："  AGE(i)  vbCrLf  "性别："  SEX(i)  vbCrLf

Next i

End Sub

VB数据库管理系统只输入一个名字就可以知道学生所有信息怎么做到 代码是啥

简单说就是用名字做主键，其他的相关信息都跟这个主键有关联，通过SQL语句：select * from t_table where name = 'yourname'就能查到所有的信息。但在实际应用中，一般不会用名字来做主键，因为姓名会有重复，而且也不会把所有的信息放在一张表上，而是有通过主键关联的多张表，select语句能够通过关联的主键查询多张表的相关记录，然后把信息放入控件呈现给用户看。

VB编程题目急求！！编写一个学生成绩信息录入 统计和打印的应用程序

#include"stdio.h" #include"string.h" #define N 1000 void menu(); int password(); int dedao(); int uninque(struct STUDENT shu[],int len,int xuehao); void shuchu(struct STUDENT shu[],int len); void send(struct STUDENT shu[],int len); int readFromFile(struct STUDENT shu[]); void chaxun(struct STUDENT shu[],int len); void paixu(struct STUDENT shu[],int len); struct STUDENT { int num; char name[10]; int score; } shu[N]; main() { int len=0,key,choice; do { key=password(); }while(key==0); while(1) { menu(); printf("请输入选项1,2,3,4,5,6,7\n"); scanf("%d",choice); switch(choice) { case 1:printf("输入信息函数\n"); len=dedao(shu,len); break; case 2:printf("输出函数被调用\n"); shuchu(shu,len); break; case 3:printf("保存到文件函数被调用\n"); send(shu,len); break; case 4:printf("从文件读函数被调用\n"); len=readFromFile( shu); break; case 5:printf("按学号查询函数被调用\n"); chaxun(shu,len); break; case 6:printf("按成绩排序函数被调用\n"); paixu(shu,len); break ; case 7:exit(0);break; } } }

vb编程combobox ，需要设计教学信息系统，在录入学生成绩板块，使用combobox

楼主参考这段代码：

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Private a As Double

Private Sub Combo1_Click()

'1位小数，系数用10

a = Combo1.ItemData(Combo1.ListIndex) / 10

MsgBox a, 32

End Sub

'设置时，把 Combo1 的Style属性设置为2

Private Sub Form_Load()

Combo1.AddItem "粘土"

Combo1.AddItem "粉土"

Combo1.AddItem "粉质粘土"

Combo1.AddItem "砂土"

'ItemData 的值只能为整数

' 按你的数据实际情况选择适当的系数

' 1位小数就用10倍，2位小数就用100倍，等等

Combo1.ItemData(0) = 3 ' 具体值你自己输入

Combo1.ItemData(1) = 1

Combo1.ItemData(2) = 8

Combo1.ItemData(3) = 5

End Sub

VB编写一个简单的学生信息

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Text = "学号"

        Label2.Text = "姓名"

        Label3.Text = "性别"

        Label4.Text = "成绩"

        Label5.Text = "物理"

        Label6.Text = "数学"

        Label7.Text = "化学"

        RadioButton1.Text = "男"

        RadioButton2.Text = "女"

        Button1.Text = "写入文件"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim str As String = ""

        str = str  TextBox1.Text  " "  TextBox2.Text  " "

        If RadioButton1.Checked = True Then

            str = str  "男 "

        Else

            str = str  "女 "

        End If

        str = str  TextBox3.Text  " "  TextBox4.Text  " "  TextBox5.Text  vbCrLf

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        My.Computer.FileSystem.WriteAllText("1.txt", str, True)

        MsgBox("文件中写入信息成功")

    End Sub

End Class

vb学生信息录入代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb编写学生管理系统、vb学生信息录入代码的信息别忘了在本站进行查找喔。