02-1602-1602-1602-1602-1602-1602-1602-1602-1602-16最新范文01-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-0101-01VB编程题目_百度知道
VB编程题目
新建一个“标准EXE”类型的工程，设计窗体单击事件过程。编写程序实现以下功能：利用InputBox()函数输入两个数据，分别存入变量a和b中，并在窗体上以标准格式显示出来，交换变量a和b的值，并在窗体上以紧凑格式显示
我有更好的答案
'略微有些难度Private&Sub&command1_click()Dim&X&As&StringDim&brrDim&a&&As&LongDim&b&&As&LongX&=&InputBox(&请输入2个整数(以英文逗号分隔)：&,&&交换变量&,&&例如：3,344&,&)brr&=&Split(X,&&,&)&If&UBound(brr)&&&1&ThenMsgBox&&输入数字多余2个，请重新输入！&,&,&&提醒&End&'退出End&IfIf&UBound(brr)&&&1&ThenMsgBox&&输入数字少余2个，请重新输入！&,&,&&提醒&End&'退出End&Ifa&=&brr(0)b&=&brr(1)Label1.Caption&=&&a变量原始值为：&&&&a&&&vbCrLf&+&&b变量原始值为：&&&&b&&&vbCrLf&+&&a变量与b变量交换后为：&&&&a&+&b&-&a&&&vbCrLf&+&&b变量与a变量交换后为：&&&&a&+&b&-&bEnd&Sub
采纳率：85%
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和.3、* 编写程序,计算并输出下面数列前n项的和.(设n=51)1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),…… (其中,^ 表示幂运算)4、* 有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
Private&Sub&Form_Click()'1、*&编写程序,计算并输出下面数列中前n项的和.(设n=20)'&&&1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……&&&&Dim&sum&,&i%,&temp%,&n%&&&&n&=&Val(InputBox(&n=&,&,&20))&&&&For&i&=&1&To&n&&&&&&&&temp&=&i&*&(i&+&1)&*&(i&+&2)&&&&&&&&sum&=&sum&+&temp&&&&Next&&&&Print&sum&&&&'2、*&编写程序,求500以内最大的10个能被13或17整除的自然数之和.&&&&sum&=&0&&&&n&=&500&&&&i&=&0&&&&Do&&&&&&&&If&n&Mod&13&=&0&Or&n&Mod&17&=&0&Then&&&&&&&&&&&&sum&=&sum&+&n&&&&&&&&&&&&i&=&i&+&1&&&&&&&&End&If&&&&&&&&n&=&n&-&1&&&&Loop&Until&i&&&10&&&&Print&sum&&&&'3、*&编写程序,计算并输出下面数列前n项的和.(设n=51)'&&&&1*2,-2*3,3*4,-4*5,……,(-1)^(n-1)*n*(n+1),……&&&(其中,^&表示幂运算)&&&&sum&=&0&&&&n&=&Val(InputBox(&n=&,&,&51))&&&&For&i&=&1&To&n&&&&&&&&temp&=&(-1)&^&(i&-&1)&*&i&*&(i&+&1)&&&&&&&&sum&=&sum&+&temp&&&&Next&&&&Print&sum'4、*&有200元钱需要兑换成零钱,零钱有10元,5元,1元三种面额,要求每种面额都是奇数张,请问有多少种兑换方法?&&&&Dim&j%&&&&n&=&0&&&&For&i&=&1&To&20&Step&2&&&&&&&&For&j&=&1&To&(200&-&10&*&i)&/&5&Step&2&&&&&&&&&&&&If&(200&-&i&*&10&-&j&*&5)&Mod&2&&&&0&Then&n&=&n&+&1&':Print&i;&j;&200&-&i&*&10&-&j&*&5&&&&Next&j,&i&&&&Print&nEnd&Sub
为您推荐：
扫描下载二维码vb试题及参考答案
阳光网【VB程序设计试题】 编辑：admin
　　vb程序设计的试卷题目你知道有哪些吗?要怎样写出正确的答案呢?下面是小编整理的vb试题及其参考答案，欢迎阅读!
　　vb试题及其参考答案
　　1.在代码中引用一个控件时，应使用控件的( b )属性。
　　A.Caption B.Name C.Text D.Index
　　2.设变量x = 4，y = -1，a = 7，b = -8,下面表达式( a )的值为&假&。
　　A.x+a &= b-y B. x & 0 AND y & 0
　　C.a = b OR x&y D. x+y & a+b AND NOT (y & b)
　　3.表达式Int(Rnd*71)+10产生的随机整数范围是( c )。
　　A.(10，80) B.(10，81) C.[10，80] D.[10，81]
　　4.函数Sgn(3.1416)的返回值是( c )。
　　A.-1 B.0 C.1 D.以上都不对
　　5.67890属于( d )类型数据。
　　A.整型 B.单精度浮点数 C.货币型 D.长整型
　　6.下列变量名中正确的是( d )。
　　A.3S B.Print C.Select My Name D.Select_1
　　7.下列赋值语句( a )是有效的。
　　A.sum = sum -sum B.x+2 = x + 2 C.x + y = sum D.last = y / 0
　　8.以下的控件或方法具有输入和输出双重功能的为( b )。
　　A.Print B.Textbox C.Optionbutton D.Checkbox
　　9.若要获得列表框中被选中的列表项的内容，可以通过访问( d )属性来实现。
　　A.Name B.ListIndex C.ListCount D.Text
　　10.下列代码的运行结果为( b )。
　　Private Sub command1_click()
　　Dim m(10)
　　For k = 1 To 10
　　m(k) = 11 - k
　　Next k
　　Print m(2 + m(x))
　　End Sub
　　A.2 B.3 C.4 D.5
　　标准控件不包括( )控件。
　　(A) 驱动器列表框 (B) 目录列表框
　　(C) 文件列表框 (D) 通用对话框
　　(答案：D)
　　30102. 当一个工程含有多个窗体时，它的启动窗体是( )。
　　(A) 正在编辑的窗体 (B) 最后一个添加的窗体
　　(C) 第一个添加的窗体 (D) 在&工程属性&对话框中指定的窗体
　　(答案：D)
　　30103. VB应用程序在( )模式下不能编辑代码和设计界面。
　　(A) 运行 (B) 中断 (C) 设计 (D) 以上均不能
　　(答案：A)
　　30104. 下列叙述错误的是( )。
　　(A) VB应用程序没有明显的开始和结束语句
　　(B) VB控件的所有属性值均可在属性窗口中设置
　　(C) VB是事件驱动型可视化编程工具
　　(D) VB通过&工具&菜单的&选项&设置代码编辑窗口的字体大小
　　(答案：B)
　　30105. 标准模块文件的扩展名是( )。
　　(A) .cls (B) .frm (C) .bas (D) .rec
　　(答案：C)
　　30106. 下列叙述错误是( )。
　　(A) 打开一个工程文件，系统自动装入与该工程有关砠 ??文件
　　(B) 保存VB程序时，应分别保存窗体和工程文件
　　(C) 事件可以由用户触发，也可以由系统触发
　　(D) VB应用程序只能以解释方式执行
　　(答案：D)
　　30107. 在设计阶段，双击窗体上的某个控件，可以打开( )。
　　(A) 代码窗口 (B) 属性窗口 (C) 工具箱窗口 (D) 工程资源管理器窗口
　　(答案：A)
　　30108. 下列叙述错误的是( )。
　　(A) VB是可视化程序设计语言 (B) VB采用事件驱动编程机制
　　(C) VB是面向过程的程序设计语言 (D) VB应用程序可以以编译方式执行
　　(答案：C)
　　30109. 下列叙述正确的是( )。
　　(A) VB的事件由用户定义 (B) VB程序以顺序方式执行
　　(C) VB程序从Main()函数开始执行 (D) VB运行时，总是等待事件的发生
　　(答案：D)
　　30201. 下列为整型变量的是( )。
　　(A) x! (B) x# (C) x% (D) x$
　　(答案：C)
　　30202. 设有语句组：
　　Dim S1 As String*5
　　S1 = &VB Test&
　　则S1的值为( )。
　　(A) VB Test
　　(B) VB Te
　　(C) VBTes
　　(D) BTest
　　(答桠 ?：B)
　　30203. 下列( )是合法的变量名。
　　(A) x_y
　　(B) x-y
　　(C) 2x
　　(D) and
　　(答案：A)
　　30204. 下列( )为单精度变量。
　　(A) x!
　　(B) x#
　　(C) x%
　　(D) x$
　　(答案：A)
　　30205. 由( )关键字声明的局部变量在整个程序运行时一直存在。
　　(A) Dim
　　(B) Public
　　(C) Static
　　(D) Private
　　(答案：C)
　　30206. 定义变量时如不指定类型，该变量为( )变量。
　　(A) Integer
　　(B) String
　　(C) Variant
　　(D) Single
　　(答案：C)
　　30207. 用户自定义数据类型的成员不能是( )。
　　(A) 数组
　　(B) 日期型
　　(C) 货币型
　　(D) 定长字符串
　　(答案：A)
　　30208. 下列( )是合法的变量名。
　　(A) x%y
　　(B) xy%
　　(C) 2x
　　(D) Or
　　(答案：B)
　　30209. 日期常量用( )作为界定符。
　　(答案：C)
　　30301. 表达式4 + 6 \ 5 * 7 / 9 Mod 3的值是( )。
　　(答案：B)
　　30302. 下列逻辑表达式为True的是( )。
　　(A) &A&&&9&
　　(B) &A&&&a&
　　(C) &a&&&AT&
　　(D) &AT&&&AND&
　　(答案：C)
　　30303. 下列运算符中，优堠 ??级最高的是( )。
　　(A) Like
　　(B) Mod
　　(C) Not
　　(D) Eqv
　　(答案：B)
　　30304. 设a=6，b=5，c=-2;执行语句Print a & b & c后，窗体上显示的是( )。
　　(B) True
　　(C) False
　　(D) 出错信息
　　(答案：B)
　　30305. 下列表达式中，值最大的是( )。
　　(A) 2 \ 3
　　(B) 2 / 3
　　(C) 2 mod 3
　　(D) 3 mod 2
　　(答案：C)
　　30306. 下列运算符中，优先级最低的是( )。
　　(答案：D)
　　30307. 表达式 2 = 3 & 1 的是( )。
　　(C) True
　　(D) False
　　(答案：C)
　　30308. x大于0且小于10的VB表达式是( )。
　　(A) 0 & x & 10
　　(B) x & 0 And x & 10
　　(C) x & 0 Or x & 10
　　(D) x & 0 : x & 10
　　(答案：B)
　　30309. 判断整型变量x是奇数的表达式是( )。
　　(A) x Mod 2 && 0
　　(B) x Mod 2 != 0
　　(C) x Mod 2 & 0
　　(D) x Mod 2 = 0
　　(答案：A)
　　30401. 返回值为数值的函数是( )。
　　(A) Mid
　　(B) Instr
　　(C) Left
　　(D) Rtrim
　　(答案：B)
　　30402. 表达式Len(&幸运52&)的值是( )。
　　(答案：B)
　　30403. 以下( )语句可表示[50,100]之间的随机数。
　　(A) Int(Rnd * 51) + 49
　　(B) Int(Rnd * 51 +50)
　　(C) Int(Rnd * 50) + 50
　　(D) Int(Rnd * 50 + 50)
　　(答案：B)
　　30404. 返回值为字符串的函数是( )。
　　(A) Str
　　(B) Val
　　(C) Len
　　(D) Asc
　　(答案：A)
　　30405. 当x=0时，函数IIf(x & 0, 1, IIf(x & 0, -1, 0))的返回值是( )。
　　(C) -1
　　(D) 出错
　　(答案：A)
　　30406. 表达式Fix(5.6) + Int(-5.6)的值是( )。
　　(B) -1
　　(D) 以上都不对
　　(答案：B)
　　30407. 如果Sgn(x)的值为-1，整型变量x的值是( )。
　　(B) 整数
　　(C) 正整数
　　(D) 负整数
　　(答案：D)
　　30408. 表达式InStr(2, &文本文件&, &文&)的值是( )。
　　(答案：C)
　　30409. 除去字符串左侧空格的函数是( )。
　　(A) Left()
　　(B) Trim()
　　(C) Ltrim()
　　(D) LeftTrim()
　　(答案：C)
　　30501. VB表达式Format(Val(&111a&), &##.##&)的值是( )。
　　(A) 11.1a
　　(B) 11.10
　　(C) 111.
　　(D) 111.00
　　(答案：C)
　　30502. 下列语句不合法的是( )。
　　(A) x = 1 : y=2
　　(C) ? x , y ,
　　(D) x = 1; y = 2
　　(答案：D)
　　30503. 如果VB语句超过一行，可以使用空格加( )续行。
　　(答案：D)
　　30504. 正确使用Cls方法的是( )。
　　(A) Text1.Cls
　　(B) Picture1.Cls
　　(C) List1.Cls
　　(D) Image1.Cls
　　(答案：B)
　　30505. 下列语句合法的是( )。
　　(A) x + y = 2
　　(B) x & 2 = y
　　(C) x = y & 2
　　(D) x = y++
　　(答案：C)
　　30506. 错误使用Print方法的是( )。
　　(A) Picture1.Print
　　(B) Form1.Print
　　(C) Debug.Print
　　(D) Text1.Print
　　(答案：D)
　　30507. Print方法分区输出时，用( )分隔多个表达式。
　　(A) 空格
　　(B) 逗号
　　(C) 冒号
　　(D) 分号
　　(答案：B)
　　30508. Print &10+6=&; 10+6的输出结果是( )。
　　(A) 16=10+6
　　(B) 10+6=10+6
　　(C) 10+6=16
　　(D) &10+6=&10+6
　　(答案：C)
　　30509. 下列叙述错误的是( )。
　　(A) 不允许使用行号与标号
　　(B) 单条语句可分行书写
　　(C) 同一行上可以书写多条语句
　　(D) VB代码不堠 ??分字母的大小写
　　(答案：A)
　　30601. 执行x = InputBox(&请输入半径&,0,&求面积&) ，在输入框中输入3后回车,则下列叙述正确的是( )。
　　(A) x的值是数值3
　　(B) x的值是字符&3&
　　(C) 0是默认值
　　(D) 对话框标题是&求面积&
　　(答案：B)
猜你喜欢：
[vb试题及参考答案]相关的文章
【VB程序设计试题】图文推荐1.要使一个标签能够显示所需要的文本，应设置该标签的( )属性的值(单) A.Caption
D.AutoSize 2.为使计时器对象每隔5秒钟产生一个时钟事件(Timer事件)，则其Interval属性值应设置为( )(单) A.5
D.5000 3.下列的( )对象支持KeyPress事件(单) A.文本框
B.命令按钮
D.图像框 4.确定一个控件在窗体上的位置的属性是( )(单) A.Width或Height
B.Top和Height
C.Top或Width
D.Top和Left
5.确定一个窗体或控件的大小的属性是( )(单) A.Width或Height
B.Top和Width
C.Top或Left
D.Top和Left
6.用户在屏幕上画出应用程序界面，并设置好对象的属性，系统便可以自动生成程序代码，这称为( )(单) A.面向对象的程序设计
B.结构化程序设计
C.事件驱动的编程机制
D.程序设计 7.在VB中，工程文件的扩展名是( )(单) A..frm
D..frx 8.在VB中，窗体文件的扩展名是( )(单) A..frm
D..frx 9.VB集成开发环境可以(
单) A.编辑、调试、运行程序，但不能生成可执行程序 B.编辑、生成可执行程序、运行程序，但不能调试程序 C.编辑、调试、生成可执行程序，但不能运行程序 D.编辑、调试、运行程序，也能生成可执行程序 10.英文\的含义是( )(单) A.可视化
11.标准模块文件的扩展名是( )(单) A.frm
D.vbg 12.VB集成开发环境中，在( )中编写代码(单) A.状态栏
B.属性列表框
D.标题栏 13.在面向对象的程序设计过程中，英文缩写\的含义是( )(单) A.事件驱动的编程机制
B.结构化程序设计语言
C.面向对象的程序设计
D.可视化程序设计 14.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是( )(单) A.Timer1.Interval=0.5
B.Timer1.Interval=5
C.Timer1.Interval=50
D.Timer1.Interval=500 15在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a$=\Print String(3,a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是( )(单) A.VVV
16.以下关于多重窗体程序的叙述中，错误的是( )(单) A.用Hide方法不但可以隐藏窗体,且能清除内存中的窗体 B.在多重窗体程序中，各窗体的菜单是彼此独立的 C.在多重窗体程序中，可以根据需要指定启动窗体 D.对于多重窗体程序中，单独保存每个窗体 17以下合法的Visual Basic变量的名称是( )(单) A.a3
D.a#x! 18.当一个复选框被选中时，它的Value属性的值是( )(单) A.3
D.0 19.表达式 5 Mod 3+5\\3的值是( )(单) A.0
D.6 20设x=4,y=8,z=7, 表达式：(x＜y)
Or z＜x 的值是( )(单) A.1
D.FALSE 21设有如下程序段： x=2 For c=1 To 4 Step 2 x=x+c Next c 运行以上程序后，x的值是( )(单) A.6
D.9 22执行如下两条语句，窗体上显示的是( )(单) A=9.8596 Print Format(a,\A.0,009.86
D.0,009.86 23下列说法中正确的是：为了保存一个Visual Basic应用程序，应当( )(单) A.只保存窗体模块文件(.frm)
B.只保存工程文件(.vbp) C.分别保存工程文件和标准模块文件(.bas) D.分别保存工程文件、窗体文件和标准模块文件 24.要使一个文本框对象能够显示多行文字，应设置该对象的( )属性值为True(单) A.Text
B.MultiLine
D.Visible 25.若要将窗体从内存中卸载，其实现的方法或语句是( )(单) A.Show
D.Hide 26.以下选项中，不是VB标准控件的是( )(单) A.命令按钮
C.通用对话框
D.单选框 27在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim a As Variant a = Array(1, 2, 3, 4, 5) Sum = 0 For i = 1 To 5 Sum = Sum + a(i - 1) Print \Next i x = Sum / 5
For i = 1 To 5 If a(i - 1) > x Then Print a(i - 1); x Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是( )(单) A.1 2 B.1 2 3 C.3 4 5 D.4 5 28以下Case语句中错误的是( )(单) A.Case 0 To 10
B.Case Is＞10 C.Case Is＞10 And Is＜50
D.Case 3,5,Is＞10 29执行语句s=Len(Mid(\后，s的值是( )(单) A.Visual
30以下关于变量作用域的叙述中，正确的是( )(单) A.用dim定义变量是静态变量 B.静态变量必须在标准模块中声明 C.用public定义变量是全局变量 D.Static类型变量的作用域范围是它所在的窗体或模块文件
31以下关系表达式中，其值为False的是( )(单) A.\＞\B.\＜＞\D.\＞\32.语句Print int(5/4*6\\5) Mod 2的输出结果是( )(单) A.0
D.3 33在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程： Private Sub Command1_Click( ) strText = InputBox(\请输入\Text1.Text = strText End Sub Private Sub Text1_Change( ) Label1.Caption = Right(Trim(Text1.Text), 3) End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是( )(单) A.空
D.def 34在窗体上画一个名称为Text1的文本框，编写以下代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii ＜ 65
KeyAscii＞ 90 Then msgBox \请输入大写字母\KeyAscii = 0 End If End Sub 以下能说明该事件过程正确是( )(单) A.要求文本框只能接收大写字母的输入 B.要求文本框只能接收小写字母的输入 C.要求文本框只能接收数字的输入
D.要求文本框只能接收65到90之间的数值的输入 35在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c = \ 3
For i = 1 To 4 c1 = Trim(Str( )) Print c1 Next i End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234 则在下划线处应填入的内容为( )(单) A.Right(c1,i)
B.Left(c1,i)
C.Mid(c1,i,1)
D.Mid(c1,i,i) 36在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。 Private Sub Option1_Click(Index As Integer) Select Case index Case 0 a = \宋体\Case 1 a = \黑体\Case 2 a = \楷体＿GB2312\End Select text1.【 】=a End Sub
37在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Text1_LostFocus( ) If Not IsNumeric(Text1) Then MsgBox \帐号有非数字字符错误\Text1.Text = \Text1.SetFocus else MsgBox \帐号正确\End If End Sub 当在text1文本框中输入字符\之后，单击命令按钮，结果为( )(单) A.显示对话框，提示信息为\帐号正确\B.显示对话框，提示信息为\帐号有非数字字符错误\C.程序出错
D.没有任何提示 38.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Text1_LostFocus( )
If Not IsNumeric(Text1) Then MsgBox \帐号有非数字字符错误\Text1.Text = \Text1.SetFocus else MsgBox \帐号正确\End If End Sub 当在text1文本框中输入数字123456之后，单击命令按钮，结果为( )(单) A.显示对话框，提示信息为\帐号正确\B.显示对话框，提示信息为\帐号有非数字字符错误\C.程序出错
D.没有任何提示 39.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序： Private Sub Command1_Click( ) Dim I As Integer If Text1.Text ＜＞ \I = MsgBox(\密码错误\输入密码\If I ＜＞ 4 Then End Else Text1.Text = \Text1.SetFocus End If Else MsgBox \密码帐号正确！\End If End Sub 若在text1中输入字符串\，则程序运行结果为( )(单) A.显示对话框，提示\密码帐号正确！\ B.显示对话框，提示\密码错误\C.程序出错
D.没有任何提示 40.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码： Private Sub Command1_Click( ) Dim x!, y!, z!, t! x = Text1 y = Text2 z = Text3 If x ＜ y Then t = x x = y y = t End If If y ＜ z Then}