计较机二级vb测验试题

　　在2017年9月计较机测验之前，小编为大师保举的是计较机二级VB测验题，但愿对大师有所赞助!

计较机二级vb测验试题

　　1.根基操纵(2小题，每题15分，总计30分)

　　Private Sub C2_Click()

　　C1.SetFocus

　　End Sub

　　(2)在称号为Form1的窗体上画一个文本框，称号为Text1，其宽度为1000;再画一个转动条，称号为HS1。其刻度值的规模是1000-2000。请编写转动条的Change事务进程，法式运转后，若是挪动转动框，则可根据转动条的刻度值转变文本框的宽度。运转时的窗体如图所示。法式中不能利用任何变量，事务进程只能写一条语句。

　　Private Sub HS1_Change()

　　Text1.Width = HS1.Value

　　End Sub

　　2.简略利用(2小题，每题20分，计40分)

　　(1)在考生文件夹下有一个工程文件sjt21.vbp，窗体上有两个列表框，称号别离为List1、List2，在List2中己经预设了内容，另有两个号令按钮，称号别离为C1、C2，标题别离为“增加”、“断根”。如图所示2016年计较机二级vb测验试题2016年计较机二级vb测验试题。法式的功效是在运转时，若是选中右侧列标框中的一个列表项，单击“增加”按钮，则把该项移到左侧的列表框中;若选中左侧列标框中的一个列表项，单击“断根”按钮，则把该项移回右侧的列表框中。文件中已给出了一切控件和法式，但法式不完全，请去掉法式中的正文符，把法式中的?改成准确的内容。但不能点窜法式中的其余局部，也不能点窜控件的属性。最初把点窜后的文件按原文件名存盘。

　　Private Sub Form_Load()

　　List1.AddItem "性别"

　　List1.AddItem "班号"

　　List1.AddItem "简历"

　　List2.AddItem "学号"

　　List2.AddItem "姓名"

　　List2.AddItem "春秋"

　　List2.AddItem "照片"

　　End Sub

　　Private Sub C1_Click()

　　List2.AddItem List1.Text

　　List1.RemoveItem List1.ListIndex

　　End Sub

　　Private Sub C2_Click()

　　Dim k As Integer

　　k = 0

　　While (k < List2.ListCount)

　　If List2.Selected(k) = True Then

　　List1.AddItem List2.Text

　　List2.RemoveItem k

　　End If

　　k = k + 1

　　Wend

　　End Sub

　　(2)在考生文件夹下有一个工程文件sjt22.vbp，请在Form1窗体上成立一个称号为Op1的单选按钮数组，含有三个单选按钮，其标题别离为“10!”“11!”“12!”，Index属性别离为0、1、2;再画一个称号为C1的号令按钮，标题为“计较”;画一个称号为Text1的文本框，如图所示。法式的功效是在选定一个单选按钮并单击“计较”按钮后，能够计较出响应的阶乘值，在Text1中显现该阶乘值。请画出上述控件并编写法式。

　　Private Sub C1_Click()

　　Dim n As Integer, k As Integer

　　Dim fact As Long

　　For k = 0 To 2

　　If Form1.Op1(k).Value Then

　　n = Val(Left$(Form1.Op1(k).Caption, 2))

　　End If

　　Next k

　　fact = 1

　　k = 1

　　Do While k < n

　　fact = fact * k

　　k = k + 1

　　Loop

　　Text1.Text = fact

　　End Sub

　　Private Sub Form_Unload(Cancel As Integer)

　　unload_sub

　　End Sub

　　Private Sub unload_sub()

　　Dim fn As String

　　fn = App.Path & "dataout.txt"

　　Open fn For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

　　3.综合利用(1小题,计30分)

　　在考生文件夹下有一个工程文件sjt31.vbp，其窗体上有一个文本框，称号为Text1,能够多行显现;有一个称号为CD1的通用对话框;另有三个号令按钮，称号别离为C1、C2、C3，标题别离为“翻开文件”、“转换”、“存盘”，如图所示

　　号令按钮的功效是：“翻开文件”——弹出翻开文件对话框，默许翻开文件的范例为“文本文件”2016年计较机二级vb测验试题计较机品级。挑选考生文件夹下的in5.txt文件后，该文件中的内容显现在Text1中;“转换”——把Text1中的一切小写英笔墨母转换成大写;“存盘”——把Text1中的内容存入考生文件夹下的out5.dat文件中。在窗体中已给出了局部法式，请求：

　　1) 请去掉法式中的正文符，把法式中的?改成准确的内容，但不能点窜法式中的其余局部，也不能点窜控件的属性。

　　2) 编写“转换”按钮的Click事务进程。最初把点窜后的文件按原文件名存盘。

　　Private Sub C1_Click()

　　Dim a As String

　　CD1.Filter = "一切文件?*.*?文本文件?*.txt?Word文件?*.doc"

　　CD1.FilterIndex = 2

　　CD1.Action = 1

　　Open CD1.FileName For Input As #1

　　Input #1, a

　　Close #1

　　Text1.Text = a

　　End Sub