ldcf.net
当前位置:首页 >> VB程序题目,求答案,急~~~~~~~~ >>

VB程序题目,求答案,急~~~~~~~~

第一题信息给的不全,无法作答; 第二题,自己根据下面的6行填入表格,其中的每个B代表一个空白,比如说,第二行,前面空出8个空格,在第9格开始的两格中填入星号“*”即可,依次类推,注意第6行直接从第一格开始的6格中填入6个星号“*”。 BBBBBBBB...

在属性窗体内找到“caption”选项,将其属性值改为‘’VB程序设计‘’就行了。呃,是加载时显示的话也可以直接写程序,如图。

x=inputbox("x=") if x=int(x) then print x;"是整数" else print x;"不是整数"

通过Keypress事件做,Keyascii是Ascii吗,通过按下键盘系统会检测到他的Ascii值,再把它转换成你想要替换的就行了,很简单,不想帮你写,自己动手丰衣足食吧。

1.建立用户界面 设置属性 编写代码 2.窗体设计窗口 3.ctrl 4.缇 5.工程 窗体 6.F4 7.caption 8.透明 9.2 10.宽度 11.text 12.Label TextBox 13. 14. _(续行符) (空格) 15.click 16.双击 17.dblclick picture1 picturebox 18.rem 19.逻辑 20.time...

水手分椰子问题 5个水手在椰岛上发现拉一堆椰子:先由第一名水手把椰子分成等量的5堆,还剩下一个 给猴子,自己藏一堆,然后,第二个水手把剩下4堆混合后重新分成等量的5堆。还剩下一个 个猴子,自己藏起一堆,以后第3,4个水手依此办理,最后第...

8、输入一个数X,如果X>=0,则Y=1-2*X,否则的话Y=1+X 9、循环,直到i大于7,每次循环i增加3,X增加5 10、RND函数是返回一个0—1之间的随机数,所以取整后X为4(只取整数部分),输出结果必为GOOD 11、循环,每一次循环X=(X+3)*(X+4),N为循环次...

D B A D D A D D B A C D C C

private sub command1_click() dim i as integer,n as integer,st as string dim n1 as integer,n2 as integer for i=1 to 10 n=int(rnd*90)+10 st=st & str(n) if n mod=0 then n1=n1+1 else n2=n2+1 endif next i text1.text=st text2.text=n1...

Private Sub Command1_Click() '调用实例 Dim str As String MsgBox return_str(5) End Sub Private Function return_str(number As Integer) As String '通用函数 Dim str As String For i = 1 To number Dim str_temp As String str_temp = ""...

网站首页 | 网站地图
All rights reserved Powered by www.ldcf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com