www.ndwl.net > vB��InputBox�����ĵ�2���������������öԻ����ʲ...

vB��InputBox�����ĵ�2���������������öԻ����ʲ...

�������� InputBox������˵���ɣ� InputBox(prompt[��title][��default][��xpos��ypos][��helpfile��context]) ��1�� prompt����һ���ַ������䳤�Ȳ��ó���1 024���ַ��������ڶԻ�������ʾ����Ϣ��������ʾ�û����롣�ڶԻ�������ʾpromptʱ��...

����Ի���

һ��InputBox���� 1������ ��ʾһ������򣬲���ʾ�û����ı����������ı������ֻ�ѡ��ij����Ԫ�����򣬵�����ȷ����ť�󷵻ذ����ı������ݵ��� ������ 2���﷨ InputBox(Prompt[,Title][,Default][,Xpos][,Ypos][,Helpfile,Context]) ����˵��...

�����ǵ���һ���Ի�����������ʾ��ʾ���ȴ��û��������ֲ����°�ť��Ȼ�󷵻��û���������� ����filename = InputBox("Please enter a filename to save:", "Files saved") ��˼Ϊ���Ի�������"Please enter a filename to save:"�Ի�������...

'InputBox�����,����������ֵ���������ǽ�����ֵ֮���,ÿ������,��֮��Ϊһ������ֵ��

�ַ����͡� ��������ȷ�������ص�����Ϣ���е���Ϣ����ʹ��12���������֣�Ҳ�Ƿ����ַ����͡��������ȡ���ͷ��ؿ��ַ�����

msgbox��inputbox��û�й�ϵ�ġ����ߵ���ͬ���£� msgbox���������ڣ�����������Ϣ inputbox���������ڣ����������Ϣ

����ٶ�����exit���ܹ��˳�������һֱѭ������ do-loop private sub form_load()dim str as stringdo until str="exit"str=inputbox("������exit�˳���")loopendend subgoto-: private sub form_load()start:dim str as stringstr=inputbox("��...

�������ȡ���ǹر�inputbox�ģ�����Ϊ�����ѭ�������棬������ʵ��������������������ȡ��ʱ��������Ѿ��رգ�����ִ��һ��ѭ�����ְ�inputbox���ˣ��㿴��ȥ������û�йر�һ����

Private Sub Form_Click() '�����������Dim N As Integer, X As LongRandomizeN = Val(InputBox("������һ��һλ��"))If N > 0 And N < 10 Then X = Int(Rnd * 9 * 10 ^ (N - 1)) + 10 ^ (N - 1) Print XEnd IfEnd Sub

��վ��ͼ

All rights reserved Powered by www.ndwl.net

copyright ©right 2010-2021��
www.ndwl.net�����������磬�����ַ�����ϵ�ͷ���亚虎老虎机