s dim shu as string,zong as string private sub command1_click() if text1.text=""then msgbox"未填抽取号码 exit sub end if if text2.text=""then msgbox"未填抽取号码数 exit sub end if aaa=val(text1.text) bbb=val(text2...
这是一个获取股票实时报价的程序,这程序有一个窗体,一个模块窗体代码:option explicitdim g_strsymbol as stringdim nrow as integerdim csymboll**t as collectiondim casyncsymboll**t as collectiondim cregsymbols as collectiondim bquotesreg*...
private sub form_click()print s(25, 10)print s(25, 50)'print s(25, 100) 这两行已经超出vb的计算能力了'print s(25, 200) vb只能处理32位的数值end subfunction s(x, n)for k = 1 to n t = 1 for i = 1 to 2 * k - 1 t...