vb程序设计.docx

1、vb程序设计-【程序设计】-题目： (事件)单击窗体。 (响应)已知sum=-1!+1/2!-1/3!+1/4!.+1/10!, 请将sum结果值输出到窗体上。 使用do while.loop语句完成程序-Private Sub Form_Click() Dim p As Long p变量存放阶乘的值 Dim sum As Single* Begin * * End * Call TestFunc(sum)End SubPrivate Sub TestFunc(i As Single) Dim OUT As Integer OUT = FreeFile Open App.Path & out.

2、txt For Output As #OUT Print #OUT, i Close #OUTEnd Sub【参考代码】Dim i As Integeri = 1:p=1Do While i = 10p=p*isum = sum + 1/p*(-1) ii = i + 1LoopPrint sum=【考生代码】 【窗体属性评分】 错误 【窗体】sjt1.frm 标准答案：Name=Form1 学生答案：Name=Form2【窗体属性评分】 正确 【窗体】sjt1.frm 标准答案：Caption=菜单练习 学生答案：Caption=菜单练习【控件属性评分】 正确 【控件】VB.Menu_inp

3、ut 标准答案：Name=input 学生答案：Name=input【控件属性评分】 正确 【控件】VB.Menu_input 标准答案：Caption=输入 学生答案：Caption=输入【控件属性评分】 正确 【控件】VB.Menu_output 标准答案：Name=output 学生答案：Name=output【控件属性评分】 正确 【控件】VB.Menu_output 标准答案：Caption=输出 学生答案：Caption=输出【控件属性评分】 正确 【控件】VB.Menu_query 标准答案：Name=query 学生答案：Name=query【控件属性评分】 正确 【控件】VB

4、.Menu_query 标准答案：Caption=查询 学生答案：Caption=查询【控件属性评分】 正确 【控件】VB.Menu_count 标准答案：Name=count 学生答案：Name=count【控件属性评分】 正确 【控件】VB.Menu_bymonth 标准答案：Name=bymonth 学生答案：Name=bymonth【控件属性评分】 正确 【控件】VB.Menu_bymonth 标准答案：Caption=按月 学生答案：Caption=按月【控件属性评分】 正确 【控件】VB.Menu_byweek 标准答案：Name=byweek 学生答案：Name=byweek【控

5、件属性评分】 正确 【控件】VB.Menu_byweek 标准答案：Caption=按周 学生答案：Caption=按周【控件属性评分】 正确 【控件】VB.TextBox_Text1 标准答案：Name=Text1 学生答案：Name=Text1【控件属性评分】 正确 【控件】VB.OptionButton_Option1 标准答案：Name=Option1 学生答案：Name=Option1【控件属性评分】 正确 【控件】VB.OptionButton_Option1 标准答案：Caption=参加 学生答案：Caption=参加【控件属性评分】 正确 【控件】VB.OptionButto

6、n_Option2 标准答案：Name=Option2 学生答案：Name=Option2【控件属性评分】 正确 【控件】VB.OptionButton_Option2 标准答案：Caption=不参加 学生答案：Caption=不参加【事件评分】 错误 【事件】Private Sub Option1_Click() 标准答案： Text1.Text = 参加 + Text1.Text 学生答案： Text1.Text = 参加 & Text1.Text【事件评分】 错误 【事件】Private Sub Option2_Click() 标准答案： Text1.Text = Text1.Text

7、 + 不参加 学生答案： Text1.Text = Text1.Text & 不参加【控件属性评分】 错误 【控件】VB.Menu_count 标准答案：Caption=统计 学生答案：Caption=统计【控件属性评分】 正确 【控件】VB.Menu_operation 标准答案：Name=operation 学生答案：Name=operation【控件属性评分】 正确 【控件】VB.Menu_operation 标准答案：Caption=操作 学生答案：Caption=操作【事件评分】 错误 【事件】Private Sub Timer1_Timer() 标准答案： 0 Then pos =

8、 pos + Arr(k) Else neg = neg + Arr(k) End If Next k Text1.Text = 正数之和为： & Str(pos) Text2.Text = 负数之和为： & Str(neg)【事件评分】 正确 【事件】Private Sub Command1_Click() 标准答案： Command1.Caption = 继续 Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = True 学生答案： Command1.Caption = 继续 Timer1.Enabled =

9、True Command1.Enabled = False Command2.Enabled = True【事件评分】 正确 【事件】Private Sub Command2_Click() 标准答案： Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = Tru 学生答案： Timer1.Enabled = False Command2.Enabled = False Command1.Enabled = True-【程序设计】-题目：(事件)单击窗体。 (响应)编写代码功能如(图1)。 将结果存入变量S中-注意

10、：请在指定的事件内编写代码。-Private Sub Form_Click()Dim s As Integer* Begin * End *TestFunc (s)End SubPrivate Sub TestFunc(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & 11.out For Output As #OUT Print #OUT, i Close #OUT End Sub【参考代码】Dim i As IntegerFor i = 1 To 10 s = s + i * iNextPrint (CStr(s

11、)=【考生代码】【控件属性评分】 错误 【控件】VB.HScrollBar_H1 标准答案：Name=H1 学生答案：Name=【控件属性评分】 错误 【控件】VB.HScrollBar_H1 标准答案：LargeChange=10 学生答案：LargeChange=【控件属性评分】 错误 【控件】VB.HScrollBar_H1 标准答案：Max=100 学生答案：Max=【控件属性评分】 错误 【控件】VB.HScrollBar_H1 标准答案：Min=1 学生答案：Min=【控件属性评分】 错误 【控件】VB.Label_L1 标准答案：Name=L1 学生答案：Name=【控件属性评分

12、】 错误 【控件】VB.Label_L1 标准答案：Caption=1 学生答案：Caption=【控件属性评分】 错误 【控件】VB.Label_L2 标准答案：Name=L2 学生答案：Name=【控件属性评分】 错误 【控件】VB.Label_L2 标准答案：Caption=100 学生答案：Caption=【控件属性评分】 错误 【控件】VB.Menu_m1 标准答案：Name=m1 学生答案：Name=【控件属性评分】 错误 【控件】VB.Menu_m1 标准答案：Caption=操作 学生答案：Caption=【控件属性评分】 错误 【控件】VB.Menu_copy 标准答案：Na

13、me=copy 学生答案：Name=【控件属性评分】 错误 【控件】VB.Menu_copy 标准答案：Caption=复制 学生答案：Caption=【控件属性评分】 错误 【控件】VB.Menu_clear 标准答案：Name=clear 学生答案：Name=【控件属性评分】 错误 【控件】VB.Menu_clear 标准答案：Caption=清除 学生答案：Caption=【事件评分】 错误 【事件】Private Sub Command1_Click() 标准答案： AddItem Text1.Text 学生答案： Combo1.? Text1.Text = 【事件评分】 错误 【事件

14、】Private Sub Text1_KeyPress(KeyAscii As Integer) 标准答案： 48 0 学生答案： If KeyAscii 57 Or KeyAscii ? Then MsgBox 请输入数字！ KeyAscii = ? End If【事件评分】 错误 【事件】Private Sub Command1_Click() 标准答案： m f(i) t 学生答案： Dim m As Integer Dim n As Integer Dim s As Long Dim i As Integer m = Val(Text1.Text) n = Val(Text2.Text

15、) s = 0 For i =? To n t =? s = s + ? Next lblResult.Caption = s-【程序设计】-题目：(事件)单击窗体。 (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中-Private Sub Form_Click()Dim sum As Long* Begin * * End * TestFunc (sum)End SubPrivate Sub TestFunc(i As Long) Dim OUT As Integer OUT = FreeFile Open App.Path & 29.out For Output As

16、#OUT Print #OUT, i Close #OUT End Sub【参考代码】 Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum=【考生代码】【控件属性评分】 错误 【控件】VB.Label_L1 标准答案：Name=L1 学生答案：Name=【控件属性评分】 错误 【控件】VB.Label_L1 标准答案：Caption=请确认 学生答案：Caption=【控件属性评分】 错误 【控件】VB.CommandButton_C2 标准答案：Name=C2 学生答案：Name=【控件属性评分】 错误

17、【控件】VB.CommandButton_C2 标准答案：Caption=否 学生答案：Caption=【控件属性评分】 错误 【控件】VB.CommandButton_C2 标准答案：Height=300 学生答案：Height=【控件属性评分】 错误 【控件】VB.CommandButton_C2 标准答案：Width=800 学生答案：Width=【控件属性评分】 错误 【控件】VB.CommandButton_C1 标准答案：Height=300 学生答案：Height=【控件属性评分】 错误 【控件】VB.CommandButton_C1 标准答案：Width=800 学生答案：Wi

18、dth=【窗体属性评分】 错误 【窗体】sjt1.frm 标准答案：MaxButton=0 False 学生答案：MaxButton=【窗体属性评分】 错误 【窗体】sjt1.frm 标准答案：MinButton=0 False 学生答案：MinButton=【控件属性评分】 错误 【控件】VB.TextBox_Text1 标准答案：Width=1000 学生答案：Width=【控件属性评分】 错误 【控件】VB.HScrollBar_HS1 标准答案：Name=HS1 学生答案：Name=【控件属性评分】 错误 【控件】VB.HScrollBar_HS1 标准答案：Max=2000 学生答案

19、：Max=【控件属性评分】 错误 【控件】VB.HScrollBar_HS1 标准答案：Min=1000 学生答案：Min=【事件评分】 错误 【事件】Private Sub HS1_Change() 标准答案： Text1.Width = HS1.Value 学生答案：【控件属性评分】 错误 【控件】VB.CommandButton_C1 标准答案：Name=C1 学生答案：Name=【控件属性评分】 错误 【控件】VB.CommandButton_C1 标准答案：Caption=是 学生答案：Caption=【控件属性评分】 错误 【控件】VB.CommandButton_Command1

20、 标准答案：Caption=添加项目 学生答案：Caption=【控件属性评分】 错误 【控件】VB.CommandButton_Command2 标准答案：Name=Command2 学生答案：Name=【控件属性评分】 错误 【控件】VB.CommandButton_Command2 标准答案：Caption=删除项目 学生答案：Caption=【事件评分】 错误 【事件】Private Sub Command2_Click() 标准答案： Form1.List1.ListCount - 1 学生答案：【事件评分】 错误 【事件】Private Sub Command1_Click() 标

21、准答案： Form1.Text1.Text 学生答案：【控件属性评分】 错误 【控件】VB.TextBox_Text1 标准答案：Name=Text1 学生答案：Name=【事件评分】 错误 【事件】Private Sub Command1_Click() 标准答案： Text1.Text Text2.Text Text3.Text Text4.Text i arr2() 学生答案： Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(?), Val(?), Val(?), Val(?) For i = 1 To 4 arr2(i) = CInt(

22、?) Next i M = FindMax(?) Print 最大值是: ; M-【程序设计】-题目：(事件)单击窗体。 (响应)编写代码功能如下： 将结果存入变量Sum中。使用while.wend语句完成程序-Private Sub Form_Click() Dim sum As Double* Begin * * End * Call TestFunc(sum)End SubPrivate Sub TestFunc(i As Double) Dim OUT As Integer OUT = FreeFile Open App.Path & out.txt For Output As #OU

23、T Print #OUT, i Close #OUTEnd Sub【参考代码】Dim i As Integeri=1while i = 10 sum = sum + i i i = i + 1wendPrint sum=【考生代码】 【控件属性评分】 错误 【控件】VB.Label_Label1 标准答案：Name=Label1 学生答案：Name=【控件属性评分】 错误 【控件】VB.Label_Label1 标准答案：BorderStyle=1 Fixed Single 学生答案：BorderStyle=【控件属性评分】 错误 【控件】VB.CommandButton_Command1 标

24、准答案：Name=Command1 学生答案：Name=【控件属性评分】 错误 【控件】VB.CommandButton_Command1 标准答案：Caption=显示 学生答案：Caption=【事件评分】 错误 【事件】Private Sub HScroll1_Change() 标准答案： Text1.Width = HScroll1.Value * 1.2 Text1.Height = Me.HScroll1.Value 学生答案：【事件评分】 错误 【事件】Private Sub Command1_Click() 标准答案： Label1.Visible = True Label1.

25、Caption = Text1.Text Text1.Visible = False 学生答案：【控件属性评分】 错误 【控件】VB.Label_Label1 标准答案：Name=Label1 学生答案：Name=【控件属性评分】 错误 【控件】VB.Label_Label1 标准答案：Caption=计算机考试 学生答案：Caption=【控件属性评分】 错误 【控件】VB.Label_Label1 标准答案：Left=500 学生答案：Left=【事件评分】 错误 【事件】Private Sub Command1_Click() 标准答案： True 学生答案： If Command1.Caption = 移动 The