地狱客栈val+vox

---

诸史13268046195问： 挂机等待C语言…从键盘输入8个数存入一维数组中,输出它们的最大值与最小值 - ？
东兴区枢霖回答： #include <stdio.h> int main(){ int val[8]; int i=0,max=0xffffffff,min=0x7fffffff; for(i=0;i!=8;++i){ scanf(＂%d＂,val+i); if(val[i ]>max)max=val[i ]; if(val[i ]<min)min=val[i ]; } printf(＂max %d,min %d＂,max,min); return 0; }

诸史13268046195问： 输入一个整数,使用循环使这个整数倒叙输出.比如输入1234567,输出7654321 - ？
东兴区枢霖回答： a=1234567; b=＂＂; for (int i=0;i<a.lengh;i++) { b+=a.Substring(a.lengh-i,1); }得出b=7654321

诸史13268046195问： 输入20个数字,显示其中奇数的个数和偶数的个数 VB？
东兴区枢霖回答： dim i as integer dim js as integer,os as integer,x as integer js=0 os=0 for i=1 to 20 x=val(inputbox(＂请输入20个整数:＂,＂输入＂)) if x mod 2 = 0 then os=os+1 else js=js+1 next print js,os

诸史13268046195问： 用VB写设计程序代码,求:s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值. - ？
东兴区枢霖回答： Private Sub Command1_Click() Dim n, s Dim i, j n = Val(InputBox(＂请输入数据:＂)) For i = 1 To n For j = 1 To i s = s + j Ne

诸史13268046195问： VB问题:text1.text=val(text1.text)+val(text2.text) - ？
东兴区枢霖回答： text.如:text1.text=&quot.text加上text2不加的话就是把text1; 不加val的话;你好&quot.text + text2.text 得＂好＂ text1.text=text1;你＂ text2.text=&quot.text=text1.text & text2,最好把+号换成& 如:text1

诸史13268046195问： 如何根据里面的value值,input的宽度自动调整,使它刚好盛下value里的内容 - ？
东兴区枢霖回答： 请参考下面的代码实现这个功能:function resizeInput() { $(this).attr('size', $(this).val().length); }$('input[type=＂text＂]') .keyup(resizeInput) .each(resizeInput);

诸史13268046195问： VB6.0 帮我编个代码! - ？
东兴区枢霖回答： 2. a=cint(rnd*10) b=cint(rnd*10) c=val(a)+val(b) me.print print a print b...

诸史13268046195问： vb语言用while求阶乘 - ？
东兴区枢霖回答： Private Sub Form_Click() '点击窗体运行 Dim x As Double, n As Integer n = Val(InputBox(＂请输入一个整数,注意别太大＂)) x = 1 While n > 0 x = x * n n = n - 1 Wend MsgBox ＂阶乘为＂ & x End Sub要注意的是,由于数字精度的限制,当计算结果大于1百万亿(也就是1后面15个0)时将不再是精确数.因此输入的整数最好不要超过17

诸史13268046195问： val() 是哪出错了 - ？
东兴区枢霖回答： 正确的代码是Private Sub Command1_Click()Dim aa = Val(＂123abc＂)MsgBox aEnd...

---