君，已阅读到文档的结尾了呢~~
vb最简单入门教程 vb教材
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
vb最简单入门教程 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秒自动关闭窗口按键精灵 点一下按钮输入框的数字就加一 默认是零 这样的按钮和窗口要有好多个 最后还要有个按钮一按_百度知道
按键精灵 点一下按钮输入框的数字就加一 默认是零 这样的按钮和窗口要有好多个 最后还要有个按钮一按
按键精灵 点一下按钮输入框的数字就加一 默认是零 这样的按钮和窗口要有好多个 最后还要有个按钮一按所有的输入框的数字都清零 再 求写法
Text&nbsp加一个按钮组件 和 输入框组件测试代码如下Event&&Form1;&得到输入框的内容=Form1.InputBox1;&nbsp.InputBox1;=得到输入框的内容'&Form1;&&nbsp.Button1;&&改变当前输入框1的内容End&&nbsp.Text'得到输入框的内容=得到输入框的内容+1&得到当前输入框1的内容&nbsp.Click&nbsp
来自团队：
其他类似问题
为您推荐：
按键精灵的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁按键精灵输入框输入变量_百度知道
按键精灵输入框输入变量
.InputBox1，问题出在哪.ChangeEnd EventIf E &gt，语法没问题; T Then Goto a
//去重新扫描异常Else Goto lEnd If我这么写，但是脚本运行没有反应，求大神指导Event Form1.ChangeT = Form1.InputBox1
提问者采纳
/ T Then Goto a
&#47你这脚本不可行.ChangeIf E &gt.T = Form1.InputBox1.试试这个
提问者评价
其他类似问题
Change T = Form1把T定义为环境变量.InputBox1。在判断之前先输出T的值看看对不对.InputBox1。DimEnv TEvent Form1
来自团队：
为您推荐：
按键精灵的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁满分东大16春学期《可视化程序设计Ⅰ》在线作业1&2&3答案
16春学期《可视化程序设计Ⅰ》在线作业1
&需要满分答案加QQ
一、单选题（共 20 道试题，共 100 分。）
1. &以下叙述中错误的是
A. 一个工程中可以包含多个窗体文件
B. 在一个窗体文件中用Private定义的通用过程能被其他窗体调用
C. 在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
D. 全局变量必须在标准模块中定义
&要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
A. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
B. "Open ""c:\filel.txt"" For Output As # 2"
C. Open c:\filel.txt For Input As # 1
D. Open c:\filel.txt For Input As # 1
&在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name
属性为Command1），然后编写如下两个事件过程：Private Sub
Command1_Click()a=Text1.Text+Text2.TextPrint aEnd Sub Private Sub
Formm_Load()Text1 Text=""Text2 Text=""End
sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321
4. &以下能够正确计算n!的程序是
A. Private Sub Command1_Click()n=5:x=1Dox=x*ii=i+1Loop While
B. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop
C. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop
While i&=nPrint xEnd Sub
D. Private Sub Command1_Click()n=5:x=1:i=1Dox=x*ii=i+1Loop
While i&nPrint xEnd Sub
5. &以下关于图片框控件的说法中，错误的是
A. 可以通过Print方法在图片框中输出文本
B. 清空图片框控件中图形的方法之一是加载一个空图形
C. 图片框控件可以作为容器使用
D. 用Stretch属性可以自动调整图片框中图形的大小
6. &使文本框获得焦点的方法是
B. GotFocus
C. SetFocus
D. LostFocus
7. &当利用Line方法进行添加图时，以下正确的说法是（ ）
A. 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
"使用Line(100,100)-()和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线
C. "可利用Line方法添加矩形，如Line(300,300)-(),BF "
D. "可利用Line方法添加矩形，如Line(300,300)-(),B+F "
&若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
9. &关于记录操作的说明错误的
A. 在通过Addnew增加记录后，需要调用Update方法更新数据库
B. 在通过Delete删除记录后，需要调用Update方法更新数据库
C. 在通过Delete删除记录后，需要调用movelast或movenext方法
D. 在通过Edit编辑记录后，需要调用Update方法更新数据库
10. &以下程序的输出结果是Option Base 1Private Sub
Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext
iFor i=1 To 3p(i)=a(i*i)Next IFor i=1 To 3k=k+p(i)*2Next iPrint
11. &在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print
Chr$(65+I); Next J Print Next I End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. "BB CC DD EE"
B. A BB CCC DDD
C. B CC DD EEE
D. AA BBB CCCC DDDD
12. &表达式4+5 \ 6 * 7 / 8 Mod 9 的值是
&在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则Check1.value的值是（）
&定时器的Interval属性以（）为单位指定Timer事件之间的时间间隔
15. &为了暂时关闭计时器，应把该计时器的某个属性设置为False
，这个属性是
A. Visible
C. Enabled
D. Interval
16. &窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private
Sub Command1_Click()For I=1 To 4For J=0 To 1Print Chr$(65+I);Next
JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. BB CC CC DD EE
B. A BB CCC DDDD
C. B BB CCC DDDD
D. AA CC DDD CCCC
&在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是（）
A. Private Sub Command1_Click()CommonDialog1.ShowEnd Sub
B. Private Sub Command1_Click()Open CommonDialog1.ShowColorEnd
C. Private Sub Command1_Click()CommonDialog1.ShowFontEnd
18. &以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件
&一个工程中包含两个名称分别为Form1、Form2的窗体，一个名称md1Func的标准模块。假定在Form1、Form2和mdlFunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：Private
Sub frmFunction1()……End SubForm2中定义的过程Public Sub
frmFunction2()……End SubmdlFunc中定义的过程：Public Sub md1Function()……End
Sub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以
A. 上述三个过程都可以在工程中的任何窗体或模块中被调用
B. frmFunction2和mdlFunction过程能够在工程中各个窗体或模块中被调用
C. 上述三个过程都只能在各自被定义的模块中调用
D. 只有md1Function过程能够被工程中各个窗体或模块调用
&在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码Private
x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As
Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd
Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
&&需要满分答案加QQ
16春学期《可视化程序设计Ⅰ》在线作业2
一、单选题（共 20 道试题，共 100 分。）
1. &在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是（）
&要从磁盘上读入一个文件名为“c:\filel.txt”的顺序文件，下面程序段正确的是（）
B. "F=""c:\filel.txt""Open ""F"" For Input As # 2"
C. "Open ""c:\filel.txt"" For Output As # 2"
D. Open c:\filel.txt For Input As # 1
3. &对窗体编写如下代码：Option Base 1Private Sub
Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 =
a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)&ml Thenm1
=a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End
Sub程序运行后，按回车键，输出结果为
&比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（）
A. 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B. 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
当图片框（PictureBox）的AutoSize自属性为Flase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框
5. &刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A. 单选按钮
C. 通用对话框
&在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. ") Private Sub Command1_Click() x=InputBox(“请输入整数”)
a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b
Mod 2=0 Then Return 0 Else Return 1 End If End Function"
B. "Private Sub Command1_Click() x=InputBox(“请输入整数”)
a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b
Mod 2=0 Then F1=0 Else F1=1 End If End Function"
C. "Private Sub Command1_Click() x=InputBox(“请输入整数”)
F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) Function
F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End
Function "
D. "Private Sub Command1_Click() x=InputBox(“请输入整数”)
F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod
2=0 Then Return 0 Else Return 1 End If End Function
7. &以下语句的输出结果是。Print Format
$(32548.5,“000,000.00”)
A. 32548.5
B. "32,548.50"
C. "032,548.50"
D. "32,548.50"
&假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是（）
A. 选择图片框，然后按Del键
B. 执行语句Picture1=LoadPicture(“”)
C. 执行语句Picture1.parent=””
D. 选择图片框，在属性窗口中选择Picture属性，然后按回车键
9. &以下能判断是否到达文件尾的函数是
&在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是
A. “text (.txt)|(*.txt)”
B. “文本文件( .txt) | (.txt)”
C. “text(.txt)||(*.txt)”
D. “text(.txt)(*.txt)”
&在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private
Sub Command1_Click() n = Val(Text1.Text) If n\2 = n/2 Then f =
f1(n) Else f = f2(n) End If P nEnd Sub Public Function
f1(ByRef x) x=x*x f1=x+xEnd Function Public Function f2(ByVal x)
&有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private
Sub Command1_Click()s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then
s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是
13. &阅读程序：Sub subP(b() As Integer)For i =1 To
4b(i)=2*i Next iEnd Sub Private Sub Commandl_Click()Dim a(1 To 4)As
Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print
a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为()
A. 2 4 6 8
B. 5 6 7 8
C. &10 12 14 16
14. &设有语句Open"c:\Test.Dat"For Output
As#1则以下错误的叙述是
A. 该语句打开C盘根目录下一个已存在的文件Test.Dat
B. 该语句在C盘根目录下建立一个名为Test.Dat的文件
C. 该语句建立的文件的文件号为1
D. 执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息
&设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
16. &关于数据控件的描述中不正确的是
A. 数据控件通过RecordSource属性获得数据库信息
B. 数据控件通过RecordType属性设置记录集类型
C. 数据控件通过Exclusive属性为True实现对数据库的共享访问
D. 数据控件通过readonly属性决定是否按只读方式打开数据库
17. &设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（）
18. &以下Case语句中错误的是
A. Case 0 To 10
B. Case Is&10
C. Case Is&10 And Is&50
D. "Case 3,5,Is&10"
19. &在窗体上画一个命令按钮，然后编写如下事件过程：Prevate Sub
Command1_Click()x=0Do Until x=-1a = InputBox(“请输入A的值”)a = Val(a)b =
InputBox(“请输入B的值”)b = Val(b)x = InputBox(“请输入x的值”)x = Val(x)a =
a+b+xLoopPrint aEnd
Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为
20. &在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private
Sub Command1_Click()Static X As IntegerStatic Y As
IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd
Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为
16春学期《可视化程序设计Ⅰ》在线作业3
一、单选题（共 20 道试题，共 100 分。）
1. &在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base
1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4
To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd
Sub运行上面的程序，单击命令按钮，其输出结果是
&窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
A. Private Sub Command1_Click( ) Command2.Visible=True
:Command3.Enabled=TrueEnd Sub
B. Private Sub Command1_Click( )
Command2.Visible=False:Command3.Enabled=False End Sub
C. Private Sub Command1_Click( ) Command2.Enable=True
:Command3.Visible=FalseEnd Sub
D. Private Sub Command1_Click( ) Command2.Enabled=False :
Command3.Visible=False End Sub
3. &在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub
Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To
2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是
4. &在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub
Form_Click()List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem
2End SubPrivate Sub Form_Load()List1.AddItem "AA"List1.AddItem
"BB"List1.AddItem "CC"List1.AddItem "DD"List1.AddItem "EE"End
Sub运行上面的程序，然后单击窗体，列表框中所显示的内
&在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub
Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print　
NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容则在下划线处应填入的内容为
A. "Right(c1,i)"
B. "Left(c1,i)"
C. "Mid(c1,i,1)"
D. "Mid(c1,i,i)"
6. &使文本框获得焦点的方法是
B. GotFocus
C. SetFocus
D. LostFocus
&假定窗体上有一个文本框，名为Txt1，为了使该文本框的内容能够换行，并且具有水平的垂直滚动条，正确的属性设置为（）
A. Txt1.MultiLine = True : Txt1.ScrollBars = 0
B. Txt1.MultiLine = True : Txt1.ScrollBars = 3
C. Txt1.MultiLine = False: Txt1.ScrollBars = 0
D. Txt1.MultiLine = False Txt1.ScrollBars = 3
&在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是
A. Drive1_Change
B. Drive1_Click
C. Dir1_Click
D. Dir1_Change
9. &(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click() Move 500，500 End Sub
程序运行后，单击命令按钮，执行的操作为
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
10. &(2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
&假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删除图片框），应采用的正确的方法是（）
A. 选择图片框，然后按Del键
B. 执行语句Picture1=LoadPicture(“”)
C. 执行语句Picture1.parent=””
D. 选择图片框，在属性窗口中选择Picture属性，然后按回车键
12. &(9)下列可以打开立即窗口的操作是（）
A. "Ctrl+D
13. &以下叙述中错误的是
A. 在同一窗体的菜单项中，不允许出现标题相同的菜单项
B. 在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键
C. 程序运行过程中，可以重新设置菜单的Visible属性
D. 弹出式菜单也在菜单编辑器中定义
14. &设组合框Combol中有3个项目，则以下能删除最后一项的语句是
A. Combol.RemoveItem Text
B. Combol.RemoveItem 2
C. Combol.RemoveItem 3
D. Combol.RemoveItem Combol.Listcount
&为使计时器控件每隔5秒钟产生一个计时器事件（Timer事件），则应将其Interval属性值设置为（）
16. &为了使标签中的内容居中显示，应把Alignment属性设置为
17. &设a=“Visual Basic”，下面使b=“Basic”的语句是
A. "b=Left(a,8,12) "
B. " b=Mid(a,8,5)"
C. "b=Rigth(a,5,5)"
D. "b=Left(a,8,5)"
18. &如果在立即窗口中执行以下操作：a=8 (是回车键，下同)b=9 print
a&b 则输出结果是
19. &当利用Line方法进行添加图时，以下正确的说法是（ ）
A. 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
"使用Line(100,100)-()和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线
C. "可利用Line方法添加矩形，如Line(300,300)-(),BF "
D. "可利用Line方法添加矩形，如Line(300,300)-(),B+F "
&在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. "Private Sub
Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd Sub
Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn
1End IfEnd Function"
B. "Private Sub
Command1_Click()x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd Sub
Function F1(ByRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End
IfEnd Function"
C. "Private Sub
Command1_Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub
Function F1(ByRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End
IfEnd Function"
D. "Private Sub
Command1_Click()x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub
Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn
1End IfEnd Function"
&需要满分答案加QQ
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。