2、下列程序的输出结果是(0 )。 P=0 For I=1 to 4 p=p*I Next I Print p
3、下列程序段的输出为(30 )。 S=0 For I=1 to 10 I=I+1:s=s+I Next I Print s
4、以下程序段的输出结果是(4 )。 X=1:y=4 do until y>4 x=x*y:y=y+1 loop Print x\"
5、以下程序段的输出结果是(5 )。 N=4:k=1:I=0 For I=1 to n k=k*I Next I Print I\"
6、以下程序段的输出结果是( 24)。N=4:k=1:I=0 For I=1 to n k=k*I Next I Print k\"
7、 以下程序段的输出结果是( 1 2 Num=0
While num<=2 num=num+1 Print num; Wend\"
8、 以下程序段运行的结果为(25 )。3)。
Dim m(10) For I=1 to 5 m(I)=I*I Next I Print m(I-1)\"
9 、以下程序段运行的结果为( 16)。 Dim m(10) For I=1 to 5 m(I)=I*I Next I
Print m(I-2)\"
10 、假定有以下程序段 For I=1 to 3 For j=5 to 1 step –1 Print I*j Next j,I
则语句Print I*j的执行次数是(15 )。
2、设有程序: Option Base 1
Private Sub Command1_Click() Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, , 866, 43) = arr1(1) For i = 1 To 8
If arr1(i) > Max Then Next i
Print \"最大值是: \"; Max End Sub
以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。 答案: Max
Max=arr(i)
本程序的功能是利用随机数函数模拟投币,方法是:每次随机产生一个0或1的整数,相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text1、Text2、Text3,分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数,如图所示。程序运行后,在文本框Text1中输入总次数,然后单击“开始”按钮,按照输入的次数模拟投币,分别统计出现正面、反面的次数,并显示结果。以下是实现上述功能的程序,请填空 Private Sub Command1_Click() Randomize
n = CInt(Text1.Text) n1 = 0 n2 = 0
For i = 1 To r = CInt(Rnd*2)
If r = Then
n1 = n1 + 1 Else
n2 = n2 + 1 End If Next
Text2.Text = n1 Text3.Text = n2 End Sub
答案: n 1
在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后,如果单击“初始化”命令按钮,则对数组a的各元素赋值;如果单击“求和”命令按钮,则求出数组a的各元素之和,并在文本框中显示出来,如图所示。请填空。
Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click() For i = 1 To 3 For j = 1 To 2
= i + j Next j Next i End Sub
Private Sub Command2_Click() For j = 1 To 3 For i = 1 To 2
s = s + Next i Next j
Text1.Text = End Sub
答案:a(i,j) a(i,j) s 1.【程序说明】下面是一段计算数学表达式 1 2 3 4 1 1 n 的程序。 n2!3!4!n!Private Sub Form_Click() Dim n As Integer, p As Integer, s As Sigle, q As Integer, i As
Integer
n = InputBox(\"请输入N的值:\") s = 0:p = -1:q = 1 For i = 1 To n
p = -p: q = (1) s = (2) (3) Print s End Sub
4.【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中,再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。
Private Sub Form_Click()
Dim a(30) As byte, i as Byte, j As Byte, m As Byte
For i = 1 To 30: a(i) = ⑴ : Next i For i = 1 To 29
For j = ⑵ If a(i) > a(j) Then
m = a(i): ⑶ :a(j) = m End If Next j,i
For i = 1 To 30
If ⑷ Then Print a(i); Next i End Sub
程序1. 请写出在Text1、Text2、Text3中依次输入3、4、5后,单击窗体时Label1的显示结果。
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
a = Text1.Text: b = Text2.Text: c = Text3.Text
Label1.Caption = Str(a * a + 2 * b * b + 3 * c * c) End Sub 答案:116
程序2. 请写出在Text1、Text2中输入96、40后,单击Command1时窗体上的显示结果。
Private Sub Command1_Click()
Dim a As Long,b As Long,r As Long a = Text1.Text: b = Text2.Text Do While b <> 0
r = a Mod b: a = b: b = r Loop Print a End Sub 答案:8
程序3. 请写出在文本框中输入“12345”(5个字符)并按回车键后标签控件上的显示结果。
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String * 1, b As String, n As Byte, i As Integer If KeyAscii = 13 Then b = Text1.Text: n = Len(b) For i = 1 To n \\ 2
a = Left(b, 1)
b = Right(b, n - 1) + a
Label1.Caption = Label1.Caption + b + Chr(13) + Chr(10) Next i End If End Sub
答案:23451
程序7. 已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置:
HScroll1.Min:1 HScroll1.Max:10 HScroll1.SmallChange:1 HScroll1.LargeChange:2 HScroll1.Value:5 写出连续3次单击水平滚动条HScroll1右端箭头后,窗体上显示的结果。
Private Sub HScroll1_Change() Static y As Integer
If HScroll1.Value Mod 2 = 0 Then y = y + HScroll1.Value Print \"y=\"; y End If End Sub 答案:y=6 Y=14
End Sub
2.【程序说明】窗体上有两个命令按钮:Command1(显示)和Command2(退出)。下列程序运行时,“显示”按钮能响应,“退出”按钮不能响应;单击“显示”按钮后,在窗体上显示一个用字符“*”组成的5层的金字塔,同时“显示”按钮不能响应,“退出”按钮能响应。
Private Sub Command1_Click()
Dim i As Integer, j As Integer For i = 1 To 5
Print Spc(5 - i);
For j = (1) : Print \"*\"; : Next j Print Next i
Command1.Enabled = False (2) End Sub
Private Sub Command2_Click()
End End Sub
Private Sub Form_Load() Command1.Enabled=True (3) End Sub
3.【程序说明】下列程序能在一定范围内找出所有素数,要求:文本框用来输入所要找的数的范围,且只能先在Text1(必须大于1)输入结束后才能在Text2(必须大于Text1中的数)中输入,按回车键表示输入结束。在Text2输入结束后,才能单击“Command1”(确定)命令按钮,并在窗体上输出该范围内的所有素数。 以上过程可重复。
Private Sub Form_Load()
Command1.Enabled = False: (1) End Sub
Private Sub Command1_Click()
Dim n As Integer, m As Integer, i As Integer, p As Integer n = Val(Text1.Text): m = Val(Text2.Text) For i = n To m
(2)
Do While p< = Int(Sqr(i))
If i Mod p = 0 Then Exit Do Else p = p + 1 Loop
If p > Int(Sqr(i)) Then (3) Next i
Text1.Text = \"\": Text2.Text = \"\"
Text1.Enabled = True: Text2.Enabled = False Command1.Enabled = False End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
If (4) Then Text1.Text = \"\" Else
Text2.Enabled = True: Text1.Enabled = False End If End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If (5) Then
If Val(Text2.Text) <= Val(Text1.Text) Then Text2.Text = \"\" Else
Text2.Enabled = False Command1.Enabled = True End If End If End Sub
因篇幅问题不能全部显示,请点此查看更多更全内容
Copyright © 2019- xiaozhentang.com 版权所有 湘ICP备2023022495号-4
违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务