大一、大二VB考试专用编程题.docxVIP

1．编写程序，求2的n次幂，n的值通过键盘输入。(要求用循环做，非循环不给分。)Private Sub Command1_Click()Dim i As Long, n As Integer, s As Long n = Int(Val(InputBox(请输入n的值 + 输入框))) s = 1 For i = 1 To n s = s * 2 Next i Print s End Sub2．从键盘上输入两个正整数A和B，求最大公约数。Private Sub Command1_Click()Dim a As Integer, b As Integer, n As Integer, i As Integer a = Text1.Text b = Text2.Text If a b Then i = a: a = b: b = i Do While b 0 n = a Mod b: a = b: b = n Loop Text3.Text = n End Sub3．编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。Private Sub Form_Click()Dim n As IntegerDim cont1 As Integer, cont2 As Integer, cont3 As Inte