VB编程题，怎么做？_百度知道
VB编程题，怎么做？
我有更好的答案
你就不能多加点悬赏的财富值么况且你还是有财富值的30好可伶的好吧
你写一下代码，我可以给更多的
Private&Sub&Combo1_Click()&Dim&s&As&String&&&&Dim&n&As&Integer&&&&n&=&Combo1.Text&&&&s&=&&&&&&&s&=&&计算1!+2!+3!+...+&&&&n&&&&!,其结果为&&&&jiecheng(n)&&&&Text1.Text&=&sEnd&SubPrivate&Sub&Form_Load()Combo1.ClearCombo1.AddItem&(&7&)Combo1.AddItem&(&8&)Combo1.AddItem&(&9&)Combo1.AddItem&(&10&)End&SubPublic&Function&jiecheng(ByVal&n&As&Integer)&&&&&&&&Dim&m&As&Double&&&&m&=&1&&&&&&&&For&i&=&1&To&n&&&&&&&&&&&&m&=&m&*&i&&&&&&&&Nextjiecheng&=&m&&&&End&Function
命令按钮的代码呢？
程序有错呀！
采纳率：80%
!&Next iMyStr = MyStr &计算 1!&For i = 2 To n& J = J * i&nbsp.Text = MyStrEnd SubPrivate Sub Form_Load()Combo1; &.AddItem 9Combo1.AddItem 10Combo1.Text = Combo1.List(0)End Sub<file fsid="612" link="/share/linkPrivate Sub Command1_Click()Dim n As IntegerDim i As IntegerDim J As LongDim S As LongDim MyStr As Stringn = Val(Combo1.AddItem 7Combo1.AddItem 8Combo1;+& & CStr(i) & &quot.Text)J = 1S = 1MyStr = & S = S + J& MyStr = MyStr & &quot，其结果为：& & SText1
为您推荐：
其他类似问题
您可能关注的内容
vb编程的相关知识
&#xe675;换一换
回答问题，赢新手礼包&#xe6b9;
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB程序题(1)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB程序题(1)
&&VB程序题
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢使用vb编写的一个小程序的问题？
[问题点数：0分]
使用vb编写的一个小程序的问题？
[问题点数：0分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
匿名用户不能发表回复！|大家都在搜：
扫描二维码安装房天下APP
手机浏览器访问房天下
> > 问题详情
求高手解VB题,小弟跪谢了
求高手解VB题，小弟跪谢了1、关于函数和子过程错误的叙述为：A、模块级的过程使用Private；B、全局级的过程可以省略Public；C、全局级的过程使用Public；D、模块级的过程可以省略Public。2、对于Visual Basic的循环语句，下列正确的说法是：A、Do While…Loop循环的循环体至少被执行一次；...
求高手解VB题，小弟跪谢了1、关于函数和子过程错误的叙述为：A、模块级的过程使用Private；B、全局级的过程可以省略Public；C、全局级的过程使用Public；D、模块级的过程可以省略Public。2、对于Visual Basic的循环语句，下列正确的说法是：A、Do While…Loop循环的循环体至少被执行一次；B、Do Until…Loop循环的循环体至少被执行一次；C、Do…Loop Until循环的循环体至少被执行一次；D、While…Wend循环的循环体至少被执行一次。3、一个工程文件中有多个窗体，VB运行时指定为启动窗体的是()。A、窗体；B、From1窗体；C、Form窗体；D、第一个设计的窗体。4、设菜单项名称为M，若想运行时是该菜单项变为灰色（失效），应使用语句为A、M．Enabled＝False；B、M．Enabled＝True；C、M．Visible＝False；D、M．Visible＝True。5、能将文件“aa.dat”改名为“bb.txt”的代码为A、Rename
“aa.dat”
“bb.txt” ；B、Name
“aa.dat”
“bb.txt”；C、Rename
“aa.dat”
“bb.txt”；D、Name
“aa.dat”
“bb.txt”。6、为了添加ComboBox控件中的项目，需要使用的方法为A、Add B、Remove C、AddItem D、RemoveItem 7、能是窗体隐藏但仍存在于内存的方法为A、Hide B、Show C、Unload D、Open 8、双击命令按钮、窗体、标签、图片、时钟控件的任何地方，可以打开的窗口是＿＿＿＿＿＿。A、代码窗口 B、工程资源管理器器窗口 C、属性窗口 D、窗体布局窗口 9、在使用Open语句打开文件时，若省略“For方式”，则打开的文件存取方式为A、随机存取方式
B、顺序输入 C、顺序输出 D、二进制方式 10、下列关于变量作用域由小到大的正确顺序为下列关于变量作用域由小到大的正确顺序为A、局部变量、窗体变量、全局变量 B、窗体变量、局部变量、全局变量 C、局部变量、全局变量、窗体变量 D、窗体变量、全局变量、局部变量 11、对于过程Sub SSS（x,y,z），下列所有参数都以传址方式进行的调用为A、Call
SSS（3，5，z） B、Call
SSS（x+3，y+5，z） C、Call
SSS（x，y，z） D、Call
SSS（x+y，x－y，z） 12、A、Call
SSS（3，5，z） B、Call
SSS（x+3，y+5，z） C、Call
SSS（x，y，z） D、Call
SSS（x+y，x－y，z） 14、启动Visual Basic后, VB为用户建立的第一个窗体是()。（1分） A、Form1 B、Form C、窗体1 D、窗体 15、下面关系运算中，输出结果为“True”的是()。（1分） A、&1& + 2 ＝ &12& B、&1& + &2& ＝ &3& C、&1& & 2 ＝ &12& D、&1& & &2& ＝ &3& 16、Timer控件决定该控件是否对时间的推移做响应的属性是（1分） A、Enabled B、Visible C、Time D、Capable 17、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是（1分） A、T ＞＝ 1.7 And W ＜＝ 52.5 B、T ＜＝ 1.7 Or W ＞＝ 52.5 C、T ＞ 1.7 And W ＜ 52.5 D、T ＞ 1.7 Or W ＜ 625 18、如果VB环境中缺少某个窗口，一般应从主菜单(
)的下拉菜单中找到相应的激活命令。（1分） A、编辑 B、文件 C、调试 D、视图 19、对于如下结构的循环：
Do While 条件 ： 循环体 ：
Loop，则下列正确的叙述为：
。（1分） A、如果“条件”为常数0，则一次循环体也不执行； B、如果“条件”为常数-1，则一次循环体也不执行； C、如果“条件”为常数-1，则只执行一次循环体； D、如果“条件”为常数0，则执行无限次循环体。 20、当组合框的Style属性设置为1时，其表现形式为（1分） A、下拉列表框 B、下拉组合框 C、简单组合框 D、文本框 二、写出下面的源程序 1、将一个一维数组a(9)中各元素值按行的顺序放入二维数组b(3&#215;3)2、3、已知一个学生信息的文本文件为student.dat，学生信息包括：姓名（字符型）专业（字符型）年龄（整型）分数（整型）编写程序，查找姓名为“王军”的学生并输出其记录。3、编写程序，用普通迭代法求方程f(x)＝x+lnx-1.7＝0的近似实根r，迭代初值为1.5，精确到0.0001。〔提示：必须把方程f(x)＝0化成其等价形式x＝g(x)〕。（允许使用其他迭代法）4、在输入代码时，如何从属性列表和方法列表中快速输入属性及方法？ 5、自由类型数组的作用是什么？6、语句Print String(30,”*”)的功能用循环如何实现?7、顺序结构的特点是什么？
浏览次数：0
一、1.B2.C3.D4.A5.D6.C7.A8.A9.A10.A11.12.13.14.D15.C16.A17.C18.D19.A20.D二、1.Dim a(8) As IntegerDim b(2, 2) As IntegerDim i As Integer, j As Integer, k As IntegerFor i = 0 To 2
For j = 0 To 2
一、1.B2.C3.D4.A5.D6.C7.A8.A9.A10.A11.12.13.14.D15.C16.A17.C18.D19.A20.D二、1.Dim a(8) As IntegerDim b(2, 2) As IntegerDim i As Integer, j As Integer, k As IntegerFor i = 0 To 2
For j = 0 To 2
b(i, j) = a(k)
Debug.Print b(i, j)
Next jNext i2.为了方便可以先自定义类型在mod中写入public type student sName as stringzhuanye as stringage as integerscore as integerend type用open打开文件用line一行一行读取splite分割空格取姓名
XXXdebug.print 输出其他的自己查书学编程重要的就是多练
房天下知识为您分享了一条干货
手机动态登录
请输入用户名/邮箱/手机号码！
请输入密码！
没有房天下通行证，
ask:6,asku:1,askr:40,askz:16,askd:27,RedisW:1askR:5,askD：1 mz:hit,askU:0,askT:0askA:7
Copyright &
北京拓世宏业科技发展有限公司
Beijing Tuo Shi Hong Ye Science&Technology Development Co.,Ltd 版权所有
违法信息举报邮箱：