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

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

你这小子,是不是在搞自修啊, 我看到你在网上放了无数个类似的题目啦, 这么简单的问题,自己不动脑筋,光求个答案敷衍教师了事啊 建议大家都不要为这点小分误了程序员这个行当

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

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

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

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 = ""...

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

(1) Do (2)

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为循环次...

'代码如下:Private Sub Command1_Click()List1.AddItem Text1.TextText1 = ""Command1.Enabled = FalseEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Text...

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...

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