相关试卷
-
1、下列哪个可以切换为手掌工具（ ）。A、按下F键 B、按下空格键 C、双击手掌工具 D、双击缩放工具
-
2、在图层调板中，下面关于背景图层说法正确的是（ ）。A、可以任意调整其前后顺序 B、背景层可以进行编辑 C、背景层与图层之间可以转换 D、背景层不可以关闭层眼
-
3、不属于渐变填充方式的是（ ）。A、直线渐变 B、角度渐变 C、对称渐变 D、径向渐变
-
4、不是文字工具组输入文字的工具是（ ）。A、横排文字工具 B、直排文字工具 C、钢笔工具 D、直排文字蒙版工具
-
5、由红绿蓝三种的颜色构成的模式为( )。A、CMYK模式 B、RGB模式 C、Lab模式 D、灰度颜色模式
-
6、下列哪个是Photoshop图象最基本的组成单元：（ ）A、节点 B、色彩空间 C、像素 D、路径
-
7、在窗体上画一个标签（名称为label1）和一个计时器（名称为timer1），然后编写如下几个事件过程：。程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换1次。
Private sub form_load( )
Timer1.enabled=false
Timer1.interval=
End sub
Private sub form_click( )
Timer1.enabled=
End sub
Private sub timer1_timer( )
Label1.caption=time
End sub
-
8、在窗体上添加1个列表框、1个命令按钮和1个标签，其名称分别为List1，Command1和Label1,通过属性窗口把列表框中的项目设置为“第一个项目”，“第二个项目”，“第三个项目”，“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮 ，将所选择的项目删除，并在标签中显示列表框当前的项目数。将程序补充完整。
Private Sub Command1_Click()
If List1.ListIndex >= Then
List1.RemoveItem
Label1.Caption =
Else
MsgBox "请选择要删除的项目"
End Sub
-
9、下面的程序是求100以内奇数和s的值，请将程序补充完整。
Private Sub Command1_Click( )
Dim s As Single
Dim i As Single
s = _
For i = 1 To 100 Step
Next
Print
End Sub
-
10、以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。
Private Sub Command1_Click() '添加按钮
If Len(Text1.Text) <> 0 Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click() '删除按钮
IfThen
MsgBox "先选择，再删除！"
Else
End If
End Sub
-
11、完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：
Private Sub Command1_Click()
S=
For i = 1 To
S = S+((-1)^()) *i
Next i
Print s
End Sub
-
12、下列程序的功能是找出被5、7除，余数为1的最小5个正整数。
Private Sub Form_Click()
Dim Ncount%, n%
Ncount =
n = 1
Do
If Then
Print n
Ncount = Ncount + 1
End If
n = n + 1
Loop Until =5
End Sub
-
13、下面这段程序是从3个数中找出最小值
Dim x%,y%,z%,min%
X=val(inputbox(“请输入X的值”))
Y=val(inputbox(“请输入Y的值”))
Z=val(inputbox(“请输入Z的值”))
If then
Min=y
Else
Min=x
End if
If z<min then
Print “最小值是：”;min
-
14、以下程序执行后将输出100到200之间所有的素数，并统计素数的个数
Private Sub Form_Click( )
Dim i%, j%, k%, t% 't为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k=
j = Int(Sqr(i))
Do While k <= j And b
If i Mod k = 0 Then
End If
Loop
if b=true then
t = t + 1
Form1.Print i
End If
Next i
Print "t="; t
End Sub
-
15、在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click( )
Text1.Text="Vb Programming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text1中显示的内容为；文本框Text2中显示的内容为
-
16、若要设置文本框的滚动条生效，必须先把属性设置为True。
-
17、循环结构for I = 5.5 to 0 step -2的循环次数是
-
18、设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)执行上面的程序段后，变量b$的值为。
-
19、同时具有列表框与文本框功能的控件是。
-
20、表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是。