VB编程试题解答

来源：百度知道 编辑：UC知道 时间：2024/06/05 23:58:04
各位大侠，老师出了几道VB编程试题的填空题，请各位帮忙看看在“请填空”那里要填什么，感激不尽！！

4.设计一个模拟的装机程序，选定组装机的配件名后输出所选的配置。要求：在组合框中分别选择组装机配件名称，单击“确定”按钮，可显示配件名称。单击“重新选定”按钮，可重新选择组装机配件；单击“结束”按钮可结束该程序

Private Sub CmdOk_Click()
Form1.Hide
Form2.Show
Form2.Cls
Form2.Print Tab(5); "所配设置为:"
Form2.Print "机型：", 请填空
Form2.Print "CPU：", 请填空
Form2.Print "内存：", 请填空
Form2.Print "硬盘：", 请填空
End Sub

Private Sub Form_Load()
CboJX.Text = "机型"
CboJX.AddItem "IBM"
CboJX.AddItem "AST"
CboJX.AddItem "Compaq"
CboJX.AddItem "长城"
CboJX.AddItem "同方"
CboJX.AddItem "联想"
CboJX.AddItem "HP"
CboJX.AddItem "Acer"
CboJX.AddItem "DEC"
CboJX.AddItem "NEC"
CboZP.Text = "CPU选择"

Form2.Print "机型：", 请填空 form1.CboJX.Text
Form2.Print "CPU：", 请填空 form1.CboZP.Text
Form2.Print "内存：", 请填空 form1.CboNC.Text
Form2.Print "硬盘：", 请填空 form1.CboYP.Text

Form1.请填空 Show

str1 = 请填空+Chr(KeyAscii) str1

If 请填空= Asc(",") Or n = 4 Then n = n + 1 Chr(KeyAscii)

If KeyAscii = 请填空 Then a(1)

If 请填空 Then max<a(i)

第4题答案分别是
CboJX.Text
CboZP.Text
CboNC.Text
CboYP.Text
Show

第5题答案分别是
str1
KeyAscii
13
a(1)
a(i)>max