Private Sub CommandButton1_Click()
Dim rag As Range
Range("闹旁袜B1:B4").ClearContents
For Each rag In Range("A:A")
If rag.Value = "" Then Exit For
If InStr(rag.Value, "质数") >0 Then
Range("B1").Value = Range("B1").Value &Trim(rag.Value) &" "
End If
If InStr(rag.Value, "偶数") >0 Then
Range("B2").Value = Range("B2").Value &Trim(rag.Value) &" "
End If
If InStr(rag.Value, "奇数") >0 Then
Range("B3").Value = Range("B3").Value &Trim(rag.Value) &" "
End If
If InStr(rag.Value, "合数") >0 Then
Range("B4").Value = Range("B4").Value &Trim(rag.Value) &" "
End If
Next
End Sub
微软大部分产品,都是vb开发的,因为比尔盖茨就是一个vb开发工程师。汇编语言写不了体积橘岁睁这么大的程序。。
假设excel使用汇编语言开发,,体积至少缩小到原来的百分之一,运行速度至少雀雀快10倍。
但是有一样:开发时间要延迟20年以上。。。。。
如果用C语言开发,上述数圆岁据,折半吧,,,
public static DataTable GetExcelTable(string excelFilename){
string connectionString = string.Format("Provider=Microsoft.Jet.OLEDB.4.0Data Source={0}Jet OLEDB:Engine Type=35Extended Properties=Excel 8.0Persist Security Info=False",excelFilename)
DataSet ds = new DataSet()
string tableName
using (System.Data.OleDb.OleDbConnection connection = new System.Data.OleDb.OleDbConnection(connectionString))
{
connection.Open()
DataTable table = connection.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, null)
肆则 tableName = table.Rows[0]["Table_Name"].ToString()
string strExcel = "select * from " + "[" + tableName + "]"
OleDbDataAdapter adapter = new OleDbDataAdapter(strExcel, connectionString)
adapter.Fill(ds, tableName)
connection.Close()
}
return ds.Tables[tableName]
}
具体如下:
1、简介
编程是编写程序清芦的中文简称,就是让计算机答雹带代为解决某个问题,对某个计算体系规定一定的运算方式,是计算体系按照该计算方式运行,并最终得到相应结果的过程。
为了使计算机能够理解人的意图,人类就必须将需解决的问题的思路、方法和手段通过计算机能够理解的形式告诉计算机,使得计算机能够根据人的指令一步一步去工作,完成某种特定的任务。这种人和计算体系之间交流的过程就是编程。
2、汇编程序
汇编程序。使用汇编语言编写计算机程序,程序员仍然需要十分熟悉计算机系统的硬件结构,所以从程序设计本身上来看仍然是低效率的、繁琐的。但正是由于汇编语言与计算机硬件系统关系密切,在某些特定的场合,如对时空效率要求很高的系统核心程序以及实时控制程序等,迄今为止汇编语言仍然是十分有效的程序设计工具。
3、执行原理
计算机对除机器语言以外的源程序不能直接识别、理解和执行,都必须通过某种方式转换为计算机能够直接执行的。这种将高级编程硬件程序设计语言编写的源程序转换到机器目标程序的方式有两种:解释方式和编译方式。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)