未分类题

1+ + + +…….n 最大的n。请填空
Private Sub Command1Click（）
Dim s ,m,n AS Integer
m=Val（InputBox（“请输入一个大于100的整数”））
n=_
s=0
Do While s N=n+1
S=s+n*n
Loop
Print “满足不等式的最大n是___
End Sub

A.n

【参考答案】

0 N-1

<上一题目录下一题>

热门试题

未分类题

下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。Private Sub Command1__Click（） Dim inchar AS String,temp AS String,outchar AS String utchar=” ” pen=”file1.txt” For Input AS #1 pen=”file2.txt” For Output AS ______ n=LOF（ ______ ） inchar=Input$（n,1） For k=1 To n temp=Mid（inchar,k,1） If InStr（outchar,temp）= ______ Then outchar=outchar & temp End If Next k print #2, ______close #2 close #1 End Sub

未分类题

设有如下通用过程：Public Function Fun（xStr As String） Dim tStr As String, srtL As IntegertStr+' ' strL=Len（xStr） i=1 Do While i <=strL 2 tStr=tStr &Mid（xStr,i ,1）& Mid （xStr ,strL-i+1,1） i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程： Private Sub Command 1_ Click（） Dim S1 As String S1='abcdef' Text1.Text=UCase（Fun（S1）） End Sub 程序运行后，单击命令按钮，则Text1中显示的是（）。 A．ABCDEF B．abcdef C．AFBECD D．DEFABC

相关试题