स्यूडोकोड को कैसे लिखें

suffixList () स्ट्रिंग के रूप में मंद `suffissiDim preFixList () स्ट्रिंग के रूप में की एक सूची में शामिल होंगे` prefissiPrivate उप ParseName (मूल्य स्ट्रिंग, ByRef firstName स्ट्रिंग के रूप में, ByRef MiddleName स्ट्रिंग के रूप में, ByRef अंतिम नाम स्ट्रिंग के रूप में के रूप में) मंद splittedName की एक सूची में शामिल होंगे जैसा कि StringsplittedName = स्प्लिट (मूल्य, " ") मंद prefixLname StringDim suffixLname के रूप में स्ट्रिंग के रूप में `***************************************** **** `चक्र सरणी splittedName` *************************************** ****** के लिए मैं = LBound (splittedName) UBound (splittedName) अगर मैं = 0 ThenfirstName = splittedName (i) Elself मैं = 1 फिर `**************** ***************************** `जांच करता है कि मूल्य suffixList या preFixList में मौजूद नहीं है तो` MiddleName के रूप में अन्यथा आवेषण सेट prefixLname में `या suffixLname` ******************************************** * यदि (DoesValueExsistInList (suffixList, splittedName (i))) = ThensuffixLname splittedName (i) Elself (DoesValueExsistInList (preFixList, splittedName (i))) = ThenprefixLname splittedName (i) = ElseMiddleName splittedName (i) समाप्ति IfElse `**** ***************************************** `जांच करता है कि मूल्य suffixList में मौजूद नहीं है या preFixList फिर `सेट के रूप में नहीं तो अंतिम नाम suffixList या preFixList को बचाता है` ********************************** यदि *********** (DoesValu eExsistInList (suffixList, splittedName (i))) = ThensuffixLname splittedName (i) Elself (DoesValueExsistInList (preFixList, splittedName (i))) = ThenprefixLname splittedName (i) = ElseLastName splittedName (i) समाप्ति IfEnd IfNext `****** *************************************** `जाँच करता है कि अंतिम नाम चर खाली और फिर प्रदान करती है `अंतिम नाम = MiddleName` CONCATENATE मूल्यों prefixLname और suffixLname lastName साथ `*********************************** ********** तो लेन (अंतिम नाम) = 0 = ThenLastName MiddleNameEnd IfLastName = prefixLname & " " & LastName & " " & suffixLnameEnd उप `*********************************************` लगता है से बाहर एक मूल्य `******************************************** * निजी समारोह DoesValueExsistInList (स्रोत () स्ट्रिंग, searchString स्ट्रिंग के रूप में के रूप में) के रूप में बूलियन `******************************** ************* `यह तार की एक सरणी के भीतर एक मूल्य के लिए खोज करेंगे` और अगर `पाया वापस आ जाएगी *************** ****************************** मंद retval BooleanretVal FalseFor = i = LBound (स्रोत) के रूप में UBound (स्रोत) यदि LCase करने के लिए ( searchString) = LCase (स्रोत (ओं)) = ThenretVal TrueExit forend IfNextEnd FunctionPrivate उप Command1_Click () मंद नाम StringDim fName StringDim MNAM रूप StringDim lName के रूप में के रूप में के रूप में StringName = "अमित"एंड सब

• रिक्त स्थान का उचित उपयोग करें प्रोग्रामिंग भाषा में लिखते समय सही इंडेंटेन्टेशन का प्रयोग बहुत उपयोगी होता है और कुछ लिखते समय मनुष्य के लिए समझना चाहिए।
• कंप्यूटर के बुनियादी कार्यों को समझें कम्प्यूटर प्रोग्राम्स का निर्माण करना बुनियादी कार्यों को चलाने के लिए कंप्यूटर को धक्का देना है। इन कार्यों का एक अच्छा ज्ञान आपको वास्तव में रूपरेखा करने में मदद करता है कि स्यूडोकोड के साथ क्या वर्णन करना महत्वपूर्ण है