下列程序,当单击窗体时s的值是()。PrivateSubForm_CliCk,DimsAsinteger,s=11\3+11mod3,prints,end sub。
A.3
B.4
C.5
D.6
A.3
B.4
C.5
D.6
执行下面的程序,单击窗体后在窗体上显示的第一行结果是(),第三行结果是()。
Private Sub Command1_Click()
s1="B"
For i = 1 To 3
s2=LCase(s1)
s1=s1 & s2
s=s & s1
Print s
s1=Chr(Asc(s1)+i)
Next i
End Sub
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label
1.Caption = s
End Sub
程序运行后, 单击命令按钮, 则标签中显示的内容为
A.1
B.5
C.27
D.45
写如下事件过程:
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
for j = 2 To 4
array1(i, j) = i + j
next j
next i
Text1.Text = arrry1(2, 3) + array(3, 4)
End Sub
程序运行后, 单击命令按钮, 在文本框中显示的值是______
A.12
B.13
C.14
D.15
阅读下列程序并写出程序运行结果。
Private Sub Form_Click()
Dim A(1 To 3) As String
Dim c As Integer
Dim j As Integer
A(1) = "4"
A(2) = "8"
A(3) = "12"
c = 1
For j = 1 To 3
c = c + Val(A(j))
Next j
Print c
End Sub
写出程序运行时单击窗体后,窗体Form1上的结果。
运行下面的程序,单击窗体后在窗体上显示的内容是()。
Private Sub Form_Click()
For i = 1 To 10 Step 2
Print I;
Next I
End Sub
题目来源:1月7日下午江苏省南京市面试考题
试讲题目
1.题目:认识DO-LOOP语句
2.内容:
利用For-Next循环,可以控制计算机按指定的次数执行循环体中的代码。对于事先不知道循环次数的问题,可以在程序中使用另一种类型的循环结构一DO-LOOP循环。例如,在计算机自然数的累加和S=1+2+3+...时,要找出使S不大于1OOOO的最大自然数n,可以按以下步骤编一个VB程序。
①新建一个标准EXE工程。
②在窗体上绘制一个名为Labell的标签和一个名为Commandl的命令按钮,然后打开“代码”窗口,输人下面的代码。
Private Sub Commandl Click()
Dim n As Integer
Dim s As Long
n=0
s=O
Do Whiles<=10000
n=n+I
s=s+n
LOOP
Labell.Caption=n-1
End Sub
③测试程序,窗体中显示的值为 。
④保存窗体文件和工程文件并生成可执行文件。
在这个程序中,第六行是一个DO语句,其中的S<=10000是一个条件表达式。第九行是一个LOOP语句。习惯上,把DO语句和LOOP语句构成的程序结构,叫做DO-LOOP循环。嵌在DO语句和LOOP语句之间的代码是O-LOOP循环体。
计算机遇到DO语句时,先判断条件表达式是否成立。如果成立,就执行循环体规定的操作;否则,转到LOOP语句下面去执行后续的代码。每完成一次循环体规定的操作后,由LOOP语句指挥计算机返回DO语句,再进行下一次判断以及相应的操作。O-LOOP循环的流程如右图所示。
一般说来,D0-Loop循环的格式是:
Do While条件表达式
循环体
LOOP
3.基本要求:
(1)应有与教学主要内容相对应的适当板书;
(2)教学过程中应有与学生的交流讨论;
(3)试讲时间约10分钟。
答辩题目
1.如何评价学生的作品?
2.简述适合采用讲授法的三种情况?
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a + b
b = a - b
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
PrivateSubForm_Click()
DimxAsInteger
StaticyAsInteger
x=x+2
y=y+3
Form1.Print"x=";x,"y=";y
EndSub
写出程序运行时连续单击三次窗体后,Form1上的输出结果。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Command1_Click()
Static A As Integer
Static B As Integer
Cls
B=2
B=B+3
A=3+A
printA,B
EndSub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为()。
A、35
B、66
C、95
D、33