在窗体添加一个名称为command的命令按钮，然后编写如下程序代码： private sub changeommand1-click() a=75

来源：蜘蛛抓取(WebSpider) 时间：2012-05-26 11:32 标签： private sub
VISUAL BASIC模拟试题题库
本试题来自：（2006年VISUAL BASIC模拟试题，）一、选择题下列各题A、B、C、D四个选项中，只有一个答案是正确的。在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click(
Dimarray1(10，10)As Integer
Dim i，j As Integer
For i=1 To 3
For j=2 T0 4
Array1(i，j)=i+j
Text1.Text=array1(2，3)+array1(3，4)
程序运行后，单击命令按钮，在文本框中显示的值是A．12B．13C．14D．15正确答案：有， 或者 答案解析：有，
您可能感兴趣的试题
单项选择题：（)窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：
Private Sub Command1_Click()
Dim In As Integer
List.Remove Ind
则在程序的空白行的语句是(
)。A．List1.IndexB．List1.ListIndexC．List1.TextD．List1.ListCount答案：有，答案解析：有，单项选择题：（)下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整(
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
Dim Ksc As Ang
Private Sub Form_Click()
Dim Y As Single
Dim i As Integer
Dim Ksc As Ang
Open______
For i=1 To 90
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
End SubA．"..\Data1.txt"For Random As #1 Len=10
Put#1,i,KscB．"..\Data1.txt"For Random As #1 Len=10
Put#1,Y,KscC．"..\Data1.txt"For Random As #1
Put#1,i,KscD．"..\Data1.txt"For Random As #1
Put#1,Y,Ksc答案：有，答案解析：有，
VISUAL BASIC模拟试题最新试卷
VISUAL BASIC模拟试题热门试卷VISUAL BASIC模拟试题题库
本试题来自：（2006年VISUAL BASIC模拟试题，）一、选择题
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请选出正确选项。在窗体上画一个名称为Timet1的计时器、一个名称为Commandl的命令按钮和一个名称为Labell的标签。编写程序如下：
Private Sub Command1_Click()
Timer1．Enabled=True
Timer1．Interval=1000
Private Sub Timerl Timer()
Labell．Left=Labell．Left + 10
当运行程序后，单击命令按钮，将会产生A．每秒钟显示一次系统时间B．每10秒钟显示一次系统时间C．每秒钟标签向右移一段距离D．每秒钟标签向左移一段距离正确答案：有， 或者 答案解析：有，
您可能感兴趣的试题
单项选择题：（)在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程：
Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then
End Function
Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0
For i = 1 To 5
s = s + fun(i) Next
程序运行后，单击命令按钮，在窗体上显示的是______。
A．6B．7C．8D．9答案：有，答案解析：有，单项选择题：（)执行下列程序后，鼠标单击窗体，输出结果为（
　　Private Sub Form_Click()
　　　Print“Click”；
　　End Sub
　　Private Sub Form_MouseDown(Button As Integer，Shift_
　　　　　　　　　As Integer，X As Single，Y As Single)
　　　　　Print “Donw”
　　End Sub
　　Private Sub Form_MouseUp(Button As Integer，Shift_
　　　　　　　　　As Integer，X As Single，Y As Single)
　　　　　Print“Up”
　　End Sub
A． DownUpClickB． ClickDownUpC． DownClickUpD． UpDownClick答案：有，答案解析：有，
VISUAL BASIC模拟试题最新试卷
VISUAL BASIC模拟试题热门试卷ACCESS模拟试题题库
本试题来自：（2012年ACCESS模拟试题，）一、选择题下列各题A、B、C、D四个选项中，只有一个选项是正确的。在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事例代码：
Private Sub Command1_Click( )
Str1="981765"
n=InStr(Str1,Str2)
Me.Text1=n
窗体打开运行后，单击命令按钮，在文本框中显示______。A．4B．5C．6D．7正确答案：有， 或者
您可能感兴趣的试题
单项选择题：（)在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序：
Public x As Integer
Private Sub Commandl
Private Sub sl()
Private Sub s2()
Dim x As Integer
打开窗体运行后,如果单击命令按钮,则消息框的输出结果为【
A．10B．30C．40D．50答案：有，答案解析：有，单项选择题：（)以下程序的输出结果是(
Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) as Integer
For I-1 to 10
For j=1 to3
p(i)=a(I*j)
For I=l to 3
k=k+ p (I)*2
End SubA．33B．28C．35D．37答案：有，答案解析：有，
ACCESS模拟试题最新试卷
ACCESS模拟试题热门试卷2014 9月份二级access选择题题库_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
2014 9月份二级access选择题题库
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
vb程序设计实验部分
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口

我要回帖

更多关于 private sub 的文章

 

随机推荐