vb第一阶段复习题.doc

Vb第一阶段复习题一、选择题（单选题）1、在Visual Basic语言中，对象能够执行的动作是 A）事件 B）方法 C）属性 D）事件过程2、要求窗体文件main.frm运行后, 将焦点设置到name=text1的控件上, 命令是:_A name.setfocus B text1.setfocus C name.setfocus =true D text1.setfocus =true4、将数学表达式 写成Visual Basic的表达式，其正确的形式是:A) 5*exp(2) + Sin(a+b)2 B) 5*exp(2) +Sin2(a+b)C) 5*ln(2) + Sin(a+b)2 D) 5*ln(2) +Sin2(a+b)、将变量va的值输出到标签控件上显示，使用的语句是：A text1.value= va B text1.caption =vaClabel1.caption= va D label1.value= va、设置按钮command1用鼠标单击不发生click事件，设置属性语句是:_A command1.visible=true B command1.visible=falseC command1.enabled= true D command1.enabled= false 10、在文本框text1中输入数据，当焦点一旦离开，就能引发对象事件过程的执行的事件是：_click change lostfocus gotfocus 11、对象Print方法是vb程序中用于输出数据的方法，对象1是指：_A form, picturebox, printer, label1 B form, picture1, printer, debugC form, picture1, label1, text1 D form, picture1, label1 , printer1、下面程序的运行结果是：Private Sub Form_Click()Dim money!, tax!money = Val(InputBox(money=, input, 3500)Select Case money Case Is = 1000 Print money=; money, Tax=; 0Case 1000 To 3000 Print money=; money, Tax=; (money - 1000) * 0.1Case 3000 To 6000 Print money=; money, Tax=; (money - 3000) * 0.15 + 200 Case Else Print money=; money, Tax=; (money - 6000) * 0.2 + 650End SelectEnd SubAmoney=1000 tax=0 money=3500 tax=275 money=4500 tax=425 money=6500 tax=75013、下面程序的运行结果是：Private Sub Form_Click()Dim year1%, leap!year1 = Val(InputBox(now year=, input, 2004)If year1 Mod 100 = 0 Then If year1 Mod 400 = 0 Then leap = 1 Else leap = 0 End IfElseIf year1 Mod 4 = 0 Thenleap = 1End IfIf (leap) ThenPrint year1; is leapElsePrint year1; is not leapEnd IfEnd SubA2004 is leap 2004 is 1 2004 is not leap 2004 is not 014、下面程序的运行结果是：Private Sub Form_Click()Dim m%, n%m = 1For n = 1 To 10 Step 2m = m + nn = n + 1Next nPrint n=; n, m=; mEnd SubAn=10 m=22 n=11 m=23 n=13 m=36 n=13 m=2316、下面程序的运行结果是：Private Sub Form_Click()Dim num%, sum%, n%sum = 0: n = 1: num = 6While n numIf num Mod n = 0 ThenPrint +; n;sum = sum + nEnd Ifn = n + 1WendPrint =; sumEnd SubAsum=6 1;2;3=6 +1+2+3=6 +1+2+3+4+5+6=2118、下面程序的运行结果是：Private Sub form_click()Dim s%, t%, m%, n%, K%m = 3: s = 0Print s=;For n = 1 To m Print +; n; !; t = 1 For K = 1 To m t = t * K Next Ks = s + tNext nPrint =; sEnd SubA s=6 S=+1+2+3= 6 S=+1!+2!+3!=18 +1!+2!+3!=18 19、下面程序的运行结果是：Private Sub Form_Click()Dim str1$, chr1$str1 = InputBox(string=, input, Visual_basic是可视化面向对象的结构化高_级程序设计语言)chr1 = Left(str1, 1) + Mid(str1, 8, 1) + Right(str1, 6)Print chr1End SubAVa计语言 Vb程序设计语言 V+a+计语言 V+b+程序设计语言20、下面程序的运行结果是：Private Sub Form_Click()Dim str1$, nText1.Text = microsoft_visual_basic_programmingText1.SelStart = 17Text1.SelLength = 5Text1.SelText = Foxprostr1 = Text1.Textn = Len(str1)Print str1, nEnd SubA microsoft_visual_basic_ programming 34Foxpro 6microsoft_visual_Foxpro_ programming 35Foxpro_ programming二：程序结果分析试题，将程序结果填于答卷对应位置.1、private sub form_click( ) dim m%, n% , p% m=24: n=36print m, nwhile( n0) p=m mod n : m=n: n=pprint m, n, pwendend sub2、private sub form_click( )dim a%, b%, sum%, k%a=0: b=0: sum=a+bfor k= 1 to 3a=a+b : b=a+b : sum=sum+a+bprint “+”; a ;”+”; b;next kprint “=”;sumend sub5.Private sub form-click( )Dim k1, k2, sum, try, tem, red, yu k1 = 2005try =k1 Mod 10: k1 =k1 10tem = k1 Mod 10: k1 = k1 10red = k1 Mod 10: k1 = k1 10yu = k1 Mod 10sum = yu+red + tem + tryk2 =try * 1000 + tem * 100 +red * 10 +yuPrint k1=; k1, k2=; k2Print sum=; sumEnd sub本程序输出结果是：_6. Private Sub form_click()Dim sum%, p%, m%,i%, K%m = 3: sum= 0Print sum=;For i = 1 To m Print +; i; !; p = 1 For K = 1 To m p = p * K Next Ksum = sum + pNext iPrint =; sumEnd Sub本程序输出结果是：_7. Private Sub form_click()Dim a%,b%,c%a=5:b=9:c=12a=a+bc=c-bif a-cb-c then a=b+cif a-bb-c then b=a-cprint a,b,cEnd Sub8. 下面程序的运行结果是：_Private sub form_click( )Dim str1$, letter%, number%, other%, n%Letter=0: number=0: other=0Str1=inputbox$(“输入字符串=”,”输入框”,”ab3+c,d_5$”)For n=1 to len(str1)Select case mid$(str1,n,1) Case “a” to “z” Letter=letter+1 Case 1 to 9 Number=number+1 Case else Other=other+1End selectNext nPrint “letter=”;letter ,”number=”;number ,”other=”;otherEnd sub 9. 下面程序的运行结果是：_private sub form_click( )Dim sum%, C%, m%, n%, K%m = 3: sum = 0Print sum=;For n = 1 To m Print +; n; !;C = 1 For K = 1 To nC = C * K Next Ksum = sum + CNext nPrint =; sumend sub11. 下面程序的运行结果是：_Private Sub Command1_Click()Dim a As Integer, s As Integera = 8s = 1Dos = s + aa = a1Loop While a c Then d = d + x(i) c = x(i) Else d = dc End IfNext iPrint dEnd Sub14. 下面程序的运行结果是：_Private Sub Command1_Click()For n = 1 To 12 If n Mod 3 0 Then m = m + n 3Next nPrint nEnd Sub三：程序设计题1. 编程，输入x值，按下式计算并输出y值。2. 从键盘上输入二个正整数m、n，求它们的最大公约数cd和最小公倍数cm提示：