vb吧-百度贴吧--创造一片开源的天地！--我们崇尚开源分享和提倡技术讨论，当然如果你不开源也可以，只是不会得到更多的尊重，禁止一切伸手党和宣传党以及图片党，有问题大家一起交流~！
签到排名：今日本吧第个签到，
本吧因你更精彩，明天继续来努力！
本吧排名：
本吧签到人数：146
可签7级以上的吧50个
本月漏签0次！
成为超级会员，赠送8张补签卡
连续签到：天&&累计签到：天
超级会员单次开通12个月以上，赠送连续签到卡3张
创造一片开源的天地！
萌新问一下，我建立了access数据库我给里面添加了图片，那我vb怎么从数据库打开这张图片啊
求助VB大神关于vb调用PPT的，有偿答谢
初学者求帮助
系统总提示缺少if，大神帮忙看下。??? Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If listbox1.Text
这是一个快递计费的小程序，就卡在这了，麻烦大佬们帮忙看看是哪错了，谢谢了。
图1中text1.Count是什么意思啊？运行后，总是出错，如图二
各位大神，安装过程出现这个该怎么弄
我有两个文本文件，一个后缀为“.s”,一个后缀为“.x”,我弄了上图的界面， 要求1:、点击后面的浏览或
周六就要考计算机二级了，对上机考试怎么保存文件的问题有点疑问？求大神指导一下
大神求教，题目是求数组中负数的乘积，并显示负数个数
如下图：在鼠标即将按下时的事件。
求教大佬 下面这种 UserControl.Item(n).Caption UserControl.Item(n).Visible 等等要怎么用代码来实现？ 我在用户控件里
学渣求助，第四题程序该怎么编啊
Private Sub display_Click() Dim reccount As Integer Adodc2.RecordSource = & select readerid1 as & & & 编码 & &
求助帖，求大神逐句解释下意思，就几句很简单…
我想用一个按钮链接Access数据库并且根据字段里数据做一个统计功能 然后我尝试写了一下链接数据库的代
请问这个表格能做到VB里面吗？ 我能计算出里面的 P 和曲线T 请问能不能通过VB求得Z 如果可以的话该怎么
我有多个数据库，有的数据库中有字段名 “坡口”，有的没有。 如何判断我正在操作的有的个数据库有无
编写程序判断某个数是否是水仙花数。 要求：用inputbox函数输入一个数，将结果输出在窗体上。 提示：水
我写一个程序，现在要实现这个一个功能，满足如下条件就执行转换代码：上面个文本框路径的文件格式
未知错误号 429 已经发生: ActiveX 部件不能创建对象
不会vb，所以无从入手。不知道哪位大佬能帮下忙
这次是vb前两年做的一个小项目，主体代码放在模块1里面了，红色这个地方是执行到的地方，后面就跳转
如今来贴吧给大家施舍问题的人都喜欢 1、帖子发多遍，一遍据不罢休。 2、问题没说清，你要是追问一下
Dim hDevice&&&&&&&&&&&&& As Long&&&&&&&&
for语句循环次数为 int(终值-初值)/步长+1还是 int(终值-初值+1)/步长
各位，点击注销以后关闭该FORM1返回FORM2代码该怎么写？谢谢
我用了adodc和datagrid部件，就这个导出不会做了……
如题，请教大神，想把一些基本参数保存在电脑中，方便下次启动软件的时候进行配置。 放在注册表内和
如题，求大佬解答
VB资料大全
各位大佬教一下，初学者谢谢谢谢啦！！！
想做一个程序就是统计数据库中一个字段中有多少种类，而且统计出每个种类有多少数量，请问各位大佬
我想问下大家用的VB是什么版本的?
各位大佬，帮帮我，初学。我想完成以下操作选择管理者1点击登录，就会弹出FOTM1 选择管理者2点击登记会
新手求助：为什么六个照片框执行左对齐时会重叠啊
下面是VB上机考试题: 窗体上 有一个文本框和一个命令按钮(计算) 运行后,要求 计算出100-200之间的质数的和,把结果显示在文本框中,同时把和保存在 out.
各位大佬，什么叫基于web的软件开发技术，以vb为汇编语言，以sql sever为数据库做一个软件啊，这个基于web
在win7系统开发了一个程序，运行没有问题，拷贝到win10就无法保存数据出现“运行时错误94”，请问有什么
需要有那种比较多的案例的书籍
求救！本人对VB一窍不通。我有源代码不知道怎么运行。图一是下载的文件，图二是这个程序的功能，求大
有没有大神。。。要求有传递函数（一阶二阶惯性环节），参数自己设定，再来一个典型输入，显示输出
编程用win10好呢，还是win7好呢？
消失了两年然后我又冒个泡，这次共享个库。 之前yjryym做过一些类型库，后来我也想多找几个人一起完成A
你可能感兴趣的吧...
发贴红色标题
签到六倍经验
兑换本吧会员
赠送补签卡1张，获得
助攻总额: 43W
贴吧热议榜
发表后自动分享本贴
使用签名档&VB程序设计期末考试题一、选择题1
下列常量中，是Integer类型常量的是（
）。A、123&B、-38844C、123%D、327682
下面选项中()是字符连接运算符.
AA、&B、AndC、%D、Mod3
下面关于VB的集成开发环境（IDE）的叙述中，不正确的是（A、IDE是设计、调试、运行VB程序的工具。B、用户不能随意关闭IDE中的窗口。C、"窗体设计" 窗口是用来设计应用程序界面（窗体）的。D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。4
len(“vb程序设计”)=(
) 。A、 5B、2C、 6D、105
表达式 15 Mod 4 + 13 \ 5 * 2 的值是
DA、7B、0C、2D、46
赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（
AA、157B、12334C、123D、"12334"7
在一个语句内写多条语句时,用来分隔每条语句的符号是(C).A、,B、;C、:D、、8
将逻辑型数据转换成整型数据时，转换规则是（
）。A、将True转换为
1 ，将False转换为 0B、将True转换为
1 ，将False转换为 -1C、将True转换为
0 ，将False转换为 -1D、将True转换为 -1 ，将False转换为 09
表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).
）A、SINB、4^5C、3*4D、x+110
如果x=2，则表达式x+1>2
sin(x)>0.9
3>x+3的值（
）。A、不能计算B、 TrueC、5D、False11
随机产生 [10，50] 之间整数的正确表达式是（
DA、Round( Rnd*50)B、 Int(Rnd*40+10)C、Round( Rnd*51)D、 10+Int(Rnd*41)12
每建立一个窗体,工程管理器窗口中就会增加一个(C).A、类模块文件B、工程文件C、窗体文件D、程序模块文件13
INT(100*RND(1))产生的随机整数的闭区间是(B).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14
下列数据类型中,占用内存最小的是(D).A、IntegerB、SingleC、BooleanD、Byte15
VisualBasic是一种()程序设计语言.BA、过程式B、非过程式C、机器D、低级16
函数Int(10*Rnd)是在(A)范围内的整数.A、[0,9]B、[0,1]C、[1,9]D、[1,10]17
以下合法的一组Visual Basic用户标识符是
CA、Sum 和
8abcB、a#x
和 PiC、ForLoop 和 TotalD、Const 和 DoWhile ）。18
函数Len(Str(Val("123.4")))的值为(B).A、5B、6C、8D、1119
Int(198.555*100+0.5)/100的值为BA、199.6B、198.56C、200D、19820
以下各表达式中, 计算结果为0的是(A).A、FIX(12.4)+FIX(-12.6)B、CINT(12.4)+CINT(-12.6)C、INT(12.4)+INT(-12.6)D、FIX(13.6)+FIX(-12.6)21
MsgBox()的正确语法是（
）。A、 MsgBox(标题 [，提示信息] [，按钮类型])B、 MsgBox(提示信息[，标题] [，按钮类型])C、MsgBox(标题 [，按钮类型] [，提示信息])D、 MsgBox(提示信息 [，按钮类型] [，标题])22
3>8-3 OR 10+2 <=3*4
AND 5=2+3的结果是(C).A、10B、-3C、TrueD、False23
表达式4+5 \ 6 * 7 / 8 Mod 9 的值是(D).A、7B、4C、6D、524
设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(D).A、5B、0C、6D、-125
下面关于VB的叙述中，不正确的是（
）。A、用VB编写的程序可以在任何操作系统环境中运行。B、VB是面向对象的可视化的软件开发工具。C、VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。D、VB是由美国Microsoft（微软）公司开发程序设计语言。26
表达式16 / 4-2^5*8 / 4
5 \ 2 = (A、4B、0C、-2D、 -6 A
声明符号常量应该用关键字(B).A、PrivateB、ConstC、StaticD、V26/ariant28
下列数据类型中,占用内存最大的是(D).A、BooleanB、IntegerC、ByteD、Single29
下列VB数据类型中，占用内存最少的是（
）。A、CurrencyB、IntegerC、BooleanD、Byte30
RGB 函数通过红.绿.蓝三基色混合产生某种颜色,某语法为RGB(红.绿.蓝),括号中红、绿、蓝三基色的成分使用0~255之间的整数.若使用三个滚动条分别输入三种基色,为保证输入数值有效,则应设置(B)属性.A、Scroll和ChangeB、Max和MinC、Smallchange和 LargeChangeD、Value31
k=12.5 ，len( str( k ) )=(A、 4B、5C、 3D、 2 B
表达式Abs(-5)*5\5/5的值是 DA、1B、5C、-25D、2533
产生[10,37]之间的随机整数的VisualBasic表达式是(C).A、Int(Rnd(1)*27)+11B、Int(Rnd(1)*28)+11C、Int(Rnd(1)*28)+10D、In t(Rnd(1)*27)+1034
工具栏中的"启动"按钮的作用是(B).A、工程管理窗口B、运行一个应用程序C、打开被选中对象的代码窗口D、运行一个窗体35
不需要编译，计算机便可直接执行的程序是（A、C语言程序 B
）。B、 机器语言程序C、 汇编语言程序D、 Visual Basic语言程序36
Val (“123ab”)=（A、0B、 不能转换C、1230D、123
表达式16/4-2^5*8/4MOD5\2的值为 AA、4B、2C、14D、2038
删除字符串前导和尾随空格的函数是(D).A、Rtrim( )B、Ltrim()C、LcaseD、Trim()39
下列表达式中,其值为0的是(C).A、15 mod 9B、7/9C、7\9D、7 mod 1540
表达式Len("123程序设计ABC")的值是
BA、17B、10C、14D、2041
Int(-3.1)+round (-4.6)=________C_________。A、-8B、-6C、-9D、-742
\、/、Mod、*等4个算术运算符中,优先级最低的是(A).A、ModB、/C、*D、\43
下面正确的赋值语句是（A、x=y=1B、x+2=y^2+2C、x+y=1D、x=y+z1
Len("实践应用能力")的值是(A).A、6B、4C、不能确定D、845
表达式Mid("SHANGHAI",6,3)的值是(C).A、ANGHB、SHAC、HAID、SHANGH46
表达式25\3 mod 3 *Int(4.5)的值为(B).A、1B、8C、4D、547
下面变量名称正确的是（ C
）。A、x □1B、integerC、 x_1_yD、 x , y48
不能正确表示条件"两个整型变量A和B之一为0,但不能同时为0" 的布尔表达式(D).A、A*B=0ANDABB、(A=0ORB=0)ANDABC、A=0ANDB0ORA0AND B=0D、A*B=0AND(A=0ORB=0)49
如果X是一个正的实数,将千分位四舍五入,保留两位小数的表达式是(C).A、0.01*int(100*(x+0.05))B、0.01*int(x+0.05)C、0.01*int(100*(x+0.005))D、0.01*int(x+0.005)50
表达式X+1>X是(D).A、非法表达式B、字符表达式C、算术表达式D、关系表达式51．VisualBasic的编程机制是(B).A、面向图形B、事件驱动C、面向对象D、可视化52 下面4项中合法的变量名是(A).A、X_yzB、X-YC、123abcD、integer53 以下可以作为VB变量名的是(C).A、COS(X)B、X(-1)C、CO1D、SIN54 表达式(7\3+1)*(18\5-1)的值是(B).A、8.76B、6C、6.67D、7.855 下列哪个变量名的取法是不正确的(C).A、sTmeB、T_12C、T12%D、T_Temp56 可以同时删除字符串前导和尾部空白的函数是(B).A、LtrimB、TrimC、MidD、Rtrim57 VB窗体文件的扩展名是(A).A、FRMB、VBWC、VBPD、BAS58 一个具有图形用户界面的“标准EXE”工程必须包含的文件是（
A、工程文件和窗体文件。B、窗体文件和标准模块文件。C、工程文件和资源文件。D、工程文件和标准模块文件。59 数学式3≤X＜5写成VB表达式是（
）。A、3<=X
X<5B、X>=3
5<XC、3<=X
X<5D、3<=X<560 表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(A).A、.5B、0.48C、.05D、0.04861 变量未赋值时,数值型变量的值为(C).A、空B、无任何值C、0D、162 正确的变量名是（
）。A、xy_01B、sa
t01C、3xyD、integer63 当Ucase$(C$)>”A” and
Ucase$(C$)<”Z”为true时，则C$是__A______。A、字母
）B、大写字母C、 小写字母D、 不一定64 表达式(-1)*Sgn(-100+Int(Rnd*100))的值是(A).A、1B、-1C、随机数D、065 表达式print Len(trim(" abcd ")&"123")的结果是 DA、abcdB、9C、123D、766 Rnd函数不可能产生的()值.BA、0B、1C、0.1234D、.0000567 下面变量名称不正确的是（
）。A、x1B、1xC、 x1yD、x_168 下列哪个变量名的取法是不正确的(B).A、T_TempB、T32#C、T32D、TName69 选中复选框控件时,value属性的值,可以是(C).A、TrueB、falseC、1D、070 程序运行时，如果复选框被用户选中，那么其Value属性值为（
AA、1B、FalseC、 TrueD、 071 程序运行时，如果单选框被用户选中，那么其Value属性值为（ DA、0B、1C、FalseD、True72 下列()是窗体文件的扩展名.AA、frmB、clsC、dllD、bas73要使标签能透出窗体的背景,必须设置(C)属性.A、Appearance 。）。
）B、BorderStyleC、BackStyleD、BackColor74 当窗体被关闭时，系统自动执行该窗体的（ A
）事件过程。A、UnloadB、LoadC、LostFocusD、Click75 要使窗体运行时充满整个屏幕，应设置其（
）属性。A、AutoRedrawB、WidthC、 HeightD、WindowState76 要使得窗体一开始运行就充满整个屏幕则须设置()属性. AA、windowstateB、borderstyleC、appearanceD、drawmode77 要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBar属性设置为(A).A、3B、0C、1D、278 决定控件上文字的字体、字形、大小及效果的属性是(C).A、TEXTB、CAPTIONC、FONTD、NAME79 在窗体设计器窗口双击窗体的任何地方,可以打开的窗口是(A).A、代码窗口B、以上3个选项都不对C、工程管理窗口D、属性窗口80 下列关于属性设置的叙述错误的是(D).A、一个控件具有什么属性是VB预先设计好的,用户可以改变B、一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置C、一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值D、一个控件具有什么属性是VB预先设计好的,用户不能改变81 MaxLength属性可以设置文本框可以输入与显示的最多字符个数,当其值为0时表示(D).A、不允许输入字符B、以上都不正确C、不允许输入任何字符,但显示不限制D、输入的字符长度不限82 下面(C)控件不具有Caption属性.A、标签框B、命令按钮C、文本框D、单选钮83 要使标签能够显示所需要的东西,则在程序中应设置其哪一属性的值(D).A、NameB、TextC、AutoSizeD、Caption84 程序运行时，要限制文本框的输入长度，那么应设置（
）。A、MaxLengthB、EnabledC、LockedD、MultiLine85 事件的名称(D).A、是不固定的B、有的由用户定义,有的由系统定义C、都要由用户定义D、都是由系统预先定义86若设置窗体的BorderStyle=1，则在程序运行时窗体的行为是（
AA、窗体没有最大化和最小化按钮，窗体可以移动，但不能改变大小。B、窗体有最大化和最小化按钮，窗体既可以移动，也可以改变大小。C、窗体没有最大化和最小化按钮，窗体既不能移动，也不能改变大小。D、窗体有最大化和最小化按钮，窗体可以移动，但不能改变大小。 87 如果要设置窗体的标题栏,应选择以下那种属性(D).A、TipsB、NameC、TextD、Caption88 要把一个命令按钮设置成无效,应设置其哪一属性值(D).A、VisibleB、DefaultC、CancelD、Enabled89 将焦点主动设置到指定的控件或窗体上,应采用(C)方法.A、SetTextB、GetGataC、SetFocusD、SetData90 要使标签控件的大小随Caption 属性值而自动调整，应设置其（ BA、AlignmentB、AutoSizeC、WidthD、Caption91 能够改变窗体边框线类型的属性是(C).A、FontStyleB、BorderC、BorderStyleD、BackStyle92 要使Form1窗体的标题栏显示"欢迎使用VB",以下语句正确的是(A).A、Form1.Caption=〞欢迎使用VB〞B、Form1.Caption="欢迎使用VB"C、Form1.Caption=欢迎使用VBD、Form1.Caption=ˊ欢迎使用VBˊ
）属性。93 文本框所没有的属性是(D).A、VisibleB、BackColorC、EnabledD、Caption94 在VB环境中,工程文件的扩展名是(D).A、.frxB、.basC、.frmD、.vbp95 如果要在命令按钮上显示图形文件,应设置命令按钮的(B).A、Style属性和Graphics属性B、Style属性和Picture属性C、Picture属性D、Graphics属性96 要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其（AA、ToolTipTextB、StyleC、PictureD、Caption97不论何控件,共同具有的属性是(B).A、ForeColorB、NameC、CaptionD、Text98 要使标签控件标题内容居中显示，应设置其（
）属性。A、 ToolTipTextB、 AlignmentC、
BackStyleD、 Appearance99 使命令按钮获得“焦点”的方法是（
）。A、SetFocusB、MoveC、RefreshD、LinkSend100 改变控件在窗体中的上下位置应修改控件的()属性. CA、HeightB、WideC、TopD、Left101、语句PRINT"SGN(-26)=";SGN(-26)的输出结果为（C）A、SGN(-26)=-26B、SGN(-26)=26C、SGN(-26)=-1D、SGN(-26)=+1102、若要使得文本框的初始值为空,则应更改文本框的属性是 （A）A、textB、indexC、nameD、caption
）属性。103、要使得标签能自动扩充以满足字体大小则可对其( C)属性进行设置.A、tagB、alignmentC、autosizeD、usemnemonic104、为了把焦点移到某个指定的控件,所使用指定的控件的( C )方法.A、VisibleB、RefreshC、SetFocusD、GetFocus105、如果要给字体加删除线,可以选择下列那种属性( C).A、FontSizeB、FontNameC、FontStrikethruD、FontUnderLine106、要设置标签控件字体的大小，应设置其（
）属性。 A、FontB、HeightC、WidthD、Caption107、每个窗体对应一个窗体文件,窗体文件的扩展名是( A ).A、.frmB、.vbpC、.basD、.cls108、标签控件最重要的属性是(A).A、captionB、textC、nameD、width109、(A)对象不具有Caption属性.A、TimerB、FormC、OptionD、Label 110、一个窗体上有三个文本框，按放置顺序分别是：Text1，Text2，Text3 ，若使程序运行时Text3首先获得“焦点”，那么，应设置其（
）属性值为 0 。A、IndexB、TabindexC、TagD、Top 111、如果要改变窗体的标题,则需要设置的属性是( D ).A、BorderStyleB、NameC、BackColorD、Caption112、欲使某命令按钮失效,应修改命令按钮的(C)属性.A、EnableB、CaptionC、EnabledD、Visible 113、为使文本框显示滚动条,必须首先设置的属性是(D).A、AutosizeB、ScrollbarsC、AlignmentD、Mulitiline 114、改变控件在窗体中的左右位置应修改该控件的(B)属性.A、RightB、LeftC、WidthD、Top 115、要使标签中显示的文本靠右显示,则应将其Alignment属性设置为(A).A、1B、3C、2D、0116、当设置文本框的ScrollBars=Both 而文本框确没有显示出滚动条，原因是（
A ）。A、文本框的MultiLine=FalseB、文本框中没有内容C、文本框的MultiLine=TrueD、文本框的Locked=True 117、要使文本框获得输入焦点,则应采用文本框控件的哪个方法(D).A、KeyPressB、LostFocusC、GodFocusD、SetFocus 118、假设窗体上有一个标签控件（Label1）和一个时钟控件（Timer），要想每隔1秒钟，在标签Label1上显示一次系统当前时间，应在（
）事件过程中编写实现该功能的程序。A、Private Sub Timer1_Timer()B、Private Sub Label1_DblClick() C、Private Sub Label1_Change() D、Private Sub Label1_Click() 119、如果设计时在属性窗口将命令按钮的(B)属性设置为False,则运行时按钮从窗体上消失.A、DisabledPictureB、VisibleC、DefaultD、Enabled 120、一个窗体上有两个文本框，按放置顺序分别是：Text1，Text2 ，要想在Text1中按“回车”键，“焦点”自动转到Text2上，应在（
）事件过程中编写程序。 A、Private Sub Text1_Click()B、Private Sub Text2_GotFocus() C、Private Sub Text1_LostFocus() D、Private Sub Text1_KeyPress(KeyAscii As Integer)121、文本框中选定的内容,由下列( A )属性反映.A、SeltextB、CaptionC、sellenghtD、Text 122、下面4项中不属于面向对象系统三要素的是(
A ).A、变量B、事件C、方法D、属性 123、若要使命令按钮不可操作,要设置的属性是(
).A、EnabledB、VisibleC、CaptionD、BackColor124、文本框控件中将Text的内容全部显示为所定义的字符的属性项是(D).A、PasswordB、以上都不是C、需要编程来实现D、PasswordChar125、如果Print方法在窗体的Load事件过程中不起作用，原因是（ AA、AutoRedrawB、ControlBoxC、MoveableD、MaxButton126、inputBox函数返回值的类型为(C).A、变体B、数值C、字符串D、数值或字符串(视输入的数据而定) 127、窗体的Caption属性的作用是(B).A、确定窗体的边界类型 false。
）属性值为B、确定窗体的标题C、确定窗体的名称D、确定窗体的字体 128、欲使标签的内容自动换行,必须设置属性(A).A、WordWrapB、AutoSizeC、AlignmentD、left 129、用来设置粗体字的属性是DA、FontItalicB、FontSizeC、FontNameD、FontBold 130、Text1控件在运行时不可见,是设置下列(B)属性的结果.A、CancelB、VisibleC、ControlBoxD、Enabled131、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D)属性.A、BORDERSTYLEB、BACKCOLORC、FORECOLORD、BACKSTYLE 132、要使“命令按钮”在程序运行时不可见，可以将其（
）属性设置为False。A、CancelB、DefaultC、VisibleD、Enabled 133、下列赋值语句正确的是(D).A、Text1.name=Text1.Name+Text2.NameB、Text1.Caption=Text1.Caption+Text2.CaptionC、Text1.Enable=Text1.Enable+Text2.EnableD、Text1.text=Text.text+Text2.text 134、不具有输入数据功能的控件是(C)控件.A、列表框B、选项按钮C、窗体D、文本框 135、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(A).A、LoadB、ClickC、MouseDownD、MouseUp 136、列表框和组合框的（
）属性的值，表示其列表中项目的个数。A、 ListIndexB、 ListCountC、ListD、Text 137、在定义静态数组时，关于下标的叙述中，正确的是（
）。A、省略下界，一般系统默认为：下界是 0B、下标可以是字符型 C、下标下界最小为：-32768 ，下标上界最大为：32767 D、下标可以是变量。 138、下列程序：Private Sub Textl _Change()Print Textl；End Sub当在文本框输入"1234"这4个字符时，窗体上显示的是
4D、139、下面()对象在运行时一定不可见. CA、LineB、OptionC、TimerD、Text 140、若要清除列表框的所有内容,可用什么方法实现
CA、以上均不可以B、ClsC、ClearD、RemoveItem 141、要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是 AA、Timer1.Enabled=FalseB、Timer1.Index=0C、Timer1.Interval=1000D、Timer1.Visible=False142、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应将其Interval属性值设置为(
D).A、300B、5C、500D、5000143、将数据项"China"添加到列表框(List1)中成为第一项应使用的语句是（A、List1.AddItem〞China〞,0 ）。
AB、List1.AddItem〞China〞,1C、List1.AddItem 0, 〞China〞D、List1.AddItem 1,〞China〞 144、在程序代码中修改滚动条的value 属性时将激发滚动条的(
D)事件.A、scrollB、dragdropC、gotfocusD、change 145、循环结构For I%= -1 to -17 Step -2 共执行(
C)次.A、6B、5C、9D、8 146、执行下面的程序段后,x 的值为(
D)x=5For i=1 To 20 Step 2x=x+i\5Next iA、24B、23C、22D、21 147、由For
k=10 to 0 step 3:next k循环语句控制的循环次数是(
D).A、-11B、12C、-10D、0 148、下列方法中可用于列表框动态添加数据的是(
D).A、removeitemB、addlistC、addD、additem 149、组合框控件是将()组合成一个控件.
AA、列表框控件和文本框控件B、复选框控件和选项按钮控件C、标签控件和列表框控件D、标签控件和文本框控件 150、下面程序段输出的结果是
D Private Sub Command1_Click() x = 8 For i = 0 To 20 Step 5 x = x + i Next Print "X="; x End Sub A、X=50B、X=218C、X=210D、X=58151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.
CA、分B、微秒C、毫秒D、秒 152、由For
k=35 to 0 step 3:next k循环语句控制的循环次数是().
AA、0B、-10C、12D、-11 153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示().
CA、ListB、IndexC、ListIndexD、TabIndex 154、设计动画通常使用时钟控件()来控制动画速度.
CA、EnabledB、TimerC、IntervalD、Move 155、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应将列表框的Multiselect属性设置为().
CA、1B、3C、2D、0 156、引用列表框的最后一项应使用().
DA、List1.List(ListCount-1)B、List1.List(List1.ListCount)C、List1.List(ListCount)D、List1.List(List1.ListCount-1) 157、列表框控件中的列表内容是通过()属性设置的. AA、ListB、CaptionC、NameD、Text 填空1.在窗体上已建立多个控件，如Text1，Label1，Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件的__tabindex___属性设置为_TabIndex____。2.日期表达式 #2/24/02# - #2/12/02# 的值为_12____。3 .已知a=2.5，b=5.0，c=2.5，d=True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是_false____。4.表示x是5的倍数或是9的倍数的逻辑表达式为__x mod 5 = 0 OR x mod 9 = 0___。5.在刚建立工程时，使窗体上的所有控件具有相同的字体格式，就对__font___的属性进行设置。6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是_-3____、___2__、__-2___、____3_。7.Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_label___控件；若允许用户输入文本，则应使用_Textbox____控件。8.若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。Private Sub Cmdopen_Click()______frm1.show____end sub9.表达式93 \ 7 Mod 2 ^ 2 的值是__1___。10.表达式Ucase(Mid(“abcdefgh”,3,4))的值是__CDEF___。11.当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性___窗口中，把此文本框的__text___属性设置成空白。12.已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c表达式c>a And Not b<c的值是__false___。程序设计1.'------------------------------------------------'【程序改错】'------------------------------------------------'题目：程序功能：求1+2+3……，直到其和超出3000为'
止，并输出结果。'------------------------------------------------Option ExplicitPrivate Sub Form_Click()ClsDim i As IntegerDim s As Singlei =0'**********ERROR**********s = 1Do'**********ERROR**********i = i + 2s = s + i'**********ERROR**********Loop s > 3000Print "从1 到:"; "的和是"; sEnd Sub答案 【学生答案】i = i + 2【参考答案】i=i+12. '------------------------------------------------ '【程序改错】'------------------------------------------------862'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2k = Int(Sqr(n))i = 2'**********ERROR**********swit = 1'**********ERROR**********While swit = 0If n Mod i = 0 Thenswit = 1Else'**********ERROR**********i = i - 1End IfWendIf swit = 0 ThenPEnd IfNext nEnd Sub答案
【学生答案】swit = 1【参考答案】swit=0【学生答案】While swit = 0【参考答案】While i<=k And swit =0While k>=i And swit=0While swit=0 And i<=kWhile swit=0 And k>=i【学生答案】i = i - 1【参考答案】i=i+13.Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " * ";For i = 1 To 9'**********ERROR**********Print Tab(i * 6); iNext iPrintFor j = 1 To 9P " ";For k = 1 To jPrint Tab(k * 6); j * " ";'**********ERROR**********Next jPrint'**********ERROR**********Next k答案
【学生答案】Print Tab(i * 6); i【参考答案】Print Tab(i * 6);【学生答案】Next j【参考答案】Next k【学生答案】Next k【参考答案】Next j4.'------------------------------------------------'【程序改错】'------------------------------------------------'题目：以下程序段用于计算5的N次方。'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, s As Longn = InputBox(" Input n ")'**********ERROR**********k = 0'**********ERROR**********s = 0Do While k <= ns = s * 5k = k + 1'**********ERROR**********NextPrint "5的"; "n次方是"; sEnd Sub答案
【学生答案】k = 0【参考答案】k=1【学生答案】s = 0【参考答案】s=1【学生答案】Next【参考答案】loop'------------------------------------------------5.'【程序改错】'------------------------------------------------'题目：以下程序段用于打印如图1所示的九九乘法表：'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerPrint Tab(30); "9*9 table"Print: PrintPrint " * ";For i = 1 To 9'**********ERROR**********Print Tab(i * 6); iNext iPrintFor j = 1 To 9P " ";'**********ERROR**********For k = 1 To 9'**********ERROR**********Print Tab(j * 6); j * " ";Next kPrintNext jEnd Sub答案
【学生答案】Print Tab(i * 6); i【参考答案】Print Tab(i*6);i;【学生答案】For k = 1 To 9【参考答案】For k = 1 To j【学生答案】Print Tab(j * 6); j * " ";【参考答案】Print Tab(k*6);j*k;" ";6.'【程序改错】'------------------------------------------------'题目：下面程序可输出如下图形：'
*********'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4m = 1s = "*"For i = 5 To 1 Step -1'**********ERROR**********Print Spc(n)For j = 1 To 2 * m - 1PNext jPrint'**********ERROR**********n = n + 1'**********ERROR**********m = m - 1Next i答案
【学生答案】Print Spc(n)【参考答案】Print Spc(n);Print Spc(i);?Spc(n);?Spc(i);【学生答案】n = n + 1【参考答案】n=n-1n=-1+n【学生答案】m = m - 1【参考答案】m=m+17.'题目：以下程序段用于输出100-300的所有素数'------------------------------------------------Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As Integer, i As Integer, swit As IntegerFor i = 101 To 299k = Int(Sqr(i)For n = 2 To kIf i Mod n = 0 Then'**********ERROR**********ExitEnd IfNext n'**********ERROR**********If n < k ThenPEnd If'**********ERROR**********Next n'Print i答案
【学生答案】Exit【参考答案】exit for【学生答案】If n < k Then【参考答案】If n>k ThenIf k<n Then【学生答案】Next n【参考答案】next iNext i程序填空1.'从键盘输入三个整数，从其中找出最大值并输出到窗口Private Sub Form_Click()Dim a%, b%, c%, max%a = Val(InputBox("请输入一个整数"))b = Val(InputBox("请输入一个整数"))c = Val(InputBox("请输入一个整数"))max=a'**********FILL**********If ______Thenmax=bEnd IfIf max < c Then'**********FILL**********________End If'**********FILL**********P "、"; "、"; "中最大值是";______End Sub答案
【学生答案】If ______Then【参考答案】max<bmax<=bb>maxb>=max【学生答案】________【参考答案】max=c【学生答案】P "、"; "、"; "中最大值是";______【参考答案】max2.以下程序的功能。 'Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********FILL**********If _____
Thenr = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********FILL**********_____Print "x1="; x1, "x2="; x2'**********FILL**********_____q = Sqr(-d) / (2 * a)Print "x1="; "+"; "i", "x2="; "-"; "i"End If答案 【学生答案】If _____
Then【参考答案】d>0【学生答案】_____【参考答案】End ifEnd Ifend if【学生答案】_____【参考答案】elseElseELSE3.'从键盘输入学生分数，统计学生总人数和各分数段人数，'即优秀（90-100）、良好（80-89）、中等（70-79）、'
及格（60-69）、不及格（60以下）的人数。Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数（-1结束）"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle))'**********FILL**********While _____total = total + 1'**********FILL**********Select Case _____Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1'**********FILL**********_____score = Val(InputBox(msg, msgtitle))WendPrint n1, n2, n3, n4, n5, totalEnd Sub答案
【学生答案】While _____【参考答案】score>=0 and score<=100score>=0 and score<=100score-1【学生答案】Select Case _____【参考答案】score【学生答案】_____【参考答案】End Select4．以下程序段用于实现：输入两个正整数m和n，求其最大'公因数和最小公倍数。Private Sub Form_Click()Dim a%, b%, num1%, num2%, tempnum1 = InputBox("请输入一个正整数")num2 = InputBox("请输入一个正整数")'**********FILL**********If _____ Thentemp = num1: num1 = num2: num2 = tempEnd Ifa = num1b = num2'**********FILL**********Do While _____temp = a Mod ba = b'**********FILL**********_____LoopPrint "最大公因数为："; aPrint "最小公倍数为："; num1 * num2 / a答案
【学生答案】If _____ Then【参考答案】num1<num2num2>num1【学生答案】Do While _____【参考答案】b0b>00<btemp0temp>00<tempNot b=0Not 0=b【学生答案】_____【参考答案】b=temp5．'以下程序用于判断一个正整数（≥3）是否为素数。'Private Sub Form_Click()n = InputBox("请输入一个正整数（≥3）")k = Int(Sqr(n))i = 2swit = 0'**********FILL**********Do While i <= k And
_____'**********FILL**********If
Thenswit = 1Else'**********FILL**********_____End IfLoopIf swit = 0 ThenP "是一个素数"ElseP "不是素数"End IfEnd Sub答案 【学生答案】Do While i <= k And
_____【参考答案】swit=0【学生答案】If
Then【参考答案】n
Mod i = 0n \
i = n / in / i = int ( n / i)【学生答案】_____【参考答案】i = i + 16．题目：从键盘上输入一串字符，以"?"结束，统计输入字符中的'
大、小写字母和数字的个数。Private Sub Form_Click()Dim ch$, n1%, n2%, n3%n1 = 0n2 = 0n3 = 0ch = InputBox("请输入一个字符")'**********FILL**********Do While _____Select Case chCase "a" To "z"n1 = n1 + 1'**********FILL**********Case _____n2 = n2 + 1Case "0" To "9"n3 = n3 + 1End Selectch = InputBox("请输入一个字符")'**********FILL**********_____Print n1, n2, n3答案
【学生答案】Do While _____【参考答案】do while ch"?"Do While ch"?"【学生答案】Case _____【参考答案】case "A" to "Z"Case "A" to "Z"【学生答案】_____【参考答案】loopLoop 窗体设计 1
在名称为Form1的窗体上画一个文本框，名称为Txt1；再画一个命令按钮， 名称为C1，标题为"移动"，如图1所示。请编写适当的事件过程，使得在运行时，单击"移动"按钮，文本框水平移动到窗体的最左端如图2所示。程序中不得使用任何变量。注意：完成题目后，必须保存工程后再关闭。【控件】VB.CommandButton_标准答案：Name=C1学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Caption=移动学生答案：Caption= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Name=Txt1学生答案：Name= 【事件评分】 错误【事件】Private Sub C1_Click()标准答案： Txt1.Left = 0学生答案： 二
1、 利用 VB设计上面的程序界面。窗体的标题为"字体修改"；其中包括一名称为Label1,标题为"请输入文字"的标签；一名称为Text1，内容为空的文本框；名称为Command1,标题为"隶书"，名称为Command2,标题为"黑体"的两个命令按钮。2、程序功能：单击"隶书"命令按钮时，文本框的字体设为"隶书"；单击"黑体"命令按钮时，文本框的字体设置为"黑体"。提示：不能使用任何变量！【事件】Private Sub Command2_Click()标准答案： Text1.Font = "黑体"学生答案： 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Caption=隶书学生答案：Caption= 【事件评分】 错误【事件】Private Sub Command1_Click()标准答案： Text1.Font = "隶书"学生答案： 【控件属性评分】 错误【控件】VB.Label_标准答案：Caption=请输入文字学生答案：Caption=
在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem "AAA"， 每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次，如图所示。【事件】Private Sub Form_Load()标准答案： List1.AddItem "AAA"学生答案： 【事件评分】 错误【事件】Private Sub List1_Click()标准答案： List1.AddItem List1.Text 四 在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。 要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value，如图所示（程序中不能使用任何变量）【事件】Private Sub HS1_Scroll()标准答案： Print HS1.Value学生答案： 【控件属性评分】 错误【控件】VB.HScrollBar_标准答案：Name=HS1学生答案：Name= 【控件属性评分】 错误【控件】VB.HScrollBar_标准答案：Max=100 五 1、在名称为Form1的窗体上建立一个名称为l1的标签，并设置他不可见；两个名称为cmd1和cmd2，标题分别为"显示1"和"显示2"的命令按钮。2、编写适当的事件过程，要求程序运行后，如果单击"显示1"命令按钮，则标签可见并显示字符串"aaa"；如果单击"显示2"命令按钮，则标签可见并显示字符串"bbb"。程序中不能使用任何变量，直接显示字符串；不能使用默认属性。程序开始运行时界面如图1所示
标准答案：Caption=显示1学生答案：Caption= 【控件属性评分】 错误【控件】VB.Label_标准答案：Visible=0
'False学生答案：Visible= 【控件属性评分】 错误【控件】VB.Label_标准答案：Name=l1学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Name=cmd2学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Name=cmd1学生答案：Name= 【事件评分】 错误【事件】Private Sub cmd1_Click()标准答案： l1.Visible = Truel1.Caption = "aaa"学生答案： 【事件评分】 错误【事件】Private Sub cmd2_Click()标准答案： l1.Caption = "bbb" 六
1、在名称为Form1的窗体上画一个文本框，名称为Text1,且不可见；再画两个命令按钮，名称分别为c1和c2，标题分别为"隐藏"和"显示"。2、请编写适当的事件过程，使得在运行时，如果单击"隐藏"按钮，则文本框消失；如果单击"显示"按钮，则文本框显示出来，如图1和图2所示。程序中不得使用任何变量。【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Name=c2学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Caption=显示学生答案：Caption= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Name=c1学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Caption=隐藏学生答案：Caption= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Visible=0
'False学生答案：Visible= 【事件评分】 错误【事件】Private Sub c2_Click()标准答案： Text1.Visible = True学生答案： 【事件评分】 错误【事件】Private Sub c1_Click()标准答案： Text1.Visible = False学生答案： 七 标题为"输出"的命令按钮，如图1-12所示。要求程序运行后，在文本框输入几个字符， 单击"输出"按钮，则在窗体上显示文本框中的文字。注意：在程序中不能使用任何变量，不能使用默认属性。控件属性评分】 错误【控件】VB.CommandButton_标准答案：Name=Cmd1学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Caption=输出学生答案：Caption= 【事件评分】 错误【事件】Private Sub Cmd1_Click()标准答案： Print Text1.Text学生答案： 八
在名为Form1的窗体上画一个框架，名称为Frm1，标题为"框架"，高度为2500，宽度为4000， 框架内建立一文本框，距左边框600，距框架的上边框1200，文本框中的初始内容设置为"文本框"，如图所示。注意：完成试题后，必须保存，然后关闭窗口。【控件属性评分】 错误【控件】VB.Frame_标准答案：Name=Frm1学生答案：Name= 【控件属性评分】 错误【控件】VB.Frame_标准答案：Height=2500学生答案：Height= 【控件属性评分】 错误【控件】VB.Frame_标准答案：Width=4000学生答案：Width= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Left=600学生答案：Left= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Text=文本框学生答案：Text= 【控件属性评分】 错误【控件】VB.TextBox_学生答案：Top= 九
2、界面中窗体的标题为：密码的显示；3、窗体中包括两个文本框，他们的名称分别为passtxt和showtxt,其中：passtxt用于密码输入，当在其中输入信息时，显示为"*"；4、showtxt文本框，在程序运行时不能用，只能显示密码。5、具体功能：程序运行时，当在文本框passtxt中输入密码时，showtxt中同时将输入的内容原样显示。 提示：不能使用任何变量，不能使用默认属性！窗体属性评分】 错误【窗体】Form1.frm标准答案：Caption=密码的显示学生答案：Caption=Form1 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Name=showtxt学生答案：Name= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Enabled=0
'False学生答案：Enabled= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：Name=passtxt学生答案：Name= 【控件属性评分】 错误【控件】VB.TextBox_标准答案：PasswordChar=*学生答案：PasswordChar= 【事件评分】 错误【事件】Private Sub passtxt_Change()标准答案： showtxt.Text = passtxt.Text学生答案： 十
在名称为Form1的窗体上建立一个名称为Cmd1，标题为"显示"的命令按钮，编写适当的事件过程。程序运行后，如果单击"显示"命令按钮，则在窗体上显示"呵呵，小菜一碟！"，如图1-1所示。程序中不能使用任何变量，直接显示字符串。注意：完成后必须保存，然后再关闭。【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Name=Cmd1学生答案：Name= 【控件属性评分】 错误【控件】VB.CommandButton_标准答案：Caption=显示 【事件评分】 错误【事件】Private Sub Cmd1_Click()标准答案： Print "呵呵，小菜一碟！"学生答案： 1-10 CABCD
11-20 DCBDB
21-30 DCDDA
ABDDB 31-40 BDCBB
41-50 CADAC
51-60 BACBC
BAAAA 61-70CAAAD
71-80DACAD
81-90DCDAD
ADDCB 91-100CADDB ABBAC
101-110CACCC
111-120DCDBA
ADABD 121-130AAADA
131-140DCDCA
141-150ADADC
DDDAD 151--CACCCDA 百度搜索“就爱阅读”,专业资料,生活学习,尽在就爱阅读网92to.com,您的在线图书馆!
欢迎转载：
相关推荐：}