[编程noip2010数字统计用Pascal怎么做]var ans,n,m,i:longint; function js(x:longint):longint; var x1:0..9; begin js:=0; while x>0 do begin x1:=x mod 10; if x1=2 then js:=js+1; x:=x div 10; end; end;...+阅读

'把下面代码复制到窗体，添加1个list 和一个command按钮运行就可以了，和一个文本框，数据输入在文本框里Private Type English word As String count As LongEnd Type'判断是不是英文Private Function En(ByVal s As String) As Boolean If s = ＂＂ Then En = False: Exit Function s = LCase(s) For i = 1 To Len(s) a = Asc(Mid(s, i, 1)) If a122 Then En = False: Exit Function Next En = TrueEnd Function'统计数组内各个英文出现次数Private Function TongJi(ByVal T_txt As String) As English() s = Split(T_txt, ＂ ＂) n = 0 Dim English() As English ReDim English(0) For i = 0 To UBound(s) If s(i)＂＂ And En(s(i)) = True Then temp = False For j = 0 To UBound(English) If English(j).word = ＂＂ Then English(j).word = s(i): English(j).count = 1: Exit For ElseIf English(j).word = s(i) Then temp = True: English(j).count = English(j).count + 1: Exit For End If Next If temp = False Then ReDim Preserve English(n): English(n).word = s(i): English(n).count = 1: n = n + 1 End If End If Next TongJi = EnglishEnd FunctionPrivate Sub Command1_Click() Dim e() As English e = TongJi(Text1) Cls For i = 0 To UBound(e) If e(i).count >0 Then List1.AddItem e(i).word & ＂ 出现过： ＂ & e(i).count & ＂ 次＂ NextEnd Sub

以下为关联文档：

wps怎么统计数字出现的次数本问题难点不在于统计某个数字的个数，一个简单的contif就可以了。而是难在给定的区域中有哪些数字（不重复的数字。 如图，A1:E8中有数字，部分数字重复。现在在G列先提取出A1:E8中...

VB select统计语句用法1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dimresult(8, 2) AsLong'假设部门一共8个，差错级别一共2个 Dimindex AsLong SQL = ＂SELECT 部门，差错，count(*) from chacuo where...

vb sql分组统计的问题Dim conn As ADODB.Connection Set conn = OpenConnForAccess(App.Path & ＂\test1.mdb＂) Dim rs As ADODB.Recordset Set rs = OpenRecordset(＂select count(id) from (select...

关于一个VB超简单的编程Private Sub cal() Dim m, n On Error GoTo end1 m = Text1.Text n = Text2.Text Text3.Text = Abs(m - n) Exit Sub end1: MsgBox ＂请输入正确的数字！＂ End Sub Private Sub T...

输入N个由 0 9组成的数字字符串统计出现频率最高的数字Dim num(10) As Integer, i As Integer, s As String, max(10) As Integer, k As Integer For i = 0 To Len(Text1.Text) - 1 num(Val(Mid(Text1.Text, i + 1, 1))) = num(V...

汇编语言编程。。统计字符串的字符个数求助data segment LAD db 'abcdefghijklmn#' MUN dw 0 data ends stack segment stack db 256 dup(?) stack ends code segment assume cs:code, ds:data, ss:stack start: mov...

编程问题统计各种字符个数#include int alph,digit,space,others; void count(char a[80]); void main() { char text[80]; printf(＂input string:\n＂); gets(text); alph=0; digit=0; space=0; others...

vb做一个成绩统计程序第一窗体按钮代码： dim stunum$,stuName$,stuEn%,stuMath%A,stuComputer% stuNum = text1.text:stuName=text2.text stuEn=val(text3.text):stuMath=val(text4.text):stuComp...

寻求一个VB编程的朋友给我一个游戏自动喊话的代码'建立2个text文本，text1,text2,2个按钮command1,commadn2，一个记时器timer1'text1是喊话的内容.'text2是每隔多少秒喊一次'command1是开始喊话'command2是停止.代码是在下面复...