VB��λ��

18063219 — Thu, 06 May 2010 00:54:49 +0000

лл��λ�ˣ��ǳ��л

�ҿ��Ӧ��ֱ仯��

vili — Sat, 01 May 2010 23:53:21 +0000

��磬Cˮλ�� ǰˮλ��13.5-14֮�䣬��ʾ��ʾ��ɫ��Ǽtɫ��ĳ��]�д�� [s:21]

wang115828 — Fri, 30 Apr 2010 09:15:24 +0000

[s:21] ѧϰ��

��Ĵ��a��ʾ��ㅢ��һ�£��ԓ��Խ�Q

ydp — Fri, 30 Apr 2010 04:33:37 +0000

Dim a1 As Double Dim a2 As Double Dim K as double //��xˮλ a2 = CDbl(Text1.Text) a2 = CDbl(Text1.Text) k = CDbl(ˮλ��ַ��) if k <= a2 then Shape1.FillColor = vbRed end if if k >= a1 then Shape1.FillColor = vbGreen end if

��һ�N�ͣ��ַ��D��FU�c��

ydp — Fri, 30 Apr 2010 04:26:08 +0000

��һ�N�ͣ��ַ��D��FU�c��

�ɷN��Q��}.

ydp — Fri, 30 Apr 2010 04:25:33 +0000

�ɷN��Q��}��һ�ͣ��Д��׃��100��ҪС��ö��Ĕ��@�Ӕ��

��}�ҵ��

ydp — Fri, 30 Apr 2010 04:24:58 +0000

��}�ҵ��,a1 = Val(Text1.Text),�@�ӵČ��ȡ�� O�õ��С��c

sjm213 — Thu, 29 Apr 2010 15:16:02 +0000

Select Case �ṹ��һ��Զ��End Select�� ļ��CASE��ص��֣��ֻ��ǰ��Ч�� һ��IF ��Then

VB������λ����

�ҿ������Ӧ�������ֱ仯��

����Ĵ��a����ʾ�����ㅢ������һ�£���ԓ���Խ�Q

����һ�N�ͣ�����ַ������D��FU�c��

�ɷN��Q���}.

���}�ҵ���

VB��λ��

�ҿ��Ӧ��ֱ仯��

��Ĵ��a��ʾ��ㅢ��һ�£��ԓ��Խ�Q

��һ�N�ͣ��ַ��D��FU�c��

�ɷN��Q��}.

��}�ҵ��