vb考试题库，vb程序设计练习题

本文目录一览

1，vb程序设计练习题
2，VB趣味程序设计期末考试题
3，VB测试题
4，VB考试题目理论填空题
5，VB考试题目2

1，vb程序设计练习题

在窗口中拖出3个控件，文本框Textbox1，按钮button1，button2. 编辑button1单击事件，Textbox1.Visibled = false 编辑button2单击事件，Textbox1.Visibled = true

vb程序设计练习题

2，VB趣味程序设计期末考试题

1.pi的泰勒展开式Dim n As Single, d As Singlen = 0d = Val(text1.Text)Do Until 1 / (2 * n + 1) < d pi = pi + (-1) ^ n / (2 * n + 1) n = n + 1LoopMsgBox pi * 42.?

搜一下：VB趣味程序设计期末考试题

VB趣味程序设计期末考试题

3，VB测试题

看不到题。。。

Dim A As Single, B As Single A = Val(InputBox("请输入数字:")) B = Val(InputBox("请输入数字:")) If A >= B Then Max = A Min = B Else Max = B Min = A End If Print "A,B"; A; B Print "最大值为："; Max Print "最小值为："; Min End Sub

VB测试题

4，VB考试题目理论填空题

1.ListBox2.全局变量3.接口4.循环5.RadioButton6.Inherits7.变量8.CheckBox9.赋值10.C

1.listbox2.全局变量3.略4.略5.radiobutton6.Inherits7.变量8.checkbox9.略10.C

1.listbox2.全局变量3.略4.略5.radiobutton6.Inherits7.变量8.checkbox9.略10.C希望对你有用

private sub command1-click( ) dim a (10) as integer for i =1 to 10 a(i)=val(inputbox("enter"& i)) print a(i); next i print for i =_1 to 9_____ k=i for j = i+1 to 10_______ if ___a(k)<a(j)___________then _____k=j______ next j if __k<>i______then b=a(i) a(i)=a(k) a(k)=b end if next i for i =1 to 10 print a(i); next i print

1.ListBox2.全局变量3.接口4.循环5.RadioButton6.Inherits7.变量8.CheckBox9.赋值10.C

5，VB考试题目2

private sub form1_click() if ch1.value=vbchecked then text1.text="报名参加"&ch1.caption elseif ch2.value=vbchecked then text1.text="报名参加"&ch2.aption elseif ch1.value=true and ch2.value=true then text1.text="报名参加"&ch1.caption &"和" &ch2.caption else text1.text="" end if end sub

那不完整的代码是什么，得让人看明白吧

Private Sub Form_Click() If ch1.Value = vbChecked And ch2.Value = vbChecked Then Text1.Text = "报名参加" & ch1.Caption & "和" & ch2.Caption ElseIf ch1.Value = vbChecked Then Text1.Text = "报名参加" & ch1.Caption ElseIf ch2.Value = vbChecked Then Text1.Text = "报名参加" & ch2.Caption Else Text1.Text = "" End If End Sub

dim i as string i=iif(ch1.value,ch1.caption,"") i=i+iif(ch2.value,ch2.caption,"") i=trim(ltrim(i)) i=iif(i<>"","报名参加"+i,"") text1.text=i

private sub form1_click() if ch1.value=1 then text1.text="报名参加"&ch1.caption elseif ch2.value=2 then text1.text=“报名参加”&ch2.caption elseif ch1.value=1 and ch2.value=1 then text1.text="报名参加"& ch1.caption &ch2.caption else text1.text="" end if end sub 放在VB里时，注意一下关键字。和其他地方。这个仅供参考。不对的地方还望改正