大虾帮忙,不知从何入手????? — 编程爱好者社区

主题：大虾帮忙,不知从何入手?????

mahua1130 [专家分：0] 发布于 2008-04-18 13:51:00

用if...then....else结构,编写随着不断单击窗体,窗体的标题依次显示为a-b-c-d

本帖地址： http://bbs.pfan.cn/post/273442.html

回复列表（共6个回复）

沙发

mahua1130 [专家分：0] 发布于 2008-04-18 15:45:00

我知道这个问题很简单,但我真的不知道怎么做,路过的帮忙指点下..谢谢拉

板凳

一江秋水 [专家分：9680] 发布于 2008-04-18 16:58:00

定义一个全局整形变量，初始值为a的Ascii码-1，每点击窗体一次，该变量+1，然后用Chr函数转换为字符显示

3 楼

zhanghanyn [专家分：220] 发布于 2008-04-18 18:16:00

先把标题设置为a
If Asc(Me.Caption) < 100 Then
Me.Caption = Chr(Asc(Me.Caption) + 1)
Else
Me.Caption = "a"
End If

4 楼

mahua1130 [专家分：0] 发布于 2008-04-18 18:59:00

谢谢两位.

5 楼

mahua1130 [专家分：0] 发布于 2008-04-18 23:21:00

Private Sub form_click()

If Asc(Me.Caption) < 100 Then
Me.Caption = Chr(Asc(Me.Caption) + 1)
Else
Me.Caption = a
End If

End Sub

为什么窗体的名称总是从G开始呢?
并没有从a开始.

6 楼

一江秋水 [专家分：9680] 发布于 2008-04-19 17:34:00

因为你的窗体的Caption属性初始值还是“Form1”，Asc函数只取第一个字符“F”，加上1以后就是“G”了。你将窗体的Caption属性初始值设置为“a”即可

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：大虾帮忙,不知从何入手?????

回复列表（共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：大虾帮忙,不知从何入手?????

回复列表 （共6个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共6个回复）