题目详情
当前位置:首页 > 职业培训考试
题目详情:
发布时间:2023-09-28 13:22:08

[单项选择]

窗体上有一名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*(j/i)
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是()。


A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5

更多"窗体上有一名称为Command1的命令按钮,其事件过程如下: Priv"的相关试题:

[单项选择]

窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
Dim s As String
Open “c:/File1.txt” For Input As #1
Open “c:/File2.txt” For Output As #2
Do While Not EOF(1)
Input #1,s
Print #2,s
Loop
Close #1,#2
End Sub
关于上述程序,以下叙述错误的是()。


A. 程序把File1.txt文件的内容存放到File2.txt文件中
B. 程序中打开了两个随机文件
C. 程序中打开了两个顺序文件
D. “EOF(1)”中的“1”对应于File1.txt文件
[单项选择]窗体上有一个名称为Command1的命令按钮,其事件过程如下:
Private Sub Command1_Click( )
x="VisualBasicProgramming"
a=Right(x,11)
b=Mid(x,7,5)
C=Msgbox(a,b)
End Sub
运行程序后单击命令按钮,以下叙述中错误的是( )
A. 信息框的标题是Basic
B. 信息框中的提示信息是Programming
C. C的值是函数的返回值
D. MsgBox的使用格式有错
[单项选择]在窗体上有一个命令按钮Command1,编写如下程序:
Private Sub Command1_Click( )
Print pp1(3, 7)
End Sub
Public Function pp1(x As Single, n As Integer) As Single
If n = 0 Then
pp1 = 1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮Command1,编写下列程序:
Private Sub Command1_Click( )
Print ppl(3,7)
End Sub
Public Function ppl(X As Single,n As Integer)As Single
If n=0Then
ppl=1
Else
If n M0d 2=1 Then
ppl=x*x+n
EIse
ppl=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )
A. 2
B. 1
C. 0
D. 16
[单项选择]

窗体上有一个名为Command1的命令按钮,并有如下程序:
Private Sub Command1_Click( )
Dim a As Integer, b As Integer
a=8
b=12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时,单击命令按钮,则输出结果是()。


A. 3 3 2
B. 3 8 2
C. 8 8 12
D. 3 8 12
[填空题]单击窗体上的命令按钮Command1, 【10】 Private Sub Command1_Click( ) a= "10" b=20 c=Val(a) +b Print c End Sub
[单项选择]窗体上有一个名为Command1的命令按钮,并有如下程序:
Private Sub Command1_Click( )
Dim a(10) ,x%
For k=1 To 10
a(K)=Int(Rnd*90+10)
x=x+a(k) Mod 2
Next k
Print x
End Sub
程序运行后,单击命令按钮,输出结果是______。
A. 10个数中偶数的个数
B. 10个数中奇数的个数
C. 10个数中偶数的累加和
D. 10个数中奇数的累加和
[单项选择]在窗体上有一个命令按钮Command1,编写事件代码如下。
Private Sub Command1_Click( )
Dim y As Integer
y=0
Do
y=InputBox("y=")
If(y Mod 10)+Int(y/10)=10 Then DebugPrint y;
Loop Until y=0
End Sub
打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,窗口上立即输出的结果是( )。
A. 37 55 64 28 19 19
B. 10 50 20
C. 10 50 20 0
D. 37 55 64 28 19

我来回答:

购买搜题卡查看答案
[会员特权] 开通VIP, 查看 全部题目答案
[会员特权] 享免全部广告特权
推荐91天
¥36.8
¥80元
31天
¥20.8
¥40元
365天
¥88.8
¥188元
请选择支付方式
  • 微信支付
  • 支付宝支付
点击支付即表示同意并接受了《购买须知》
立即支付 系统将自动为您注册账号
请使用微信扫码支付

订单号:

请不要关闭本页面,支付完成后请点击【支付完成】按钮
恭喜您,购买搜题卡成功
重要提示:请拍照或截图保存账号密码!
我要搜题网官网:https://www.woyaosouti.com
我已记住账号密码